2012年計算機二級VB上機試題及解題思路第三十套

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

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

　　在窗體上建立三個菜單(名稱分別為Read、Calc和Save，標題分別為“讀入數(shù)據(jù)”、“計算并輸出”和“存盤”)，然后畫一個文本框(名稱為Text1，MultiLine屬性設置為True，ScrollBars屬性設置為2)(如圖所示)。程序運行后，如果執(zhí)行“讀入數(shù)據(jù)”命令，則讀入datain1.txt文件中的100個整數(shù)， 放入一個數(shù)組中，數(shù)組的下界為1;如果單擊“計算并輸出”按鈕，則把該數(shù)組中小于50的元素在文本框中顯示出來，求出它們的和，并把所求得的和在窗體上顯示出來;如果單擊“存盤”按鈕，則把所求得的和存入考生文件夾下的dataout.txt文件中。

　　在考生文件夾下有一個工程文件sjt5.vbp，考生可以裝入該文件。窗體文件中的ReadData過程可以把datain1.txt文件中的100個整數(shù)讀入Arr數(shù)組中;而 WriteData過程可以把指定的整數(shù)值寫到考生文件夾下指定的文件中(整數(shù)值通過計算求得，文件名為dataout.txt)。

　　注意：

　　考生不得修改窗體文件中已經(jīng)存在的程序。存盤時，工程文件名仍為sjt5.vbp，窗體文件名仍為sjt5.frm。

　　解題思路：

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

　　由于所提供的窗體控件不完整，通過菜單編輯器建立三個菜單，在菜單編輯器的標題處分別輸入“讀入數(shù)據(jù)”、“計算并輸出”和“存盤”，名稱處分別輸入“Read”、“Calc”和“Save”。再畫一個文本框控件，通過其屬性窗口將名稱設為Text1，MultiLine屬性設為True，ScrollBars屬性設為2。

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

　　單擊“讀入數(shù)據(jù)”菜單(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Read_Click()

　　ReadData

　　End Sub

　　單擊“計算并輸出”菜單(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Calc_Click()

　　Dim S As String

　　Sum = 0

　　For i = 1 To 100

　　If Arr(i) < 50 Then

　　Sum = Sum + Arr(i)

　　S = S & Str(Arr(i)) & " "

　　End If

　　Next i

　　Text1.Text = S

　　Print "Sum = "; Sum

　　End Sub

　　單擊“存盤”菜單(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Save_Click()

　　WriteData "DataOut.txt", Sum

　　End Sub

　　變量Sum在不同的事件過程中都要使用，所以要定義成全局變量，在聲明部分加入語句：

　　Dim Sum As Integer

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

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

　　相關推薦：

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

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

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