三、綜合應用題

　　【審題分析】本題源程序已提供 ReadData 和 WriteData 兩個自定義過程，只需編寫"讀數"、"計算"和"保存"命令的單擊事件過程，并在事件過程中調用 ReadData 和 WriteData自定義過程。程序設計思路：在"讀數"菜單項的 Click 事件過程中，通過調用 ReadData過程將數據從 dr1.dat 文件讀入到數組 Arr(窗體變)中;在"計算"菜單項的 Click 事 件過程中，利用 For 循環語句(循環變i 的初值為 1，終值為 100)依次將數組 Arr 中小于 50 的元素的值顯示在文本框中(條件表達式為 Arr(i)<50)，并將其值累加到變 Sum，循環結束后將結果顯示在窗體上。在"保存"菜單項的 Click 事件過程中，通過調用WriteData 過程將 Sum 的值寫入數據文件 dw3.dat。

　　注意：調用 WriteData 過程時需傳遞參數 dw3.dat 和 Sum，變Sum 應聲明為窗體變

　　【操作步驟】

　　步驟 1：打開考生文件下的本題工程文件 vbsj5.vbp，利用菜單設計器，按表 57-5 中的設置建立菜單項。

　　步驟 2：在窗體 Form1 中畫一個文本框，其相關屬性及其值見表 57-6。

　　步驟 3：在代碼編輯窗口，分別編寫"讀數"、"計算"和"保存"按鈕的 Click 事件過程。

　　參考代碼：

　　Dim sum As Integer

　　Private Sub mnuCalc_Click()

　　For i = 1 To 100

　　If Arr(i) < 50 Then

　　Txt1.Text = Txt1.Text & Arr(i) & Space(5)

　　sum = sum + Arr(i)

　　End If

　　Next

　　Print sum

　　End Sub

　　Private Sub mnuRead_Click()

　　ReadData

　　End Sub

　　Private Sub mnuSave_Click()

　　WriteData "dw3.dat", sum

　　End Sub

　　步驟 4：按要求將文件保存至考生文件夾中。

　　編輯推薦：

　　2014年上半年計算機等級考試報名時間及入口專題

　　各地2014年計算機等級考試費用匯總

　　2014年計算機等級考試時間