二、簡單應(yīng)用題

　　(1)在考生文件夾下有一個(gè)工程文件sit3.vbp，相應(yīng)的窗體文件為sit3.frm。其功能是隨機(jī)產(chǎn)生30個(gè)0～1000的整數(shù)，放入一個(gè)數(shù)組中，然后輸出其中的最小值。程序運(yùn)行后，單擊命令按鈕(名稱為Commandl，標(biāo)題為“輸出最小值”)，即可求出其最小值，并在窗體上顯示出來(如圖所示)。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并使其能正確運(yùn)行。

　　要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后將修改后的文件按原名存盤。

　　(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp，相應(yīng)的窗體文件為sit4.frm，在窗體上有一個(gè)文本框和一個(gè)命令按鈕。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0～1000范圍內(nèi)不能被7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算不能被7整除的整數(shù)的個(gè)數(shù)的操作在通用過程Fun中實(shí)現(xiàn)，請(qǐng)編寫該過程的代碼。

　　要求：請(qǐng)勿改動(dòng)程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入你編寫的若干語句。最后將修改后的文件按原文件名存盤。

　　參考答案

　　(1)【考點(diǎn)分析】本題考點(diǎn)有：Randomize語句、Rnd()函數(shù)、Int()函數(shù)、循環(huán)語句、判斷語句以及Print方法。

　　【解題思路】本題程序用變量Min記錄最小數(shù)，最初把數(shù)組的第一個(gè)元素的值賦給Min，然后通過For循環(huán)語句將其后的元素依次與之比較，如果其值小于Min，則將其賦值給Min，依次類推，最終Min的值就是數(shù)組各元素中的最小值。

　　【操作步驟】

　　步驟1：打開本題工程文件。

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符“′”，將問號(hào)改為正確的內(nèi)容。

　　參考答案(橫線部分是需考生填入的內(nèi)容)

　　OptionBase1

　　PrivateSubCommandl_Click()

　　DimarrN(30)AsInteger

　　DimMinAsInteger

　　RandomiZe

　　Fori=lTo30

　　arrN(i)：Int(Rnd+__________)

　　Nexti

　　__________=arrN(1)將第一個(gè)數(shù)賦給Min，以提供判斷

　　Fori=2T030

　　If__________

　　Then′比較最小值與其他數(shù)值，找出最小值

　　Min=arrN(i)

　　EndIf

　　Npxti

　　PrIntMin

　　EndSub

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

　　【易錯(cuò)提示】產(chǎn)生0～1000范圍內(nèi)的隨機(jī)數(shù)，應(yīng)該是RndX1000。

　　(2)【考點(diǎn)分析】本題考點(diǎn)有：Mod運(yùn)算符、文件編輯、For循環(huán)語句、If判斷語句以及過程函數(shù)。

　　【解題思路】可通過求余運(yùn)算符Mod來計(jì)算某數(shù)M能否被7整除，如果MMod7=0，那么M能被7整除;如果MMod7<>0，那么M不能被7整除�？衫肍or循環(huán)語句來逐個(gè)判斷0～1000范圍內(nèi)的整數(shù)能否被7整除，然后用一個(gè)變量來統(tǒng)計(jì)不能被7整除的整數(shù)個(gè)數(shù)。

　　【操作步驟】

　　步驟1：打開本題工程文件。

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

　　參考答案

　　FunctionFun()

　　DimSAsInteger，iAsInteger

　　Fori=0To1000。求0～1000中滿足條件的數(shù)

　　IfiMod7<>OThen

　　s=s+1′將滿足條件的數(shù)的個(gè)數(shù)累加

　　EndIf

　　Nexti

　　Fun=s’返回結(jié)果

　　EndFunction

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

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

2017等考考試報(bào)名信息

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

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

2017等考各科真題答案

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

　　相關(guān)推薦：

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

　　各地2017年全國計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總

　　2017年計(jì)算機(jī)等級(jí)考試備考經(jīng)驗(yàn)及應(yīng)試技巧匯總

　　【費(fèi)用】各地2017年全國計(jì)算機(jī)等級(jí)考試費(fèi)用匯總

　　各地2017年全國計(jì)算機(jī)等級(jí)考試準(zhǔn)考證打印時(shí)間匯總

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