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

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

　　在窗體上建立三個菜單項(名稱分別為Read、Calc和Save，標(biāo)題分別為“讀入數(shù)據(jù)”、“計算并輸出”和“存盤”)，然后畫一個文本框(名稱為Text1，MultiLine屬性設(shè)置為True，ScrollBars屬性設(shè)置為2)(如圖所示)。程序運(yùn)行后，如果執(zhí)行“讀入數(shù)據(jù)”命令，則讀入datain1.txt文件中的100個整數(shù)，放入一個數(shù)組中，數(shù)組的下界為1; 如果單擊“計算并輸出”命令，則把該數(shù)組中可以被3整除的元素在文本框中顯示出來， 求出它們的和，并把所求得的和在窗體上顯示出來;如果單擊“存盤”命令，則把所求得的和存入考生文件夾下的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，相應(yīng)的窗體文件名為sjt5.frm。

　　由于所提供的窗體控件不完整，通過菜單編輯器建立三個菜單，在菜單編輯器的標(biāo)題處分別輸入“讀入數(shù)

　　據(jù)”、“計算并輸出”和“存盤”，名稱處分別輸入為Read、Calc、Save。畫一個文本框控件，通過其屬性窗口將名稱設(shè)為Text1，多行(MultiLine屬性)設(shè)為True，滾動條(ScrollBars屬性)設(shè)為2。

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

　　執(zhí)行“讀入數(shù)據(jù)”命令(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Read_Click()

　　ReadData

　　End Sub

　　執(zhí)行“計算并輸出”命令(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Calc_Click()

　　Dim S As String

　　Sum = 0

　　For i = 1 To 100

　　If Int(Arr(i) / 3) = Arr(i) / 3 Then

　　Sum = Sum + Arr(i)

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

　　End If

　　Next i

　　Text1.Text = S

　　Print "Sum = "; Sum

　　End Sub

　　執(zhí)行“存盤”命令(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Save_Click()

　　WriteData "DataOut.txt", Sum

　　End Sub

　　變量Sum存放和的結(jié)果，它在幾個事件過程中都要使用，所以定義成全局變量，即在聲明部分加入語句：

　　Dim Sum As Integer

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

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

　　相關(guān)推薦：

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

　　2012年計算機(jī)等級考試二級VB重點(diǎn)知識匯總

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