綜合操作題

　　5在窗體上建立三個(gè)菜單(名稱分別為Read、Cale和Save，標(biāo)題分別為“讀人數(shù)據(jù)”、“計(jì)算并輸出”和“存盤”)，然后再添加一個(gè)文本框，名稱為Text1，MuhiLine屬性設(shè)置為True，ScrollBars屬性設(shè)置為2(如圖所示)。程序運(yùn)行后，如果執(zhí)行“讀人數(shù)據(jù)”命令，則讀入考生文件夾下datain1.txt文件中的100個(gè)整數(shù)，放人一個(gè)數(shù)組中，數(shù)組的下界為1;如果單擊“計(jì)算并輸出”按鈕，則把該數(shù)組中下標(biāo)為偶數(shù)的元素在文本框中顯示出來，求出它們的和，并把所求得的和在窗體上顯示出來;如果單擊“存盤”按鈕，則把所求得的和存入考牛文件夾下的dataout.txt文件中。

　　在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體文件中的ReadData過程可以把datainl.txt文件中的100個(gè)整數(shù)讀入Arr數(shù)組中;而WriteData過程可以把指定的整數(shù)值寫到考生文件夾下指定的文件中(整數(shù)值通過計(jì)算求得，文件名為dataout.txt)。

　　注意：考生不得修改窗體文件中已經(jīng)存在的程序。存盤時(shí)，工程文件名仍保存為sit5.vbp，窗體文件名仍保存為sjt5.frm。

　　參考解析：

　　【考點(diǎn)分析】本題考點(diǎn)有：文本框的Name、MultiLine、SerollBars和Text屬性，文件操作，菜單編輯器的使用(名稱、標(biāo)題、內(nèi)縮符號(hào))，Art()函數(shù)以及Space()函數(shù)。

　　【解題思路】根據(jù)題意在“讀人數(shù)據(jù)”命令的Click事件過程中，通過調(diào)用ReadData過程將數(shù)據(jù)從datainl.txt文件讀入到數(shù)組Arr(窗體變量)中;在“計(jì)算并輸出”命令的Click事件過程中，在For循環(huán)語(yǔ)句(循環(huán)變量i的初值為2，終值為100，步長(zhǎng)為2)中依次將數(shù)組Art中下標(biāo)為偶數(shù)的元素顯示在文本框中，并將其值累加到變量sum;在“存盤”命令的Click事件過程中，通過調(diào)用WriteData過程將sum的值寫入數(shù)據(jù)文件dataout.txt中。

　　【操作步驟】

　　步驟1：打開本題工程文件，利用菜單設(shè)計(jì)器，按表中的設(shè)置建立菜單項(xiàng)，在窗體Form1中繪制一個(gè)文本框，其相關(guān)屬性及其值見表3.19和表3.20。

　　步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。

　　參考答案：

　　´需要考生編寫的內(nèi)容

　　Dim Sum As integer

　　考生編寫程序結(jié)束

　　´需要考生編寫的內(nèi)容

　　Private Sub Calc_Click()

　　Text1.Text=""

　　For i=2 To 100 Step2’從2開始循環(huán)，以2為步長(zhǎng)的下標(biāo)都是偶數(shù)

　　Text1.Text;=Text1.Text&Art(i)&

　　Space(5)

　　Sum=Sum+Arr(i)。對(duì)下標(biāo)為偶數(shù)的值求和

　　Next i

　　Print sum

　　End Sub

　　Private Sub Read_Click()

　　ReadData'調(diào)用ReadData子過程

　　End Sub

　　Private Sub Save_Click()´調(diào)用Save_Click函數(shù)

　　WriteData"dataout.txt"，sum

　　End Sub

　　´考生編寫程序結(jié)束

　　步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

　　【易錯(cuò)提示】調(diào)用WriteData過程時(shí)需傳遞參數(shù)dataout.txt和sum，變量sum應(yīng)為窗體變量。

　　相關(guān)推薦：

　　2015年計(jì)算機(jī)二級(jí)《MSOffice》全真模擬試題匯總

　　2015計(jì)算機(jī)二級(jí)《C語(yǔ)言程序設(shè)計(jì)》無紙化操作題匯總