信息技術(shù)高考復(fù)習(xí)-VB基礎(chǔ)

1、a(0)=lVB基礎(chǔ)測(cè)試卷班級(jí)：姓名：座號(hào)：一、選擇題：(每題3分,共30分)在VisualBasic中，若x表示能被5整除的正整數(shù)，則下列邏輯表達(dá)式的值一定為真的是x/5=0(B)xMod5=0(C)Int(x5)=0(D)5Modx=0下列屬于正確的VisualBasic表達(dá)式是(A)a+b*|c|(B)b3+2(C)2n-1(D)2h/g數(shù)學(xué)表達(dá)式2n-10且2n-1HF對(duì)應(yīng)的VisualBasic表達(dá)式是2n-10And2n-112*n1AndNot(2*n-1=1)2n-10And2n-1H12*n-10And2n-11在VisualBasic中，放入窗體中的控件被稱為(A)類(B)

2、事件(C)屬性(D)對(duì)象運(yùn)行如下VisualBasic程序，單擊命令按鈕Commandl,出現(xiàn)如圖所示的出錯(cuò)信息。發(fā)生下標(biāo)越界錯(cuò)誤時(shí)所執(zhí)行的語句是PrivateSubCommandl_Click()Dima(0To5)AsIntegerDimiAsIntegerFori=1To6TOC o 1-5 h za(i)=2*a(i-1)+1NextiText1.Text=Str(a(5)EndSub HYPERLINK l bookmark8 o Current Document （A）（B）（C）（D）6.運(yùn)行如下VisualBasic程序，單擊命令按鈕Commandl,出現(xiàn)如圖所示的出錯(cuò)信息。發(fā)

3、生除數(shù)為零錯(cuò)誤時(shí)所執(zhí)行的語句是PrivateSubCommandl_Click（）DimaAsInteger,bAsInteger,cAsSingleTOC o 1-5 h za=2b=a+lc=a/(b-3)Textl.Text=Str(c)EndSubEndSub（A）（B）（C）（D）7.運(yùn)行如下VisualBasic程序，單擊命令按鈕Commandl，出現(xiàn)如圖所示的出錯(cuò)信息。發(fā)生類型不匹配錯(cuò)誤時(shí)所執(zhí)行的語句是PrivateSubCommand1_Click()DimaAsInteger,bAsIntegerTOC o 1-5 h za=10b=20Text1.Text=a+b=+Val

4、(a+b)EndSub實(shí)時(shí)錯(cuò)誤L3J類型不匹配結(jié)束迺I（A）（B）（C）（D）有如下VisualBasic程序段：Dima(1To4)AsIntegera(1)=1Fori=2To3a(i)=2*a(i-1)+1Nexti該程序段運(yùn)行后，數(shù)組元素a(4)的值為(A)15(B)7(C)3(D)0以下VisualBasic程序段是一個(gè)完整的Do語句，則劃線處的語句應(yīng)該是DoWhilen10n=n+3s=s*nA)LoopB)EndDoC)EndSub10.在VisualBasic窗體中，當(dāng)前對(duì)象的屬性窗口如下DoriHisdibThenLabel1.Caption=請(qǐng)重新輸入ElseLabel1.

5、Caption=歡迎光臨EndIf該程序段運(yùn)行后，在標(biāo)簽Labell上顯示的是。有如下VisualBasic程序段：1m=schn=Mid(tools,2,3)s=m+n該程序段運(yùn)行后，變量s的值為。以下VisualBasic程序的功能是：計(jì)算表達(dá)式lx1+2x2+3x3+4x4+5x5+6x6的值，并在文本框Text_1中輸出結(jié)果。PrivateSubCommandl_Click()Dima(lTo6)AsIntegerDimsAsInteger,iAsIntegers=0Fori=lTo6a(i)=i*is=s+a(i)Nexti=str(s)EndSub問：(1)為了計(jì)算上述表達(dá)式的值，上面程序段劃線處應(yīng)填入。(2)該程序段運(yùn)行后，a(5)的值是。有如下VisualBasic程序段：s=0a=5Fori=1To10Step2a=a+is=a*iNexti問：該程序段運(yùn)行后，TOC o 1-5 h z變量i的值是。變量s的值是。已知某數(shù)列前二項(xiàng)分別為：a1=1、a2=2，以后每項(xiàng)都滿足:12a=a+a(i2)ii-1i-2有如下VisualBasic程序段：Dima(1To20)AsIntegera(1)=1:a(2