2014年全國計算機(jī)二級VB上機(jī)考試試題五

　　三、綜合應(yīng)用題

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

　　注意：調(diào)用 WriteData 過程時需傳遞參數(shù) dw1.dat 和 Sum，變 Sum 應(yīng)聲明為窗體變 。

　　【操作步驟】

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

　　表 54-3

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

　　表 54-5

　　步驟 3：在代碼編輯窗口，分別編寫"讀數(shù)"、"計算"和"保存"按鈕的 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年上半年計算機(jī)等級考試報名時間及入口專題

　　各地2014年計算機(jī)等級考試費(fèi)用匯總

　　2014年計算機(jī)等級考試時間