三、綜合應(yīng)用
    在名稱為Form1的窗體上建立一個文本框Text1和兩個命令按鈕Cmd1和Cmd2，標(biāo)題分別為“讀入數(shù)據(jù)”和“排序顯示保存”（如圖所示）。程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)”按鈕，則讀入in006.txt文件中的100個整數(shù)，放入一個數(shù)組中（數(shù)組下界為1）；如果單擊“排序顯示保存”按鈕，則對這100個整數(shù)按從大到小進(jìn)行排序，把排序后的全部數(shù)據(jù)在文本框Text1中顯示出來，然后存入考生文件夾的out006.txt中。要求考生調(diào)用考生的文件夾下的標(biāo)準(zhǔn)模塊保存數(shù)據(jù)。

        注意：
    文件必須存放在考生文件夾下，窗體文件名為djks006.frm，工程文件名djks006.vbp，排序結(jié)果存入out006.txt，否則沒有成績。

【答案】
1.設(shè)計窗體
    首先打開考生文件夾下的mode006.bas文件。然后單擊工具箱中的文本框與控制按鈕，在窗體上拖拉出兩個控制按鈕與文本框。控件間的相對位置如圖所示。文本框的Name屬性使用默認(rèn)值；控制按鈕的Name屬性分別為Cmd1和Cmd2，Caption屬性設(shè)為“讀入數(shù)據(jù)”和“排序顯示保存”。注意，為了完全顯示所有的數(shù)據(jù)，應(yīng)將Text1的MultiLine屬性設(shè)為True,ScrollBars屬性設(shè)為2，表示Text1可以使用垂直滾動條多行顯示數(shù)據(jù)。
2.編寫代碼
    雙擊控制按鈕進(jìn)入代碼窗口，編寫如下程序：
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.編寫完后，運(yùn)行程序進(jìn)行調(diào)試，確定沒有問題后，分別以djks006.frm、djks006.vbp文件名保存窗體文件與工程文件到考生文件夾下。然后保存執(zhí)行一次完整的操作，把經(jīng)過排序的數(shù)列保存到out006.txt。

【解析】
    注意在設(shè)計控件時，一定要把Text1的MultiLine屬性設(shè)為True,ScrollBars屬性設(shè)為2。只有這樣，文本框才可以多行顯示。Cmd1的程序代碼部分主要是使用For循環(huán)語句逐一讀入in006.txt中的數(shù)據(jù)，并將它們賦給數(shù)組i。Cmd2的程序代碼仍然是通過兩個If語句循環(huán)使用“冒泡法”升序排列在Text1中顯示的數(shù)據(jù)。