高中信息技術(shù)VB循環(huán)語句瀏覽題閱覽題會考復(fù)習(xí)題

第頁高中信息技術(shù)VB循環(huán)語句瀏覽題閱覽題會考復(fù)習(xí)題學(xué)校:___________姓名：___________班級：___________考號：___________評卷人得分一、選擇題1．以下程序運(yùn)行后運(yùn)行結(jié)果為▁▁▁。X=8：Y=X：Z=10IFX<=YTHENPRINTX；Y；ELSEIFZ>=XTHENPRINTZENDIFENDIFA．108B．88C．1010D．810【答案】B【解析】2．?dāng)?shù)組排序。點(diǎn)擊“產(chǎn)生隨機(jī)數(shù)〞按鈕，讓計算機(jī)隨機(jī)產(chǎn)生10個整數(shù)，并對這10個整數(shù)進(jìn)展標(biāo)號，再點(diǎn)擊“排序〞按鈕，對這10個整數(shù)進(jìn)展從大到小排序。如下圖。程序代碼如下：Dima(1To10)AsIntegerDimi,j,k,ktAsIntegerPrivateSubCommand1_Click()List1.Clear'去除列表框數(shù)據(jù)Fori＝1To10Randomize'隨機(jī)數(shù)初始化a(i)＝Int(Rnd()*1000)List1.AddItemStr(i)＋〞＝〞＋Str(a(i))NextiCommand2.Enabled＝True'激活排序按鈕EndSubPrivateSubCommand2_Click()Fori＝1To9k＝iForj＝____①____To10Ifa(j)>a(k)Thenk＝j(luò)NextjIfi<>kThen__②____EndIfNextiFori＝1To10List2.AddItemStr(i)＋〞＝〞＋Str(a(i))NextiEndSub請在①、②劃線處填入適宜語句或表達(dá)式，把程序補(bǔ)充完整：程序中①劃線處應(yīng)填入__________________；程序中②劃線處應(yīng)填入__________________?！敬鸢浮竣買+1；②t=a〔k〕:a(k)=a(i):a(i)=t【解析】3．由“Fork=35To0Step3:Nextk〞循環(huán)語句控制循環(huán)次數(shù)是_______。A、12 B、0 C、-10 D、-11【答案】B【解析】4．Subtest7()Fori=1To6S=S+(-1)^i*2^iNextiMsgBox(S)Endsub該程序運(yùn)行結(jié)果是〔〕A、126B、-126C、-42D、42【答案】D【解析】5．Subtest2()a=12：b=12：c=5Label1.Caption=""Label2.Caption=""Ifa>bOrNotb<cThenLabel1.Caption="monday"ElseLabel2.Caption="tiger"EndIfEndsub該程序段運(yùn)行后，在標(biāo)簽Label3Caption屬性值是()A．"monday"B．"tiger"C．"mondaytiger"D．""【答案】A【解析】6．根據(jù)以下程序段運(yùn)行后a值，劃線處應(yīng)該填入合理數(shù)據(jù)類型為〔〕DimaAs________a=1Fori=1To8a=a*iNextiA、IntegerB、LongC、SingleD、Double【答案】B【解析】7．小金編寫了VB程序，局部程序如下所示，在調(diào)試程序時候出現(xiàn)如下圖錯誤信息：PrivateSubCommand1_Click()DimxAsString,iAsIntegerFori="1"To10IfiModx="1"Thenx="奇數(shù)"Elsex="偶數(shù)"NextiEndSub產(chǎn)生此錯誤語句是()。A．ForB．EndIfC．NextD．If【答案】B【解析】8．以下圖是當(dāng)循環(huán)、直到循環(huán)兩種循環(huán)構(gòu)造，請結(jié)合以下圖選擇以下說法中正確是()A．當(dāng)循環(huán)是當(dāng)條件成立退出循環(huán)B．當(dāng)循環(huán)不可能出現(xiàn)不執(zhí)行循環(huán)步驟情況C．直到循環(huán)是條件成立時執(zhí)行循環(huán)步驟D．直到循環(huán)至少執(zhí)行一次循環(huán)步驟【答案】D【解析】9．對以下程序段說法正確是〔〕s=0i=0DoWhiles<10i=i+1s=s+i*iLoopA．該程序循環(huán)體執(zhí)行了3次B．該程序段完畢后i值為3C．該程序段完畢后i值為4D．該程序段完畢后s值為13【答案】ABD【解析】10．某算法流程圖如下所示：輸入輸入a,b,ca>ba←ba>ca←c輸出a開場YYNN完畢當(dāng)輸入a、b、c值分別為5、2、8時，該算法輸出結(jié)果為〔〕A.8B.2C.5D.7【答案】B【解析】11．假設(shè)輸入兩數(shù)1，-4，輸出結(jié)果_______A．-5 B．-3C．5 D．3【答案】C【解析】12．某算法要實(shí)現(xiàn)0到100偶數(shù)之與，流程圖如下圖。那么i?i+2被執(zhí)行次數(shù)是2

