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

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

　　在名稱為Forml的窗體上添加兩個命令按鈕，其名稱分別為Cl和c2，標(biāo)題分別為“讀人數(shù)據(jù)”和“計算”(如圖所示)。程序運(yùn)行后，如果單擊“讀人數(shù)據(jù)”按鈕，則調(diào)用題目所提供的ReadDatal和ReadData2過程讀入datainl.txt和datain2.txt文件中的各20個整數(shù)，分別放入Arrl和Arr2兩個數(shù)組中;如果單擊“計算”按鈕，則把兩個數(shù)組中對應(yīng)下標(biāo)的元素相減，其結(jié)果放入第三個數(shù)組中(第1個數(shù)組的第n個元素減去第2個數(shù)組的第n個元素，其結(jié)果作為第3個數(shù)組的第n個元素。這里的n為1、2…20)，最后計算第3個數(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ù)的三個過程，只需適時調(diào)用它們，即在“讀人數(shù)據(jù)”和保存過程中調(diào)用;要把數(shù)組Arrl和Arr2中對應(yīng)下標(biāo)的元素相減并把結(jié)果存入第3個數(shù)組中，需利用For循環(huán)逐一取出Arrl和Arr2對應(yīng)元素;由于數(shù)組Arrl、Arr2及存儲第3個數(shù)組和的變量要跨過程使用，因此需定義成窗體級變量;調(diào)用過程WnteData時需傳遞兩個參數(shù)，分別是存入數(shù)據(jù)的文件名和存儲第3個數(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)

2018年等考報考資訊

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

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

2018等考各科備考資料

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

　　相關(guān)推薦：

　　2018年9月全國計算機(jī)等級考試試題匯總(各科目)

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

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

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

　　歷年真題匯總|考試吧策劃：2018年計算機(jī)等級考試報考指南