首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
admin
2018-05-08
50
问题
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
要求:工程文件中已给出部分程序,“读数据”命令按钮的事件过程不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。程序调试通过后,两个命令按钮的事件过程必须至少各执行一次。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(10) As Integer Public Sub Save() Open App.Path & "\out5.txt" For Output As #1 Print #1, Label4.Caption Close #1 End Sub Private Sub Command1_Click() Open App.Path & "\Data5.txt" For Input As #1 ’ Do While Not ? For i = 1 To 10 Input #1, a(i) ’ s = s & ? Next i Loop Close #1 Label2.Caption = s End Sub Private Sub Command2_Click() ’=====以下考生编写程序开始======== ’=====考生编写程序结束========== For i = 1 To 10 s = s & Str(a(i)) Next i Label4.Caption = s Save End Sub 程序结束 参考答案 第1个?处填入:EOF(1) 第2个?处填入:a(i) For i = 1 To 10 f = True For j = 1 To 9 If a(j) > a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t f = False End If Next j If f Then Exit For End If Next i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/deGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下选项中,不合法的VisualBasic的变量名是
现有如下程序:PrivateSubCommandl_Click()s=0Fori=1To5s=s+f(5+i)Next
下列关于控件数组的叙述中,正确的是
假定通过复制、粘贴操作建立了一个命令按钮数组Commandl,以下说法中错误的是
编写如下程序:PrivateSubCommandl_Click()Dima(3,3)AsInteger,b(3,3)AsIntegerFori=1To3For
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivateSubCommandl_Click()Dimx%,y%,z%x=InputBox(”请输入第1个整数”):y=Inp
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()DimiAsInteger,nAsInteger
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
以下关于过程及过程参数的描述中,错误的是
要想使列表框只允许单选列表项,应设置的属性为
随机试题
关于肾性贫血的发生机制正确的有
(religion)AholymaninIndiasitsstilltherewithallattentiontohis________contemplation,freeevenofhisownbody.
甲公司于2001年5月10日向专利行政部门提出专利申请,5月15日,发现乙公司于2000年12月以来一直使用相同方法制造产品,甲公司可以诉乙公司侵害其专利权。()
Therewasan______ofdiscontentonherface.
妊娠期龈炎牙菌斑中,主要致病菌是
既治风湿热痹,又治湿热黄疸的药物是()
背景资料某二级公路的主要工序如下表:施工单位编制了如下网络计划:施工中发生了如下事件:事件一:由于施工单位设备故障,导致C工作中断4天。事件二:由于百年一遇的冰雪灾害,导致D工作晚开工15天。事件三:由于图纸晚到,导致E工作停工10天。针
用试算插值法计算财务内部收益率,已知i1=16%,FNPV1=20,i2=18%,FNPV2=-80,则该项目的财务内部收益率FIRR:( )。
以下不属于直客式办理的,贷款申请人需提供的材料的是()。
【2014.北京】影响创造性的主要因素。
最新回复
(
0
)