三、綜合應用題

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

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

　　【操作步驟】

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

　　表 54-3

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

　　表 54-5

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

　　參考代碼：

　　Private Sub mnuCal_Click()

　　For i = 1 To 100 Step 2

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

　　sum = sum + Arr(i)

　　Next

　　Print sum

　　End Sub

　　Private Sub mnuRead_Click()

　　ReadData

　　End Sub

　　Private Sub mnuSave_Click()

　　WriteData "dw291.dat", sum

　　End Sub

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

　　編輯推薦：

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

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

　　2014年計算機等級考試時間