A．50B．51C．100D．101【答案】B【解析】13．在某銀行取款機(jī)上，用戶銀行卡密碼驗(yàn)證過程如以下圖所示：當(dāng)用戶輸入密碼時，假設(shè)第1次輸入錯誤，第2次輸入才正確，那么整個操作過程執(zhí)行流程是〔〕A、①→②→③→④→⑤B、①→②→③→④→⑥→⑦C、①→②→③→④→⑥→②→③→④→⑤D、①→②→③→④→⑥→⑦→②→③→④→⑤【答案】C【解析】14．求兩數(shù)之與算法是：輸入兩數(shù)a與b值，計算c=a+b，輸出c值。該算法根本構(gòu)造屬于()。A．順序構(gòu)造B．選擇構(gòu)造C．循環(huán)構(gòu)造D．框架構(gòu)造【答案】A【解析】15．以下VB程序段運(yùn)行結(jié)果是：Dima(1To3)AsIntegera(1)=1Fori=2To3a(i)=2*a(i-1)+1NextPrinta(i-1)A、0B、3C、7D、15【答案】C【解析】16．有如下程序段：Fori=1To2Forj=2To7-iIfa(j)>a(j-1)Thenk=a(j):a(j)=a(j-1):a(j-1)=kEndIfNextjNexti數(shù)組元素a(1)到a(6)值依次為“71，54，58，29，31，78”，經(jīng)過該程序段“加工〞后，以下說法正確是〔〕A．?dāng)?shù)組元素a(1)到a(6)值依次為54，29，31，58，71，78C．此過程中數(shù)據(jù)共需交換次數(shù)為5次D．此過程中數(shù)據(jù)“54”共被比擬5次【答案】C【解析】17．某算法局部流程圖如第5題圖所示。執(zhí)行這局部流程后，“x←x—2〞被執(zhí)行次數(shù)為A．0B．1C．2D．3【答案】C【解析】18．有如下VB程序，它輸出結(jié)果是S=0Fori=1To10Ifimod2=0ThenS=S+iNextiPrint“S=〞;SA．S=0B．S=25C．S=30D．S=55【答案】C【解析】19．以下VB程序段運(yùn)行完畢后，變量x值為x="2":y=64Dowhilex<=Sqr(y)x=x+3LoopA．2B．5C．8D．11【答案】D【解析】20．某算法流程圖如下圖，執(zhí)行該算法后，“s←s+i〞共被執(zhí)行次數(shù)是〔〕YYN開場i<20i←i+3s+i←sS←1:i←1輸出s的值完畢A．0B．6C．7D．8【答案】C【解析】21．小明編寫一個模擬qq登錄VB程序。當(dāng)輸入用戶名、密碼與驗(yàn)證碼，點(diǎn)擊登錄按鈕后，會跳出信息框提示是否驗(yàn)證成功。局部程序與流程圖如下所示：uname=Text1.Text'輸入用戶名psd=Text2.Text'輸入密碼vcode=Val(Text3.Text)'輸入驗(yàn)證碼Ifvcode<>Val(Label3.Caption)ThenMsgBox“〞①'Label3顯示是隨機(jī)驗(yàn)證碼①ElseIfuname<>"admin"Orpsd<>"123456"ThenMsgBox“②〞②ElseMsgBox“③〞③方框中正確語句是〔〕。A．①中“驗(yàn)證成功〞 B．②中“輸出用戶名或密碼有誤〞C．②中“驗(yàn)證成功 D．③中“輸出驗(yàn)證碼錯誤〞【答案】B【解析】Subtest3()雙重循環(huán)運(yùn)行輸出圖形與3重復(fù),但3已改題Fori="1"To22．step1s=""Forj="1"To2*i-1s="Str(j)"+sNextjList1.AddItemsNextiEndSub該程序運(yùn)行后列表框輸出第三行是〔〕A．33333B．55555C．12345D．54321【答案】D【解析】23．假設(shè)輸入28，以上代碼輸出結(jié)果是。Dimxaslongx=inputbox(“輸入x值〞)y="x"mod7ify="4"ory="5"ory="6"thenxq=y-3elsexq=y+4endifprintxq【答案】4【解析】24．以下為局部VB程序語句代碼：()s=32Fori=1To10Steps=s/2Nexti上述程序語句執(zhí)行完畢后，s值為2，那么循環(huán)語句步長〔劃橫線處〕應(yīng)填()A．1B．2C．3D．4【答案】C【解析】25．如下圖局部流程圖中，“s←s＋i〞被執(zhí)行次數(shù)為()A．0B．1C．32D．33【答案】C【解析】26．以下語句中錯誤是〔〕A．Constvar1=123B．Dimvar2AsStringC．x+y=9D．Dimd(1to500)AsDouble【答案】C【解析】27．以下關(guān)于循環(huán)構(gòu)造描述中，正確是〔〕。A．與分支構(gòu)造不同，循環(huán)構(gòu)造一定會對循環(huán)條件進(jìn)展屢次判斷。B．循環(huán)構(gòu)造中，重復(fù)執(zhí)行內(nèi)容有時候一次都不被執(zhí)行。C．在循環(huán)構(gòu)造流程圖中，除了有向下流程線外還應(yīng)有向上返回流程線。D．根據(jù)實(shí)際需要，在流程圖中可出現(xiàn)多個循環(huán)構(gòu)造?！敬鸢浮緽CD【解析】評卷人得分二、操作題28．求兩個整數(shù)最大公約數(shù)分析：求最大公約數(shù)算法思想：〔1〕對于兩數(shù)m，n，使得m>n；〔2〕m除以n得余數(shù)r；〔3〕假設(shè)r=0，那么n為求得最大公約數(shù)，算法完畢；否那么執(zhí)行(4)；〔4〕m←n，n←r，再重復(fù)執(zhí)行(2)。例如:求m=14,n=6最大公約數(shù).Mnr1462620請根據(jù)以上思路補(bǔ)充下面程序代碼：PrivateSubCommand1_Click()m=InputBox("m=")n=InputBox("n=")Ifm<nThent=m:m=n:n=tr=________________DoWhile(r<>0)m=nn=rr=mModnLoopPrint"最大公約數(shù)=",nEndSub【答案】mmodn【解析】評卷人得分三、填空題29．有如下VisualBasic程序段：s=0n=1fori=4to1step-1n=n*is=s+anexti問：該程序段運(yùn)行后，〔1〕共循環(huán)___________次。〔2〕變量s值是___________?！敬鸢浮?1〕4〔2〕64【解析】30．小貝對街機(jī)中〞打手掌〞游戲很感謝興趣，于是也用VB做了個打手游戲，界面如圖。點(diǎn)擊開場按鈕command1，標(biāo)簽label1開場從3秒倒計時，倒計時完畢開打，如果打中手掌，label1顯示〞打中了〞,如果超過去3.1秒，那么顯示〞沒打中〞,游戲完畢。點(diǎn)開場按鈕可以重來。請根據(jù)題意將以下程序補(bǔ)充完整。DimtAsInteger‘t用來計時PrivateSubCommand1_click()Image1.left=64Label1.caption=〞〞t=0Terval=100〔1〕______________Image1.Enabled=FalseEndsubPrivateSubImage1_click()Timer1.Enabled=FalseImage1.Enadled=FalseLabel1.caption=〞打中了〞EndSubPrivateSubTimer1.Timer()t=t+1ift<=30thenlabel1.caption=3-int(t/10)ift>32thenlabel1.caption=〞沒打中〞Fori=1to10‘手迅速移開動畫Forj=1to10000DoeventsNextjNextiTimer1.Enabled=FalseImage1.Enabled=FalseEndifIft=30then‘當(dāng)t=30時，即倒計時3秒完畢，允許開打，對象image1開場允許響應(yīng)事件〔2〕_____________EndifEndsub【答案】〔1〕timer1.enabled=true〔2〕image1.enabled=true【解析】31．用VB編寫函數(shù)bubble_sort是一個用冒泡方法實(shí)現(xiàn)排序函數(shù)，其調(diào)用時需要三個參數(shù)：布爾類型參數(shù)sx來確定是升序還是降序，sx為True時為升序，否那么為降序；整數(shù)型數(shù)組a()是待排序數(shù)據(jù)，數(shù)據(jù)從a(1)開場存放；整數(shù)型參數(shù)n表示傳入數(shù)組長度，該函數(shù)返回值也是一個整數(shù)型數(shù)組。所以調(diào)用此函數(shù)實(shí)現(xiàn)排序非常方便：比方有一個整數(shù)型數(shù)組a(1to10)需要降序排序，可以直接這樣調(diào)用：a()＝bubble_sort(False，a()，10)該函數(shù)VB代碼如下：Functionbubble_sort(sxAsBoolean，a()AsInteger，nAsInteger)AsInteger()Dimi，j，tAsIntegerFori＝1Ton－1Forj＝____①____Step－1If____②____ThenIfa(j)＜a(j－1)Thent＝a(j)：a(j)＝a(j－1)：a(j－1)＝tElseIfa(j)＞a(j－1)Thent＝a(j)：a(j)＝a(j－1)：a(j－1)＝tEndIfNextjNextibubble_sort＝a()EndFunction請將代碼補(bǔ)充完整：①___________________________________________。②___________________________________________?！敬鸢浮?1)ntoi＋1(2)sx或者sx＝True【解析】32．出租車計費(fèi)方法如下：路程在3公里以內(nèi)〔包含3公里〕收起步價10元，路程超過3公里不超過10公里〔包含10公里〕局部按每公里2元計費(fèi)，超出10公里局部按每公里3元計費(fèi)?，F(xiàn)要設(shè)計一個VB出租車計費(fèi)系統(tǒng)程序，在路程文本框中中輸入路程數(shù)，單擊計算按鈕可以計算出應(yīng)付金額并顯示到金額文本框中，請答復(fù)以下問題：圖一圖一在設(shè)計該程序界面時，要從圖二界面到圖一界面，需要進(jìn)展哪些設(shè)置？________________________________________________________________________________________________________________________________為計算按鈕添加單擊事件后，并在其中添加程序代碼，代碼如下：DimdAsSingleDimfAsSingled=Val(Text1.Text)Ifd<=3Then‘3公里以下計費(fèi)f=10endifIfd>3Andd<=10Then‘3公里至10公里計費(fèi)EndIfIfd>10Then‘10公里以上計費(fèi)EndIfText2.Text=Str(f)請完善以上程序代碼，在①，②處填入正確語句①________________________________②________________________________完善程序代碼后，假設(shè)輸入路程數(shù)為10，那么應(yīng)付金額為________元實(shí)現(xiàn)該程序所用算法構(gòu)造屬于______________〔選擇構(gòu)造/循環(huán)構(gòu)造〕【答案】〔1〕添加一個按鈕設(shè)置caption屬性值為“計算〞，將窗體caption屬性值設(shè)置為“出租車計費(fèi)系統(tǒng)〞；〔2〕f=10+(d-3)*2f=10+14+(d-10)*3；〔3〕24；〔4〕選擇構(gòu)造【解析】33．某同學(xué)編寫了VB程序其功能與界面如下所示。在文本框(text1)中輸入一段英文，點(diǎn)擊“統(tǒng)計刪除〞按鈕，在標(biāo)簽(Label3)中顯示該語句中最長單詞(如有多個長度一樣單詞那么顯示靠后單詞)，在標(biāo)簽(Label5)中顯示該單詞字符長度，在標(biāo)簽(Label7)中顯示刪除該單詞后句子。PrivateSubCommand1_Click()DimsAsInteger，imaxAsInteger，pimaxAsInteger，tAsIntegerDimsourceAsStrings＝Len(source)imax＝1pimax＝1t＝0Fori＝1Tosd＝____①____If(d＞＝“a〞Andd＜＝“z〞)Or(d＞＝“A〞Andd＜＝“Z〞)Then____②____ElseIft＞＝imaxThenimax＝t____③____EndIft＝0EndIfNextiLabel3.Caption＝Mid(source，pimax，imax)Label5.Caption＝imaxLabel7.Caption＝____④____＋Mid(source，pimax＋imax，s－imax)EndSub①處程序代碼為_________________________________________________。②處程序代碼為_________________________________________________。③處程序代碼為_________________________________________________。④處程序代碼為_________________________________________________。【答案】①M(fèi)id(source，i，1)②t＝t＋1③pimax＝i－t④Mid(source，1，pimax－1)【解析】34．求結(jié)果〔1〕輸入356，輸出結(jié)果：DimxasIntegerx=inputbox(“輸入x值〞)a=xmod10b=int(x/10)mod10c=x\100s=a+b+cprints〔2〕輸入a=1，b=2，輸出結(jié)果：〔3〕輸出結(jié)果：〔4〕輸入8，輸出結(jié)果：【答案】(1)14(2)2.5(3)87856(4)105【解析】35．小明編寫了一個VB程序，功能如下：在文本框Text1中輸入一段英文，并在文本框Text2中輸入英文段落中某個單詞〔或字符串〕，單擊“最大間距〞按鈕〔Command1〕后，在文本框Text3中顯示該單詞在文中某兩次出現(xiàn)最大間距，假設(shè)只出現(xiàn)一次或不出現(xiàn)那么顯示值為0。程序運(yùn)行界面如以下圖所示：實(shí)現(xiàn)上述功能VB程序如下：PrivateSubCommand1_Click()Dima(1To1000)AsString'數(shù)組a存儲文中出現(xiàn)該指定單詞(或字符串)各個位置DimsAsString,cAsString,chAsStringDimnAsInteger,maxAsInteger,iAsIntegers=c=n=0:Max=0Fori=1ToLen(s)-Len(c)+1ch=①Ifch=cThenn=n+1a(n)=iIfn>=2Then[來源:學(xué)|科|網(wǎng)Z|X|X|K]Ifa(n)-a(n-1)-Len(c)>MaxThenMax=a(n)-a(n-1)-Len(c)EndIfEndIfNextiEndSub以上程序段運(yùn)行時，為了實(shí)現(xiàn)上述功能，劃線處①與②應(yīng)填入代碼分別為：〔1〕_______________________________;〔2〕_______________________________【答案】⑴(2分)Mid(s,i,Len(c))⑵(2分)Str(Max)【解析】36．某VisualBasic程序如下：PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,aAsInteger,bAsIntegerX=0y=0Fora=1To3x=x+1Forb=2to4y=y+1NextbNextaText1.text=str(a)Text2.text=str(b)EndSub單擊Command1按鈕后，Text1顯示①，Text2顯示②?！敬鸢浮竣?〔2分〕；②9〔2分〕【解析】37．【加試題】小王模擬超市收銀機(jī)掃描商品條形碼后計算總價過程制作了一個VB程序。功能如下：在文本框Text1中輸入商品條形碼，按回車鍵后會將已經(jīng)輸入條形碼顯示在列表框List1中，同時將商品明細(xì)顯示在列表框List2中。點(diǎn)擊按鈕“計算商品總價〞后，會將所有商品總價顯示在文本框Text2中。程序界面如下圖：實(shí)現(xiàn)上述功能局部VB程序如下，請在三個劃線處填入適宜代碼。'定義全局?jǐn)?shù)組變量Dima(1To10)AsLongDimb(1To10)AsString'自動加載條形碼信息以及對應(yīng)商品信息PrivateSubForm_Load()DimiAsIntegera(1)=503741Fori=2To10a(i)=a(i-1)+1Nextib(1)="可樂5.00"b(2)="薯片7.50"b(3)="牛奶5.60"b(4)="橙汁7.50"b(5)="面包4.00"b(6)="蜂蜜28.00"b(7)="蛋糕12.00"b(8)="綠箭3.50"b(9)="餅干6.00"b(10)="雪碧5.00"EndSub'輸入條形碼，查找條形碼，并顯示條形碼及其對應(yīng)商品信息PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimtxmAsLong:DimiAsInteger:DimjAsIntegertxm=Val(Text1.Text)IfKeyAscii=13ThenIftxm>=503741Andtxm<=503750ThenL