二、簡單應用題

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

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

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

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

　　參考答案

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

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

　　【操作步驟】

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

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

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

　　OptionBase1

　　PrivateSubCommandl_Click()

　　DimarrN(30)AsInteger

　　DimMinAsInteger

　　RandomiZe

　　Fori=lTo30

　　arrN(i)：Int(Rnd+__________)

　　Nexti

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

　　Fori=2T030

　　If__________

　　Then′比較最小值與其他數值，找出最小值

　　Min=arrN(i)

　　EndIf

　　Npxti

　　PrIntMin

　　EndSub

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】產生0～1000范圍內的隨機數，應該是RndX1000。

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

　　【解題思路】可通過求余運算符Mod來計算某數M能否被7整除，如果MMod7=0，那么M能被7整除;如果MMod7<>0，那么M不能被7整除。可利用For循環語句來逐個判斷0～1000范圍內的整數能否被7整除，然后用一個變量來統計不能被7整除的整數個數。

　　【操作步驟】

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

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

　　參考答案

　　FunctionFun()

　　DimSAsInteger，iAsInteger

　　Fori=0To1000。求0～1000中滿足條件的數

　　IfiMod7<>OThen

　　s=s+1′將滿足條件的數的個數累加

　　EndIf

　　Nexti

　　Fun=s’返回結果

　　EndFunction

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

掃描/長按二維碼幫助考試通關

2018年等考報考資訊

2018等考各科通關技巧

2018各科最新預測試卷

2018等考各科備考資料

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

　　相關推薦：

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

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

　　2018年全國計算機等級考試復習知識點匯總(各科目)

　　2018全國計算機等級考試備考經驗及應試技巧匯總

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