3. 綜合應用(1小題，計30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生文件夾下有一個工程文件sjt5.vbp，窗體上有兩個文本框， 名稱為Text1、Text2，都可以多行顯示。還有三個命令按鈕，名稱分別為C1、 C2、C3，標題分別為“取數(shù)”、“排序”、“存盤”�！叭�數(shù)”按鈕的功能是把考生目錄下的in5.dat文件中的50個整數(shù)讀到數(shù)組中，并在Text1中顯示出來;

　　“排序”按鈕的功能是對這50個數(shù)按升序排序，并顯示在Text2中;“存盤”按鈕的功能是把排好序的50個數(shù)存到考生目錄下的out5.dat文件中。如圖所示。在窗體中已經(jīng)給出了全部控件和部分程序，要求閱讀程序并去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容，并編寫“排序”按鈕的Click事件過程，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，需添加事件過程。

　　執(zhí)行“排序”命令(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub C2_Click()

　　Dim k As Integer, i As Integer, j As Integer, ch As String

　　For i = 1 To 49

　　k = i

　　For j = i + 1 To 50

　　If a(k) > a(j) Then

　　k = j

　　End If

　　Next j

　　j = a(k)

　　a(k) = a(i)

　　a(i) = j

　　Next i

　　ch = ""

　　For k = 1 To 50

　　ch = ch + Str(a(k)) + " "

　　Next k

　　Text2.Text = ch

　　End Sub

　　在“取數(shù)”按鈕的Private Sub C1_Click()中，有二處地方需要修改。

　　1) 將語句

　　'Input #1, ?

　　改為

　　Input #1, a%(k%)

　　2) 將語句

　　'Text1.Text = ?

　　改為

　　Text1.Text = ch$

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運行。

　　相關推薦：

　　2012年計算機等考四級數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總