首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
admin
2020-06-30
32
问题
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Text1中显示出来;“排序”按钮的功能是对这50个数按升序排序,并显示在Text2中;“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中,如图所示。在窗体中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写“排序”按钮的Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,并编写代码。 参考答案(阴影部分是需考生填入的内容) Dim a(50)As Integer Private Sub C1_Click() Dim k As Integer,ch As String Open"in5.dat"For Input As #1 ch="" For k=1 To 50 Input #1,
a(k)
’将取出的数据存入数组a中 ch=ch+Str(a(k))+""’将数据存入ch Next k Close #1 Text1.Text=
ch
’在Text1文本框中显示文件内容 End Sub Private Sub C2 Click() End Sub Private Sub C3 Click() Open"out5.dat"For Output As #1 Print #1,Text2.Text Close #1 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 T0 50’将排序后的数组重新赋给ch ch=ch+Str(a(j))+"" Next j Text2.Text=ch End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
str函数用于数值转化为字符串,语法为:Str(number)。
在循环语句中Step表示步长,可以为正数,表示下一个变量加一个数,也可以为负数,则相反,在默认情况下,步长为1,就不需要使用Step特意标识。
“冒泡法”是一种重要的数据排序算法,它的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较,如果该数大于其后面的数,则把这两个位置的数进行交换。通过这样的循环,最终按照从小到大的顺序排列出该数列。从程序提供的代码中可以看出,整型数组a的使用范围是本窗体中的所有事件过程,用来存放从文件中读取的数据。在排序中,使用双重循环,外循环每循环一次,确定内循环循环的次数,内循环就是把本次循环中最大的数,放在数组的最后面,这样就可以实现对这50个数的升序排序。
转载请注明原文地址:https://kaotiyun.com/show/b6Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Commandl,标题为“输出小
有如下程序:PrivateSubForm_Click() DimiAsInteger,nAsInteger Fori=1To20 i=i+4 n=n+i Ifi>10ThenExitFor
用来设置文字字体是否斜体的属性是( )。
以下关于VB特点的叙述中,错误的是
任何控件都具有的属性为
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPrivateSubFo
有三个关系R、S和T如下:其中关系T由关系R和S通过某种操作得到,该操作为()。
能够用于标识对象名称的属性是
如果把程序的启动对象设置为:SubMain,则SubMain过程
假定有以下程序段Fori=1To3Fori=5To1Step—1Printi*iNextjNexti则语句Printi*j的执行次数是
随机试题
下列能增加药物溶解度的方法有()。
A、“三多,一少”B、乎吸加深、加快有酮味C、对称性肢体隐痛或烧灼痛,并有异样分布D、下肢疼痛,出现严重供血不足可致肢端坏疽E、反复发生疖肿末梢神经炎()
A.持续性腹痛B.疼痛一排便一加重C.进食一疼痛一缓解D.疼痛一进食一缓解E.疼痛一排便一缓解结核性腹膜炎腹痛规律是
导致慢性肺心病最常见的疾病是
已知正常成人尿铅含量为偏态分布,其95%参考值范围的计算公式是()。
背景A公司中标承建一大型电力装备制造厂的全部机电工程,总承包合同约定,A公司除完成关键设备安装外,其余公用工程和辅助工程可自行分包给各专业公司施工,A公司实行总包管理,对全面履行总承包合同负责,为此A公司成立了综合调度机构。在一次例行的全场实地
某保洁公司以员工小琴不能胜任工作为由,解除了与小琴的劳动合同,并按当地最低工资标准支付了当月工资800元。小琴向劳动争议仲裁委员会申请仲裁,要求公司另支付赔偿金1600元。劳动争议仲裁委员会裁决要求保洁公司向小琴支付800元。双方对裁决均不服。下列做法中,
简述教师劳动的特点。
中国共产党在残酷的战争年代和异常艰苦的环境下,能够生存,并不断发展壮大,一个重要原因就在于它的思想上的先进性,通过广大党员外在的优良作风得到了活生生的体现。在党的七大中,毛泽东将党长期形成的优良作风作了理论概括,其内容不包括()
A、 B、 C、 B
最新回复
(
0
)