高一信息技術(shù)-VB專題練習(xí)(含答案)

VB綜合練習(xí)一、選擇題1.在VB代碼編輯窗口中，輸入了“Command1.”后出現(xiàn)了如圖所示的信息，其中的“Caption”是Command1的 （ ）A．事件名 B．屬性名 C．對(duì)象名 D．方法2.某VB程序的一個(gè)事件處理過(guò)程如下，在程序運(yùn)行時(shí)，能觸發(fā)該事件的是 （ ）PrivateForm_Load()Command1.caption=”計(jì)算”EndsubA．窗體裝載 B．單擊窗體 C．單擊按鈕Command1 D．雙擊窗體3.在VB中，下列屬于過(guò)程文件的是 （）A．.vbp B．.frm C．.vbw D．.frx4.在VB中，若需要將350名學(xué)生的借閱卡號(hào)（如“WZ001036”）分別存儲(chǔ)在數(shù)組code的code(1)～code(350)元素中，則下列說(shuō)明語(yǔ)句最合適的是 （ ）A．Dimcode(1To350)AsInteger B．Dimcode(1To350)AsSingle C．Dimcode(1To350)AsString D．Dimcode(1To350)AsBoolean5.在VB中，a=-100,表達(dá)式"360"+Str(a)的值是 （ ）A．260 B．"360-100" C．"360100" D．"260"6.在VB中，a=-100,表達(dá)式100+Val("36")的值是 （ ）A．"10036" B．"136" C．100+36 D．1367.下列VB表達(dá)式的值等于2的是 （）A．Abs(-2.1) B．Int(2.1) C．Sqr(4.2) D．Len("4")8.下列VB中，表達(dá)式81\8mod3*int(2.5)的值是 （ ）A．40 B．4 C．5 D．69.數(shù)學(xué)表達(dá)式“2n–1>0且2n-1≠1”對(duì)應(yīng)的VB表達(dá)式是 （ ）A．2·n–1>0And2·n–1<>1 B．2n–1>0And2n–1≠1 C．2*n–1>0AndNot(2*n-1=1) D．2*n–1>0And2n-1<>110.將整數(shù)型變量n的值顯示在文本框Text1中，正確的語(yǔ)句是 （ ）A．Text=n B．Val(Text1)=n C．Text1.Text=Str(n) D．Str(Text1.Text)=n11.產(chǎn)生一個(gè)三位隨機(jī)整數(shù)的表達(dá)式是 （）A．int(rnd*900)+100 B．int(rnd*999) C．int(rnd*999)+1 D．rnd*900+100 12.一個(gè)四位數(shù)的整數(shù)x，能表示出百位數(shù)字的表達(dá)式是 （）A．x\100 B．x\100mod10 C．xmod100 D．int(x/100) 13.x為單精度型數(shù)據(jù)，能將x四舍五入保留2位小數(shù)的表達(dá)式是()A．int(x) B．int(x*100)/100 C．int(x+0.5) D．int(x*100+0.5)/100 14.下列表達(dá)式為真時(shí)，能表示大寫字母的是 ()A．"A"<=ch<="Z" B．ch>="A"orch<="Z" C．ch>="A"andch<="Z" D．not(ch>="A"andch<="Z") 15.將字符串變量a和b的值連接并將結(jié)果在文本框Text1中輸出，下列代碼合適的是（ ）A．Str(a+b)=Text1.Text B．Text.Text1=a+b C．Text1.Text=Str(a+b) D．Text1.Text=a+b16.有如下VB程序段a=3:b=9c=aa=bb=c運(yùn)行后，下列說(shuō)法正確的是 （ ）A．a(chǎn)=3,b=9 B．a(chǎn)=9,b=3 C．a(chǎn)=3,b=3 D．a(chǎn)=9,b=917.有如下VB程序段，程序段運(yùn)行后，"s=s+k"共執(zhí)行了10次，則循環(huán)變量k的初值是（ ）s=0Fork=to5 s=s+kNextkA．14 B．-5 C．1 D．-418.有如下VB程序段，程序段運(yùn)行后，數(shù)組元素a(3)的值是 （ ）Forx=10to1step-1 a(x)=x+1NextxA．9 B．8 C．4 D．319.有如下VB程序段，程序段運(yùn)行后，數(shù)組元素a(4)的值是 （ ）Dima(1to4)asinteger a(1)=1 Fori=2to3 a(i)=2*a(i-1)+1 NextiA．15 B．7 C．3 D．020.計(jì)算斐波那契數(shù)列（該數(shù)列從第三項(xiàng)開始，每一項(xiàng)都等于其前面兩項(xiàng)之和）第20項(xiàng)的值的VB程序段如下，該程序運(yùn)行后不正確，有問(wèn)題的語(yǔ)句是 （ ）Dima(1to20)aslong,IasintegerConstn=20 ‘①i=3a(1)=1:a(2)=1Dowhilei<=n ‘② a(i)=a(i-2)+a(i-1) ‘③ i=i+1 LoopLabel1.caption=str(a(i))‘④A．① B．② C．③ D．④21.某算法的部分流程圖如圖所示。aa←1,s←1Na<5?s←s*a,a←a+2Y執(zhí)行這部分流程后，變量a和s的值分別為()A.3和3 B.3和5C.5和3 D.5和1522.某算法流程圖如圖所示，輸出變量s和變量i的值分別為 （ ）NNs<=10?s←s+ii←i+2s←0:i←4Y輸出s、iA．16,8 B．28,12 C．10,8 D．18,1023.某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，變量sum的值（ ）xx←234：sum←0sum←sum+xmod10x←x\10YNx>0？A．9 B．24 C．234 D．43224.某算法的部分流程圖如圖所示。x←1,x←1,Flag←TrueNxMod2>0?x←x+1Flag←NotFlagY執(zhí)行這部分流程后，變量x和Flag的值分別是()A．2，TrueB．3，TrueC．2，F(xiàn)alseD．3，F(xiàn)alse二、綜合題1．修改VB程序，使其具有下列功能：在文本框Text1中輸入包含數(shù)字、英文字母的字符串，單擊“統(tǒng)計(jì)”按鈕Command1，在標(biāo)簽Label3中輸出數(shù)字字符的個(gè)數(shù)。運(yùn)行界面如圖所示。（1）將窗體Form1上顯示的文本“Form1”改為“統(tǒng)計(jì)數(shù)字”，可在其屬性窗口中將屬性的屬性值修改為“統(tǒng)計(jì)數(shù)字”。（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適代碼或選項(xiàng)。PrivateSubCommand1_Click()DimiAsInteger,mAsInteger,nAsIntegerDimsAsString,cAsStringm=0s=Text1.Textn=①Fori=1Tonc=Mid(s,i,1)If②Thenm=m+1NextiLabel3.Caption=Str(m)EndSub（1）caption（2）①len（s）②c>=”0”andc<=”9”2.編寫VB程序，實(shí)現(xiàn)如下功能：在文本框Text1、Text2中分別輸入一個(gè)正整數(shù)，單擊“計(jì)算累加和”按鈕（Command1），在標(biāo)簽Label3中顯示起始值與結(jié)束值之間所有奇數(shù)的累加和。界面如圖所示。（1）在設(shè)計(jì)應(yīng)用程序界面時(shí)，應(yīng)使用如圖所示“控件工具箱”中的（填寫相應(yīng)編號(hào)）添加“計(jì)算累加和”按鈕。（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適代碼。PrivateSubCommand1_Click()Dimx1AsInteger,x2AsInteger,nAsIntegerDimsumAsLongx1=Val(Text1.Text)x2=Val(Text2.Text)sum=0Ifx1<x2Thenn=1Else①Fori=x1Tox2StepnIf②Thensum=sum+i③NextiLabel3.Caption="從"&x1&"到"&x2&"之間所有奇數(shù)的累加和="&Str(sum)EndSub（1）4（2）①n=-1②imod2=1③Endif3.編寫VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中按“YYYY-MM-DD”（年4位，月2位，日2位）格式輸入某一日期，單擊“推算”按鈕Command1，在文本框Text2中輸出該日期對(duì)應(yīng)的星期，運(yùn)行界面如圖所示。（1）要使標(biāo)簽Label1中顯示的文本“date”修改為“日期”,可在其屬性窗口中將___________屬性的屬性值改“日期”。（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適的代碼。PrivateSubCommand1_Click()DimsAsString'變量s存儲(chǔ)輸入的日期Dims1AsString,s2AsString,s3AsStringDimyAsInteger,y2AsInteger,mAsInteger,dAsInteger,nAsIntegers1="622503514624"s2="512503514624"s3="日一二三四五六"s=y=Val(Mid(s,1,4))m=Val(Mid(s,6,2))d=Val(Mid(s,9,2))y2=yMod100n=Int(y2/4)+y2+dIfyMod4=0AndyMod100<>0OryMod400=0Then'判斷是否為閏年n=n+Val(Mid(s2,m,1))Elsen=n+Val(Mid(s1,m,1))EndIfn=nMod7+1Text2.Text=Mid(s3,n,1)EndSub（3）如果輸入日期“2017-02-01”，則輸出結(jié)果是星期。（1）Caption（2）Text1.Text或Text1（3）三4．編寫VB程序，實(shí)現(xiàn)如下功能：在文本框Text1里輸入一個(gè)字符串，單擊命令按鈕Command1，判斷這個(gè)字符串是不是回文字符串（回文字符串就是一個(gè)對(duì)稱的字符串，如"abcba"或"abccba"都是回文字符串，"abc"不是回文字符串）。在文本框Text2里顯示結(jié)果，是回文字符串則顯示"yes"，否則顯示"no"。運(yùn)行效果如圖所示。（1）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適代碼PrivateSubCommand1_Click()DimsAsString,iAsInteger,jAsIntegerDimflagAsBoolean①j=Len(s)i=1flag=TrueDoWhileflagAnd(i<=j\2)IfMid(s,i,1)=Mid(s,j,1)Theni=i+1②Elseflag=FalseEndIfLoopIf③ThenText2.Text="yes"ElseText2.Text="no"EndIfEndSub（1）①s=Text1.text或s=Text1②j=j-1③flag5.編寫VB程序，實(shí)現(xiàn)如下功能：?jiǎn)螕簟伴_始”按鈕Command1，計(jì)時(shí)器Timer1每隔0.5秒隨機(jī)產(chǎn)生抽獎(jiǎng)同學(xué)的學(xué)號(hào)，并在標(biāo)簽Label1中顯示，同時(shí)按鈕Command1的標(biāo)題變?yōu)椤巴Ｖ埂保辉俅螁螕簟巴Ｖ埂卑粹oCommand1，計(jì)時(shí)器停止工作，標(biāo)簽