2. 计算机
  3. 在考生文件夹中有一个工程文件sjt5．vbp。窗体外观如图所示。运行程序，单击“读数据”按钮，读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时，对读入的数据从小到大进行排序，并将排序结果在窗体的Label4控件中显示。

在考生文件夹中有一个工程文件sjt5．vbp。窗体外观如图所示。运行程序，单击“读数据”按钮，读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时，对读入的数据从小到大进行排序，并将排序结果在窗体的Label4控件中显示。

admin2018-05-08  61
问题  在考生文件夹中有一个工程文件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全国计算机二级

相关试题推荐
随机试题
最新回复(0)