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

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

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

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

　　注意：

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

　　解題思路：

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

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

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

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

　　Private Sub Read_Click()

　　ReadData

　　End Sub

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

　　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

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

　　Private Sub Save_Click()

　　WriteData "DataOut.txt", Sum

　　End Sub

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

　　Dim Sum As Integer

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

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

　　相關(guān)推薦：

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

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

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