[问答题] 在名称为Form1的窗体上建立一个文本框Text1和两个命令按钮Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”(如图所示)。程序运行后，如果单击“读入数据”按钮，则读入in0

[问答题] 在名称为Form1的窗体上建立一个文本框Text1和两个命令按钮Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”(如图所示)。程序运行后，如果单击“读入数据”按钮，则读入in006.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序显示保存”按钮，则对这100个整数按从大到小进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹的out006.txt中。要求考生调用考生文件夹下的标准模块保存数据。



注意：
文件必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名sjt5.vbp，排序结果存入out006.txt，否则没有成绩。

参考答案：

第一步：设计窗体 首先打开考生文件夹下的mode006.bas文件。然后单击工具箱中的文本框与控制按钮，在窗体上拖拉出两个控制按钮与文本框，控件间的相对位置如图所示。文本框的Name属性使用默认值；控制按钮的Name属性分别为Cmd1和Cmd2，Caption属性设为“读入数据”和“排序显示保存”。注意，为了完全显示所有的数据，应将Text1的MultiLine属性设为True，ScrollBars属性设为2，表示Text1可以使用垂直滚动条多行显示数据。 第二步：编写代码 双击控制按钮进入代码窗口，编写如下程序： 1 Option Explicit 2 Dim i(i To 100)As Integer 3 Private Sub Cmd1_Click( ) 4 Dim j As Integer 5 Open App. Path &"in006.txt"For Input As #1 6 For j=1 To 100 7 Input #1，i(j) 8 Text1.Text=Text1.Text &i(j) & Space(5) Next 10 Close #1 11 End Sub 12 Private Sub Cmd2_Click( ) 13 Dim j As Integer 14 Dim k As Integer 15 Dim temp As Integer 16 Dim flag As Boolean 17 For j=1 To 100 18 flag=False 19 For k=1 To 100-j 20 If i(k)＜i(k+1)Then 21 temp=i(k) 22 i(k)=i(k+1) 23 i(k+1)=temp 24 flag=True 25 End If 26 Next 27 If Not flag Then 28 Exit For 29 End If 30 Next 31 Text1.Text="" 32 For j=1 To 100 33 Text1.Text=Text1.Text & i(j) & Space(5) 34 Next 35 putdata i，100 36 End Sub 第三步：编写完后，运行程序进行调试，确定没有问题后，分别保存窗体文件与工程文件到考生文件夹下。然后执行一次完整的操作，把经过排序的数列保存到out006.txt。

问题解析:

注意在设计控件时，一定要把Text1的MuhiLine属性设为True，ScrollBars属性设为2。只有这样，文本框才可以多行显示。Cmd1的程序代码部分主要是使用For循环语句逐一读入in006.txt中的数据，并将它们赋给数组i。Cmd2的程序代码仍然是通过两个If语句循环使用“冒泡法”升序排列在Text1中显示的数据。