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

　　【審題分析】在讀取按鈕的單擊事件過程中，用 Open 語句以 Input 方式打開數(shù)據(jù)文件 dr1.dat，通過 For 循環(huán)語句(循環(huán)變i的初值為 1，終值為 100)將數(shù)據(jù)文件中的數(shù)據(jù)用 Input 語句依次讀出并賦值給數(shù)組元素 a(i)，同時(shí)顯示在文本框中，每個(gè)數(shù)據(jù)項(xiàng)后接 5 個(gè)空格(Space(5))以保持一定間隔。在保存按鈕的單擊事件過程中，使用 For 循環(huán)語句(循環(huán)變i 的初值為 1，終值為 50)將數(shù)組中前 50 個(gè)元素的值累加到變 Sum 中，循環(huán)結(jié)束后通過調(diào)用標(biāo)準(zhǔn)模塊中的 writedata 過程(以 Sum 為參數(shù))，將結(jié)果寫入數(shù)據(jù)文件 dw2.dat。

　　【操作步驟】

　　步驟 1：新建一個(gè)標(biāo)準(zhǔn) EXE工程。

　　步驟 2：在窗體 Form1 中加入一個(gè)文本框和兩個(gè)命令按鈕，并分別設(shè)置他們的相關(guān)屬性，屬性及其值見表 56-5。

　　步驟 3：選擇【工程】?【添加模塊】命令，打開添加模塊對(duì)話框，將考生文件夾下的model.bas 添加到當(dāng)前工程中。

　　步驟 4：打開代碼編輯窗口輸入如下代碼：

　　Dim a(1 To 100) As Integer

　　Private Sub Cmd1_Click()

　　Open App.Path & \dr1.dat For Input As #1

　　Txt1.Text =

　　For i = 1 To 100

　　Input #1, a(i)

　　Txt1.Text = Txt1.Text & a(i) & Space(1)

　　Next i

　　Close #1

　　End Sub

　　Private Sub Cmd2_Click()

　　Txt1.Text =

　　s = 0

　　For i = 1 To 50

　　s

　　Next

　　= s + a(i)

　　Txt1.Text = s

　　writedata dw2.dat, s

　　End Sub

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

　　【考試誤區(qū)】本題主要事件過程代碼要求考生自己設(shè)計(jì)，因此理清程序運(yùn)行流程是關(guān)鍵。

　　編輯推薦：

　　2014年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間及入口專題

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

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