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

　　在考生文件夾下有一個(gè)工程文件sjt5.vbp，按照要求完成以下操作：

　　在名稱為Forml的窗體上添加兩個(gè)命令按鈕，其名稱分別為Cl和c2，標(biāo)題分別為“讀人數(shù)據(jù)”和“計(jì)算”(如圖所示)。程序運(yùn)行后，如果單擊“讀人數(shù)據(jù)”按鈕，則調(diào)用題目所提供的ReadDatal和ReadData2過程讀入datainl.txt和datain2.txt文件中的各20個(gè)整數(shù)，分別放入Arrl和Arr2兩個(gè)數(shù)組中;如果單擊“計(jì)算”按鈕，則把兩個(gè)數(shù)組中對(duì)應(yīng)下標(biāo)的元素相減，其結(jié)果放入第三個(gè)數(shù)組中(第1個(gè)數(shù)組的第n個(gè)元素減去第2個(gè)數(shù)組的第n個(gè)元素，其結(jié)果作為第3個(gè)數(shù)組的第n個(gè)元素。這里的n為1、2…20)，最后計(jì)算第3個(gè)數(shù)組各元素之和，把所求得的和在窗體上顯示出來;并調(diào)用題目中給出的WriteData過程將所求得的和存人考生文件夾下的dataout.txt文件中。

　　注意：考生不得修改窗體文件中已經(jīng)存在的程序，且必須執(zhí)行一次，最后將修改后的文件以原來的文件名存盤。

　　參考答案

　　【考點(diǎn)分析】本題考點(diǎn)有：命令按鈕的Name和Caption屬性、OptionBase數(shù)組下標(biāo)、Call語句、Print方法、For循環(huán)語句以及文件操作。

　　【解題思路】本題源程序已給出讀文件中的數(shù)據(jù)和向文件中寫數(shù)據(jù)的三個(gè)過程，只需適時(shí)調(diào)用它們，即在“讀人數(shù)據(jù)”和保存過程中調(diào)用;要把數(shù)組Arrl和Arr2中對(duì)應(yīng)下標(biāo)的元素相減并把結(jié)果存入第3個(gè)數(shù)組中，需利用For循環(huán)逐一取出Arrl和Arr2對(duì)應(yīng)元素;由于數(shù)組Arrl、Arr2及存儲(chǔ)第3個(gè)數(shù)組和的變量要跨過程使用，因此需定義成窗體級(jí)變量;調(diào)用過程WnteData時(shí)需傳遞兩個(gè)參數(shù)，分別是存入數(shù)據(jù)的文件名和存儲(chǔ)第3個(gè)數(shù)組和的變量;語句0ptionBase1用于限定數(shù)組下標(biāo)的下限，默認(rèn)為1。

　　【操作步驟】

　　步驟1：打開本題工程文件，按照題目要求建立命令按鈕控件并設(shè)置命令按鈕的相應(yīng)屬性，程序中用到的控件及屬性見表3.23。

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

　　參考答案

　　PrivateSubCl_Click()

　　CallReadDatal′調(diào)用過程ReadDatal

　　CallReadData2′調(diào)用過程ReadData2

　　EndSub

　　PrivateSubC2_Click()

　　DimArr3(1To20)AsInteger

　　DimsumAsInteger

　　sum=0

　　Fori=1T020′將Arrl中對(duì)應(yīng)于Arr2中的數(shù)

　　相減，結(jié)果存入Arr3中

　　Arr3(i)=Arrl(i)-Arr2(i)

　　sum=sum+Arr3(i)將Arr3中的元素累加

　　Nexti

　　Print”sum=";sum′在窗體打印sum

　　WriteData"dataout.txt"，sum

　　EndSub

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

掃描/長(zhǎng)按二維碼幫助考試通關(guān)

2018年等考報(bào)考資訊

2018等考各科通關(guān)技巧

2018各科最新預(yù)測(cè)試卷

2018等考各科備考資料

微信搜索"考試吧"了解更多考試資訊、下載備考資料

　　相關(guān)推薦：

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試必做試題匯總(各科目)

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試復(fù)習(xí)知識(shí)點(diǎn)匯總(各科目)

　　2018全國(guó)計(jì)算機(jī)等級(jí)考試備考經(jīng)驗(yàn)及應(yīng)試技巧匯總