二、綜合應(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ù)組中對應(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中對應(yīng)下標(biāo)的元素相減并把結(jié)果存入第3個(gè)數(shù)組中，需利用For循環(huán)逐一取出Arrl和Arr2對應(yīng)元素;由于數(shù)組Arrl、Arr2及存儲第3個(gè)數(shù)組和的變量要跨過程使用，因此需定義成窗體級變量;調(diào)用過程WnteData時(shí)需傳遞兩個(gè)參數(shù)，分別是存入數(shù)據(jù)的文件名和存儲第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中對應(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)閉程序后按題目要求存盤。

長按二維碼關(guān)注即可獲得等考資料

2017等考成績查詢時(shí)間

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

2017各科最新預(yù)測試卷

2017等考各科真題答案

微信搜索"考試吧"獲取更多考試資訊、備考資料

　　相關(guān)推薦：

　　2017年全國計(jì)算機(jī)等級考試考前必做試題及答案匯總

　　各地2017年3月計(jì)算機(jī)等考成績查詢時(shí)間|免費(fèi)查分提醒

　　計(jì)算機(jī)等級考試成績評定流程及標(biāo)準(zhǔn)|合格證書樣本及證書說明

　　歷年真題匯總|考試吧特別策劃：2017年計(jì)算機(jī)等級考試報(bào)考指南