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

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

【答案】
1.设计窗体
    首先打开考生文件夹下的mode006.bas文件。然后单击工具箱中的文本框与控制按钮，在窗体上拖拉出两个控制按钮与文本框。控件间的相对位置如图所示。文本框的Name属性使用默认值；控制按钮的Name属性分别为Cmd1和Cmd2，Caption属性设为“读入数据”和“排序显示保存”。注意，为了完全显示所有的数据，应将Text1的MultiLine属性设为True,ScrollBars属性设为2，表示Text1可以使用垂直滚动条多行显示数据。
2.编写代码
    双击控制按钮进入代码窗口，编写如下程序：
Option Explicit
Dim i(1 To 100) As Integer
Private Sub Cmd1_Click()
   Dim j As Integer
   Open App.Path & "＼in006.txt" For Input As #1
   For j = 1 To 100
 Input #1, i(j)
 Text1.Text = Text1.Text & i(j) & Space(5)
   Next
   Close #1
End Sub
Private Sub Cmd2_Click()
   Dim j As Integer
   Dim k As Integer
   Dim temp As Integer
   Dim flag As Boolean
   For j = 1 To 100
  flag = False
    For k = 1 To 100 -j
 If i(k) ＜ i(k + 1) Then
   temp = i(k)
   i(k) = i(k +1)
   i(k + 1) = temp
   flag = True
 End If
    Next
    If Not flag Then
     Exit For
    End If
   Next
   Text1.Text = ""
   For j = 1 To 100
     Text1.Text = Text1.Text & i(j) & Space(5)
   Next
   putdata i, 100
End Sub
3.编写完后，运行程序进行调试，确定没有问题后，分别以djks006.frm、djks006.vbp文件名保存窗体文件与工程文件到考生文件夹下。然后保存执行一次完整的操作，把经过排序的数列保存到out006.txt。

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