首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为Cl、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat文件中的5
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为Cl、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat文件中的5
admin
2010-09-02
94
问题
在考生文件夹下有一个工程文件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[]){intd=101;intb=220;longa
通常我们使用哪个方法来为一个部件注册事件监听器
下列关于JDK目录结构的说法,错误的是
Java中方法的参数传递是【】调用,方法不能改变参数值,但可以改变变量值,两个对象之间的参数字段不能相互交换。
在传递给实现了java.awt.event.MouseMotionListener接口的类中,mouseDragged()方法的事件对象是______类。
数据独立性分为逻辑独立性与物理独立性。当数据的存储结构发生改变时,其逻辑结构可以不变,因此,基于逻辑结构的应用程序不必修改,称为______。
下面的程序是完成一个容器的例子,所缺部分正确的选项是( )。importjava.awt.*;publicclassMyFrameextendsFrame{publicstaticvoidmain(String
创建一个显示“选项”的菜单项对象mi的正确语句是______。
菜单编辑器可分为3个部分,即数据区、【】和菜单项显示区。
随机试题
特发性肺纤维化肺功能的特点是
设备承揽合同承揽人的义务为()。
下列关于其他项目清单计价表的叙述中,正确的是()。
按《注册建造师执业管理办法(试行)》规定,不属于机电工程注册建造师执业工程范围的是()等安装工程。
根据保险法律制度的规定,下列关于不定值保险合同的说法中正确的是()。
打击是社会治安综合治理的(),是落实综合治理其他措施的前提条件。
We’vebeenhavingthewrongdiscussionaboutglobalization.【F1】Foryears,we’vearguedoverwhetherthisorthatindustryandit
已知英文大写字母D的ASCII码的值是44H,那么英文字母G的ASCII码的值为十进制数
A、 B、 C、 D、 C图片上看不到(A)所提到的电脑屏幕,而且也不是(B)所说的购物场景。另外,也不像(D)所说的那样在买什么东西,所以正确答案是(C)。
TaskOne—Theindustriestheyreported•Forquestions13-17,matchtheextractswiththeindustries,listedA-H.•Foreach
最新回复
(
0
)