首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为Cl、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat文件中的5
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为Cl、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat文件中的5
admin
2010-09-02
86
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为Cl、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat文件中的50个整数读到数组中,并在Textl中显示出来;“排序”按钮的功能是对这50个数按升序排序,并显示在Text2中;“存盘”按钮的功能是把排好序的50个数保存到考生目录下的out5.dat文件中。如图1-146所示。在窗体中已经给出了全部控件和部分程序,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写“排序”按钮的Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写以下代码: 参考代码: PriVate Sub C1_Click() Dim k As Integer。 Dim ch As String Open App.Path&"\in5.dat"For Input As#1 ch="" For k=1 T0 50 Input #1,a%(k%) ch=ch+Str(a(k)) +"" Next k Close#1 Textl.Text=ch$ End Sub Private Sub C2 Click() Dim k As Integer, i As Integer, j As Integer Dim ch As String For i=1 TO 49 k=i For j=i+1 To 50 If a(k)>a(j)Then k=j End If Next j j =a(k) a(k) =a fi) a(i) =j Next i ch="" For k=1 To 50 ch=ch+Str(a(k)) +"" Next k Text2.Text=ch End Sub 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按
键运行程序,先单击“取数”按钮,再单击“排序”按钮,最后单击“存盘”按钮。
解析
本题的“取数”按钮的单击事件首先利用Open语句打开考生目录下的in5.dat文件,然后使用For循环结合Input语句将50个整数读到数组中,并在Textl中显示出来。“排序”按钮的单击事件过程可以采用选择排序算法,其程序设计思路是:第一趟排序在数组中选出最小的记录a(k),将它与第一个记录a(1)交换,然后第二趟排序在a(2)~a(n)中找出最小的元素,令其与a(2)交换,以此类推,第i次排序就是在a(i)~a(n)中找出最小的元素令其与a(i)交换。这样,n个记录的文件的直接选择排序可经过n-1趟直接选择排序得到有序结果。
转载请注明原文地址:https://kaotiyun.com/show/PUmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列不是事件处理机制角色的是( )。
运行下面的程序时,会产生( )。publicclassTest{publicstaticvoidmain(Stringargs[]){intx=0;inty
Java中,类FileInputStream和FileOutputStream提供了对文件的读/写方法是
下面代码的运行结果是publicclassTest{publicstaticvoidmain(Stringargs[]){for(inti=0;i<3;i++){if(i<2)
下面程序段:booleana=false;booleanb=true;booleanc=(a||b)&&(b);booleanresult=(a|b)&(b);执行完后,正确的结果是
设有数组定义:inta[]={11,22,33,44,55,66,77,88,99};则执行下列几个语句后的输出结果是______。for(inti=O;i<a.length;i++)if(a[i]%3==0)System.out.println(a
在文件类提供的方法中,用于创建目录的方法是.
Java中方法的参数传递是【】调用,方法不能改变参数值,但可以改变变量值,两个对象之间的参数字段不能相互交换。
通常使用哪一个方法来注册事件监听器______。
我们在Java程序中把关键字【】加到方法名称的前面,来实现子类调用父类的方法。
随机试题
腕部尺神经损伤的临床表现
图中红框内所示车辆可以怎样行驶?
下列属医护人员手上常住细菌的是
我国商务部应中国新闻纸产业100家企业代表的申请,对原产甲、乙、丙三国的新闻纸展开反倾销调查,经过调查做出最终裁定,对原产于该三国的新闻纸征收反倾销税,期限为4年。下列表述不正确的是哪项?()
电线或电缆在金属线槽内不宜有接头。但在易于检查的场所,可允许在线槽内有分支接头,电线、电缆和分支接头的总截面(包括外护层)不应超过该点线槽内截面的()。
教育史上最早出现的教学组织形式是()。
决定教育发展的规模和速度的是
你怎么理解“疑罪从无”?
住民代表が抗議に赴いたが、役所は____相手にしてくれない。
MembershipintheUnitedNationsisopentoallpeace-lovingstateswhichacceptthe______oftheCharter.
最新回复
(
0
)