2014年全國計算機二級VB上機考試試題八

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

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

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

　　【操作步驟】

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

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

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