首頁 - 網(wǎng)校 - 萬題庫 - 美好明天 - 直播 - 導(dǎo)航
您現(xiàn)在的位置: 考試吧 > 計算機(jī)等級考試 > 計算機(jī)二級考試 > VB > 模擬試題 > 正文

2018年9月計算機(jī)二級VB強(qiáng)化提分試題及答案(5)

來源:考試吧 2018-08-14 13:37:43 要考試,上考試吧! 萬題庫
“2018年9月計算機(jī)二級VB強(qiáng)化提分試題及答案(5)”供考生參考。更多計算機(jī)等級考試模擬試題等信息請?jiān)L問考試吧計算機(jī)等級考試網(wǎng)。
第 1 頁:單選題
第 2 頁:簡單應(yīng)用題

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

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

2018年9月計算機(jī)二級VB強(qiáng)化提分試題及答案(5)

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

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

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

  參考答案

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

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

  【操作步驟】

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

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

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

  OptionBase1

  PrivateSubCommandl_Click()

  DimarrN(30)AsInteger

  DimMinAsInteger

  RandomiZe

  Fori=lTo30

  arrN(i):Int(Rnd+__________)

  Nexti

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

  Fori=2T030

  If__________

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

  Min=arrN(i)

  EndIf

  Npxti

  PrIntMin

  EndSub

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

  【易錯提示】產(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來計算某數(shù)M能否被7整除,如果MMod7=0,那么M能被7整除;如果MMod7<>0,那么M不能被7整除?衫肍or循環(huán)語句來逐個判斷0~1000范圍內(nèi)的整數(shù)能否被7整除,然后用一個變量來統(tǒng)計不能被7整除的整數(shù)個數(shù)。

  【操作步驟】

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

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

  參考答案

  FunctionFun()

  DimSAsInteger,iAsInteger

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

  IfiMod7<>OThen

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

  EndIf

  Nexti

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

  EndFunction

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

掃描/長按二維碼幫助考試通關(guān)
2018年等考報考資訊
2018等考各科通關(guān)技巧
2018各科最新預(yù)測試卷
2018等考各科備考資料

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

上一頁  1 2 

  相關(guān)推薦:

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

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

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

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

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

0
收藏該文章
0
收藏該文章
文章搜索
萬題庫小程序
萬題庫小程序
·章節(jié)視頻 ·章節(jié)練習(xí)
·免費(fèi)真題 ·模考試題
微信掃碼,立即獲取!
掃碼免費(fèi)使用
版權(quán)聲明:如果計算機(jī)等級考試網(wǎng)所轉(zhuǎn)載內(nèi)容不慎侵犯了您的權(quán)益,請與我們聯(lián)系800@exam8.com,我們將會及時處理。如轉(zhuǎn)載本計算機(jī)等級考試網(wǎng)內(nèi)容,請注明出處。
Copyright © 2004- 考試吧計算機(jī)等級考試網(wǎng) 出版物經(jīng)營許可證新出發(fā)京批字第直170033號 
京ICP證060677 京ICP備05005269號 中國科學(xué)院研究生院權(quán)威支持(北京)
在線模擬試題
考證通關(guān)殺器
考試最新資訊
學(xué)
一次通關(guān)技巧