首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示;三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的5
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示;三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的5
admin
2009-03-26
65
问题
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示;三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Textl中显示出来;“排序”按钮的功能是对这50个数按升序排序,并显示在T’eXt2中;“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中。如图9—5所示。在窗体中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写”排序”按钮的Click事件过程。
注意:使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
本题考查Str()函数,“冒泡法”排序,For循环语句,If判断语句及文件操作。根据题意,打开本题工程文件,打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,编写如下代码: Dim a(50)As Integer Private Sub C1 Click() Dim k As Integer,ch As String Open App.Path&"/in5.dat"For Input As#1 ch="" For k=1 To 50 Input#1,
a(k)
ch=ch+Str(a(k))+"" Next k Close#1 Textl.Text=
ch
End Sub Private Sub C2 Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch="" For i=50 To 2 Step-1 For j=1 To 49 If a(j)>a(j+1)Then t=a(j+1) a(j+1)=a(j) a(j)=t End If Next j Next i For j=1 To 50 ch=ch+Str(a(j))+"" Next j Text2.Text=ch End Sub Private Sub C3 Click() Open App.Path&"/out5.dat"For Output As#1 Print#1,Text2.Text Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/wV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
通过实现Runnable接口创建线程,请在画线处加入正确的代码完成此程序【】。publicclassThreadTest{publicstaticvoidmain(Stringargs[]){
下列安全控制命令中,属于现实证书缓存区和密钥表项命令的是()。
下列属于Applet运行过程中的是()。
下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
对于建立良好的程序设计风格,下面有关数据说明描述错误的是()。
JavaApplet应用程序的编写和执行共分4步进行:编写源代码、编写HTML文件调用该小程序、【】、解释执行。
如果创建的一个子类覆盖一个public方法,则对该方法可以使用哪些修饰符()
一些重要的程序语言(如C语言和Pascal语言)允许过程的递归调用。而实现递归调用中的存储分配通常用()
按作用域分类,变量有局部变量、【】、方法参数和异常处理参数。
用AWT组件实现单选按钮功能,需要使用______组件?()
随机试题
角色
A.保和丸B.三拗汤及苏子C.黛蛤散及桑白皮D.葶苈子、代赭石E.大黄、玄明粉、枳实
下列关于房地产抵押的条款,哪条是不完整的?[2009年第81题]
重力大小为W的物块能在倾斜角为α的粗糙斜面上下滑,为了维持物块在斜面上平衡,在物块上作用向左的水平力FO(图4-33)。在求解力FO的大小时,物块与斜面间的摩擦力F方向为()。
下列关于公文正文编排格式的描述,正确的是()。
在电磁波谱中,红外线、可见光和紫外线三个波段的频率大小关系是()。
国际象棋棋盘为64方格,用铅笔从第一格开始填写1,第二格填写2,第三格填写3,以此类推64,然后用橡皮将所有能被3整除的数全部擦掉,则所剩数字的总和是()。
在伦敦海格特公墓的马克思墓碑上,镌刻着马克思的一句名言:“哲学家们只是用不同的方式解释世界,而问题在于改变世界。”这鲜明地表明了()
TheCommunicativeApproachTheCommunicativeApproachemphasizesthatthegoaloflanguagelearningiscommunicativecompetence
Whenyouhavetomeetsomeonefromadifferentculture,beprepared.Ifyouunderstandculturaldifferences,you’llbeabetter
最新回复
(
0
)