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

admin2018-09-19  40

问题 在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
    要求:工程文件中已给出部分程序,“读数据”命令按钮的事件过程不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。
    注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。程序调试通过后,两个命令按钮的事件过程必须至少各执行一次。

选项

答案步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 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’当有交换就置标签为假 EndIf Next j If f Then’如果上次循环没有交换数据,则证明序列已排序好,则f为真退出循环 Exit For EndIf Next i 步骤3:调试并运行程序,关闭程序后按题目要求存盘,如图3.34。 [*]

解析 在“读数据”按钮的单击事件过程中,用Open语句以Input:方式打开数据文件in5.txt,在For循环语句和Do While语句中用Input#语句依次读出10个值并赋值给数组元素a(i)。在“排序”按钮的单击事件过程中,利用“冒泡法”对数组中的元素按从小到大进行排序。在“排序”按钮的单击事件过程中,利用For循环语句逐一将数组中各元素按顺序显示在文本框中,最后通过调用过程Save将文本框中的内容写入数据文件out5.txt。
转载请注明原文地址:https://jikaoti.com/ti/58m0FFFM
0

最新回复(0)