VB期末考試題庫(kù)1

1、試卷方案：201105 Visual Basic期末考試方案一、單項(xiàng)選擇共50題(選：20題*1 =20分)第1題以下有關(guān)對(duì)象屬性的說(shuō)法中，錯(cuò)誤的是 D.A.工具箱中的控件并不是VB中所有的控件B.若將Frame的Enabled屬性設(shè)置為False ,則不能使用放置在Frame里面的控件C.對(duì)象的Name屬性在運(yùn)行時(shí)不能改變D.對(duì)象的所有屬性都可以在屬性窗口中設(shè)置第2題3數(shù)學(xué)表達(dá)式 sin 27y的VB算術(shù)表達(dá)式為 B| x y |一A. Sin(27)+Sqr(x+Exp3)/(x+y)B. Sin(27*3.14159/180)+Sqr(x+Exp(3)/Abs(x+y)C. Sin(27

2、*3.14159/180)+Sqr(x+eA3)/Abs(x+y)D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)第3題下列有關(guān)對(duì)象的敘述中，正確的是AA.對(duì)象由屬性，事件和方法構(gòu)成B.對(duì)象的所有屬性既可以在屬性窗口設(shè)置，又可以在程序運(yùn)行時(shí)用賦值語(yǔ)句設(shè)置C.對(duì)象的事件一定就是由VB預(yù)先設(shè)置好的人工干預(yù)的動(dòng)作D.對(duì)象的方法是對(duì)象響應(yīng)某個(gè)事件后執(zhí)行的一段程序代碼第4題表達(dá)式 CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的運(yùn)算結(jié)果是 _D_.A. 1B. -1C. - 2 D. - 3第5題下列關(guān)于

3、菜單的說(shuō)法中，錯(cuò)誤的是 C.A.每一個(gè)菜單項(xiàng)就是一個(gè)對(duì)象，并且可設(shè)置自己的屬性和事件B.菜單項(xiàng)不可以響應(yīng)DblClick事件C. VB6.0允許創(chuàng)建超過(guò)四級(jí)的子菜單D.程序執(zhí)行時(shí)，如果要求菜單項(xiàng)是灰色，不能被用戶選擇，則應(yīng)設(shè)置菜單項(xiàng)的Enabled屬性為False第6題以下關(guān)于數(shù)組的說(shuō)法中，錯(cuò)誤的是 C.A.使用了 Preserve 子句的Redim語(yǔ)句，只允許改變數(shù)組最后一維的上界B.對(duì)于動(dòng)態(tài)數(shù)組，Redim 語(yǔ)句可以改變其維界但不可以改變其數(shù)據(jù)類(lèi)型C. Erase語(yǔ)句的功能只是對(duì)固定大小的數(shù)組進(jìn)行初始化D. Lbound函數(shù)返回值是指定數(shù)組某一維的下界第7題設(shè) a=3,b=2,c=1,運(yùn)行

4、 print a>b>c的結(jié)果是 B.A. True B. FalseC. 1D.出錯(cuò)第8題以下說(shuō)法不正確的是 C.A.使用不帶關(guān)鍵字Preserve的ReDim語(yǔ)句可以重新定義數(shù)組的維數(shù)B.使用不帶關(guān)鍵字 Preserve的ReDim語(yǔ)句可以改變數(shù)組各維的上、下界C.使用不帶關(guān)鍵字 Preserve的ReDim語(yǔ)句可以改變數(shù)組的數(shù)據(jù)類(lèi)型D.使用不帶關(guān)鍵字Preserve的ReDim語(yǔ)句可以對(duì)數(shù)組中的所有元素進(jìn)行初始化 第9題 在列表框Listl中有若干列表項(xiàng)，可以刪除選定列表項(xiàng)的語(yǔ)句是 DA. List1.text=""B. List1.List(List1.

5、ListIndex尸”"C. Listl.ClearD. Listl.Removeltem Listl.ListIndex第10題Q2 X 53 O 丫、數(shù)學(xué)表達(dá)式e 1nxsin(2x)對(duì)應(yīng)的VB表達(dá)式是 B.J sin x cos x2 |A. (eA(2*兀 *x-5)*Log(x)+(Sin(2x)A3)/Sqr(Sin(x)-Cos(xA2)B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x)43)/Sqr(Sin(x)-Cos(xA2)C. (Exp(2* 兀 *x-5)*Ln(x)+(Sin(2*x)A3)/Sqr(Sin(x)-Cos(xA2

6、)D. eA(2*3.14159*x-5)*Ln(x)+(Sin(2*x)A3)/Sqr(Sin(x)-Cos(xA2)第11題以下有關(guān)數(shù)組參數(shù)的說(shuō)明中，正確的是 B_A.在過(guò)程中也可用Dim語(yǔ)句對(duì)形參數(shù)組進(jìn)行說(shuō)明B.動(dòng)態(tài)數(shù)組作為實(shí)參時(shí)，可用ReDim語(yǔ)句在過(guò)程中改變對(duì)應(yīng)形參數(shù)組的維界C.調(diào)用過(guò)程時(shí)，數(shù)組名不能作為實(shí)參D.數(shù)組可以按地址傳遞也可以按植傳遞第12題下列有關(guān)過(guò)程的說(shuō)法中，錯(cuò)誤的是 B.A.在Sub或Function 過(guò)程內(nèi)部不能再定義其它Sub或Function 過(guò)程B.對(duì)于使用ByRef說(shuō)明的形參，在過(guò)程調(diào)用時(shí)形參和實(shí)參只能按傳址方式結(jié)合C.遞歸過(guò)程既可以是遞歸Function過(guò)

7、程，也可以是遞歸Sub過(guò)程D.可以像調(diào)用Sub過(guò)程一1¥使用 Call語(yǔ)句調(diào)用Function過(guò)程第13題要將焦點(diǎn)設(shè)置在某個(gè)控件上，以下四個(gè)選項(xiàng)中正確的是D.A.只能使用鼠標(biāo)直接點(diǎn)擊控件B.只能使用Tab鍵將焦點(diǎn)移到該控件C.只能在程序中調(diào)用該控件的SetFocus方法D. A、B、C三選項(xiàng)中涉及的方法均可使用第14題以下Case語(yǔ)句中，能正確描述 Y的絕對(duì)值大于 6的是D.A. Case Abs(Y)>6B. Case -6 To 6C. Case Not(-6 To 6)D. Case Is<-6,Is>6第15題以下關(guān)于變量作用域的敘述中，正確的是 C.A.窗

8、體中凡用Private 聲明的變量只能在某個(gè)指定的過(guò)程中使用B.模塊級(jí)變量只能用Dim語(yǔ)句聲明C.凡是在窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段用Public語(yǔ)句聲明的變量都是全局變量D.當(dāng)不同作用域的同名變量發(fā)生沖突時(shí)，優(yōu)先訪問(wèn)局限性小的變量第16題以下關(guān)于數(shù)值常量的說(shuō)法中，錯(cuò)誤的是 C_A.八進(jìn)制數(shù)的表示方法是在數(shù)字前面加&OB.十六進(jìn)制數(shù)的表示方法是在數(shù)字前面加&HC.在浮點(diǎn)運(yùn)算中使用D來(lái)分隔尾數(shù)和指數(shù)時(shí)，系統(tǒng)將把該數(shù)值作為單精度型數(shù)處理D. 32768是合法的數(shù)值常量第17題數(shù)學(xué)表達(dá)式x3尸e sin 30對(duì)應(yīng)的VB表達(dá)式是A. Abs(eAx+Sin(30)A3) / Sqr(

9、x+ y)B. Abs(Exp(x)+Sin(30)A3) / (Sqr(x+y)C. Abs(eAx+Sin(30*3.14159 / 1803) / (Sqr(x+y)D. Abs(Exp(x)+Sin(30*3.14159 / 1803) / Sqr(x+y)第18題下面的4個(gè)表達(dá)式中，有關(guān) C 個(gè)能夠?qū)ingle類(lèi)型變量x(正數(shù))的第3位小數(shù)正確地進(jìn)行四舍五入計(jì)算Format(x, #.00" )Int(100*(x+0.005)/100CInt(100*(x+0.005)/100Fix(100*(x+0.005)/100A. 1個(gè) B. 2個(gè) C. 3個(gè) D. 4個(gè)第19

10、題執(zhí)行以下語(yǔ)句時(shí)，會(huì)出現(xiàn)錯(cuò)誤提示的是A. Print"2b3 " +12.5B. Print"12.5"+ 12C.Print"12.5" & 12.5D.Print"2e3"+12第20題以下Case語(yǔ)句含有錯(cuò)誤的是A. Case 0 To 10B. Case Is>10C. Case Is>10 And Is<50D. Case 3,5,Is>10第21題下列語(yǔ)句中，正確的是A. Textl.SetFocusB. Forml.ClearC. Labell.SetFocusD. L

11、istl.Cls第22題下列選項(xiàng)中，所包含的所有表達(dá)式能夠?qū)晌徽麛?shù)x的個(gè)位數(shù)與十位數(shù)對(duì)調(diào)(如將78轉(zhuǎn)換為87)的是D. Val(Right(X,1)&Left(X,1) Val(Right(Str(X),1)&Left(Str(X),1) Val(Right(CStr(X),1)&Left(CStr(X),1) Val(Mid(X,2,1)+Mid(X,1,1)A. B. C. D.第23題以下關(guān)于子過(guò)程或函數(shù)的定義中，正確的是_DA. Sub f1(n As String*1 )B. Sub f1(n As Integer)As IntegerC. Function

12、 f1(f1 As Integer)As IntegerD. Function f1(ByVal n As Integer)第 24題下列有關(guān)控件數(shù)組的說(shuō)法中 , 錯(cuò)誤的是_B.A. 控件數(shù)組由一組具有相同名稱(chēng)和相同類(lèi)型的控件組成，不同類(lèi)型的控件無(wú)法組成控件數(shù)組B. 控件數(shù)組中的所有控件不得具有各自不同的屬性設(shè)置值C. 控件數(shù)組中的所有控件共享同一個(gè)事件過(guò)程D. 控件數(shù)組中每個(gè)元素的下標(biāo)由控件的 Index 屬性指定第 25 題以下對(duì)數(shù)組參數(shù)的說(shuō)明中, 錯(cuò)誤的是 A.A. 在過(guò)程中可以用 Dim 語(yǔ)句對(duì)形參數(shù)組進(jìn)行聲明B. 形參數(shù)組只能按地址傳遞C.實(shí)參為動(dòng)態(tài)數(shù)組時(shí)，可用ReDim語(yǔ)句改變對(duì)應(yīng)

13、形參數(shù)組的維界D. 只需把要傳遞的數(shù)組名作為實(shí)參，即可調(diào)用過(guò)程第 26 題要向文件 datal.txt 添加數(shù)據(jù) , 正確的文件打開(kāi)命令是C.A. Open"datal.txt"For Output As #1B. Open"datal.txt"For Input As #1C. Open"datal.txt"For Append As #5D. Open"datal.txt" For Write As #5第 27 題下面有關(guān)數(shù)組處理的敘述中，正確的是D.A. 在過(guò)程中使用 ReDim 語(yǔ)句可以改變動(dòng)態(tài)數(shù)組數(shù)據(jù)的

14、類(lèi)型B. 在過(guò)程中，可以使用 Dim 、 Private 和 Static 語(yǔ)句來(lái)定義數(shù)組C.用ReDim語(yǔ)句重新定義動(dòng)態(tài)數(shù)組時(shí)，可以改變數(shù)組的大小，但不能改變數(shù)組的維數(shù)D. 不可以用 Public 語(yǔ)句在窗體模塊的通用處說(shuō)明一個(gè)全局?jǐn)?shù)組第 28 題下面的表達(dá)式中 , 運(yùn)算結(jié)果為 True 的是 B.A. "abcrd" <="ABCRD"B. Int(134.69) <=CInt(134.69)C. 3>2>1D. Mid("Visual",1,4)=Right("lausiV",4)第

15、29 題設(shè)計(jì)界面時(shí), 要使一個(gè)文本框具有水平和垂直滾動(dòng)條, 應(yīng)先將其_A屬性置為 True, 再將 ScrollBar 屬性設(shè)置為 3.A. MultiLineB. AutoSizeC. Alignment D. RightToLeft第 30 題, 正確的是 _CA. 數(shù)組的維下界不可以是負(fù)數(shù)Dim A(0 To 5) 會(huì)與之沖突Dim A(0 To 5), 則 A 數(shù)組第一維維下界為 0DimA(0 To 5), 則 A 數(shù)組第一維維下界為 1B. 模塊通用聲明處有OptionBase1C. 模塊通用聲明處有OptionBase1D. 模塊通用聲明處有OptionBase1第 31 題下面

16、有關(guān)數(shù)組的敘述中 , 不正確的是_A. 在過(guò)程中用 ReDim語(yǔ)句定義的動(dòng)態(tài)數(shù)組，其下標(biāo)的上下界可以是變量 數(shù)組作為形式參數(shù)時(shí), 傳遞的是每個(gè)數(shù)組元素的值 在窗體模塊的通用聲明處可以用 Public 說(shuō)明一個(gè)全局?jǐn)?shù)組數(shù)組定義語(yǔ)句中可以用負(fù)數(shù)或小數(shù)來(lái)指定某一維的維下界或維上界的值A(chǔ). B.C.D.第32題下列關(guān)于對(duì)象 SetFocus與GotFocus的描述中，正確的是_DA. SetFocus 是事件，GotFocus 是方法B. Setfocus 和 Gotfocus 都是事件C. Setfocus 和 GotFocus 都是方法D. SetFocus 是方法,GotFocus 是事件第33

17、題創(chuàng)建一個(gè)名為“文件”的菜單項(xiàng)，欲使其可用Alt+F方式訪問(wèn)，則在菜單編輯器的標(biāo)題文本框中應(yīng)輸入A.文件($F) B.文件(&F) C.文件(#F) D.文件(F)第34題在下列屬性中，屬于CommandButton控件、ListBox 控件共有的是A .D. List 、VisibleA. Caption 、Text B. Visible 、Font C. Caption 、Visible第35題下列能夠正確表示條件"X<Y<Z"的 VB邏輯表達(dá)式是_BA. X< Y<ZB. X<=Y And Y<ZC. X Y OR Y<

18、;Z D. X<=Y<Z第36題以下關(guān)于Function過(guò)程的說(shuō)法中，錯(cuò)誤的是AA. Function過(guò)程名可以有一個(gè)或多個(gè)返回值B.在Function過(guò)程內(nèi)部不得再定義 Function過(guò)程C. Function 過(guò)程中可以包含多個(gè) Exit Function 語(yǔ)句D.可以像調(diào)用Sub過(guò)程一樣調(diào)用 Function過(guò)程第37題F面的關(guān)系表達(dá)式中，運(yùn)算結(jié)果為T(mén)rue的是 BA. CInt(1.5)=Int(1.5)C. Fix(-1.5)=CInt(-1.5)B. Fix(1.5)=Int(1.5)D. Fix(-1.5)=Int(-1.5)第38題已知X<Y,A>B,

19、則下列表達(dá)式中A. Sgn(X-Y)+Sgn(A-B)=-1C. Sgn(Y-X)+Sgn(A-B)=2,結(jié)果為T(mén)rue的是 C_B. Sgn(X-Y)+Sgn(A-B)=-2D. Sgn(Y-X)+Sgn(A-B)=0第39題執(zhí)行 B 語(yǔ)句時(shí)，會(huì)出現(xiàn)出錯(cuò)提示信息.D. Print "14”+32A. Print 5+7=14B. Print 16384*2C. Print 32768*2第40題表達(dá)式是_D.數(shù)學(xué)表達(dá)式sin30 10g x-y對(duì)應(yīng)的 Visual Basic2 ex yA. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+E

20、xp(x+y)B. (Sin(30* Tt /180)+Sqr(Ln(x)+y)/(2* n +Exp(x+y)C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+eA(x+y)D. (Sin(30*3.14159/180)+Sqr(Log(x)+y)/(2*3.14159+Exp(x+y)第41題在一個(gè)多窗體程序中，可以?xún)H將窗體 Form2從內(nèi)存中卸載的語(yǔ)句是 _BA. Form2.UnloadC. Form2.End第42題Print方法可在 A 上輸出數(shù)據(jù)窗體文本框圖片框A.B.第43題B. Unload Form2D. Form2.Hide標(biāo)

21、簽列表框立即窗口C.D.若要使邏輯表達(dá)式x>y Xor y<z 結(jié)果為T(mén)rue,則x、y、z的取值應(yīng)為下列選項(xiàng)中的A. x=3 、y=3、z=4C. x=1、y=3、z=2第44題下列 D 是合法的變量名A. absB. al第45題下列D是正確的VB常量.A. D-6B. E-6第46題B. x=2、y=1、z=2D. x=2、y=2、z=2C. cdc dD. Abe_10C. 5DD. 5E-6若在模塊中用Private Function Fun(A as Single,B as Integer) As Integer定義了函數(shù) Fun.調(diào)用函數(shù)的過(guò)程中定義了I、J和K三個(gè)I

22、nteger型變量，則下列語(yǔ)句中不能正確調(diào)用函數(shù)Fun的語(yǔ)句是 CA. Fun 3.14,JB. Call Fun(I,365)C. Fun(I),(J)D. K=Fun("24","35")第47題若需要在同一窗體內(nèi)安排兩組相互獨(dú)立的單選按鈕(OptionButton), 可使用C控件做容器將它們分開(kāi).3) ImageFun TextBox PictureBoxA.或B.或第48題以下關(guān)于文件的敘述中，錯(cuò)誤的是D FrameC. 或 D.或C o用Output模式打開(kāi)一個(gè)順序文件，即使不對(duì)它進(jìn)行寫(xiě)操作，原來(lái)的內(nèi)容也被清除B.可以用Print # 語(yǔ)句或

23、 Write#語(yǔ)句將數(shù)據(jù)寫(xiě)到順序文件中C.若以O(shè)utput、Append、Random Binary 方式打開(kāi)一個(gè)不存在的文件，系統(tǒng)會(huì)出錯(cuò)D.順序文件或隨機(jī)文件都可以用二進(jìn)制訪問(wèn)模式打開(kāi)第49題窗體上有若干命令按鈕和一個(gè)文本框，程序運(yùn)行時(shí)焦點(diǎn)置于文本框中，為了在按下回車(chē)鍵時(shí)執(zhí)行某個(gè)命令按鈕的Click事件過(guò)程，需要將該按鈕的 B 屬性設(shè)置為T(mén)rue.A. EnabledB. DefaultC. CancelD. Visible第50題數(shù)學(xué)表達(dá)式5xcos 29(ex ln y) 5對(duì)應(yīng)的VB表達(dá)式是_CA. (xA5-Cos(29)/Sqr(eAx+In(y)+5B. (xA5-Cos(29)

24、/(Sqr(Exp(x)+Log(y)+5)C. (xA5-Cos(29*3.14159/180)/(Sqr(Exp(x)+Log(y)+5)D. (xA5-Cos(29*3.14159/180)/(Sqr(eAx+Log(y)+5二、填空_共 20 題 (選： 15 空*2 =30分) 閱讀理解 ：填寫(xiě)程序的輸出結(jié)果第1題運(yùn)行下列程序， 單擊 Command1, 在窗體上顯示的第一行內(nèi)容是【1】 , 第二行的內(nèi)容是【2】 ,第三行的內(nèi)容是 【 3】 。Option ExplicitPrivate Sub Command1_Click()Dim s As Strings="Basic

25、"Call trans(s)End SubPrivate Sub trans(s As String)Dim j As Integer,t As StringDim k As Integerk=3Doj=InStr(s,"a")t=LCase(Right(s,j)s=Right(t,Len(s)-k) & Left(s,Len(t)k=k-1Print sLoop Until k=0End Sub第2題執(zhí)行下面程序，單擊 Command,則窗體上顯示的第一行是【1第,第三行是【2】,最后一行是 3】。Option ExplicitPrivate Sub C

26、ommand1 】 Click()Dim x As Integer,y As Integer x=12:y=0Do While x> 0If x Mod 4=0 Theny=y+xElsey=y-xEnd Ifx=x-3Print x,yLoopEnd Sub第3題執(zhí)行下面的程序，單擊Commandl窗體上顯示的第一行是 【1】 ,第二行是 【2】 ,第四行是 【 3 】 。Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integera=1 : b=1Call sub1(a, b)Print a, bE

27、nd SubPrivate Sub sub1(a As Integer, b As Integer)a=a+b : b=b+aPrint a, bIf a>10 Thena=a+bb=b+aElseCall sub1(a, b)End IfEnd Sub第4題運(yùn)行下面的程序，單擊Command1在窗體上顯示的變量a的值為【1】 ,變量b的值為【2】變量c的值為【3】oOption ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera=5: b=10: c=15Print fun(

28、a,b,c)+fun(a,b,c)Print a,b,cEnd SubPrivate Function fun(x As Integer, y As Integer, z As Integer) As Integerz=xx=x+yy=y+z fun=x+yEnd Function第5題執(zhí)行下面的程序，連續(xù)三次單擊命令按鈕Command叱后，A數(shù)組共有 【1】 個(gè)元素;數(shù)組元素 A 的值【2】,A(4)的值是3】。Option ExplicitOption Base 1Private Sub Command1_Click()Static A( ) As Integer,n As Integer

29、Dim i As Integer,k As Integerk=n 'n=n + 2ReDim Preserve A(n)For i=k+1 To nA(i)=i*n+1Next iFor i=1 To n Print A(i);Next i PrintEnd Sub第6題運(yùn)行下面程序，單擊Command1在窗體上顯示的變量 A的值為【1】 ,變量B的值為【2】 。Option ExplicitDim a As IntegerPrivate Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a

30、) + b Print a, bEnd SubPrivate Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + aEnd Function第7題執(zhí)行下面的程序，單擊Commandl,則窗體上第一行顯示的是【1】,第二行顯示的是【2】。Option Explicit Dim x As Integer Private Sub Command1_Click()Dim y as IntegerX=10:Y=2Call process(y) Print X,Y Call process(y) Print

31、X,YEnd SubPrivate Sub process(n As Integer)Dim y As IntegerIf n>0 Then x=x-n y=xElse x=x+n y=x+2End If n=-n End Sub第8題執(zhí)行下面程序，單擊Command1窗體上顯示的第一行是【1】，第二行是【2】，第四彳f是【3】 最后一行是【4】.Option ExplicitPrivate Sub Command1_Click()Dim n As Integer n = 5Call test(n)Print nEnd SubPrivate Sub test(ByVal n As Int

32、eger)Dim i As Integer, s As IntegerIf n > 0 ThenFor i = 1 To ns = s & CStr(i)Next iPrint sCall test(n - 2)ElsePrint "OVER"End IfEnd Sub第9題運(yùn)行下列程序，單擊 Command1在窗體上顯示的第一行內(nèi)容是【1】，第二行的內(nèi)容是2】，第三行的內(nèi)容是 【3】。("A"的ASCII碼是65, "Z"是90)Option ExplicitPrivate Sub Command1_Click()Di

33、m i As Integer, st As String, n As Integer, p As String * 1 p = "B"For i = 3 To 1 Step -1n = Asc(p) - iIf n < 65 Then n = n + 26st = Chr(n)st = st & F(i)Print stNext iEnd SubPrivate Function F(n As Integer)Dim i As IntegerStatic s As IntegerFor i = 1 To ns = s + iNext iF = sEnd Func

34、tion第10題執(zhí)行下面的程序，單擊Command1輸出的變量i的值是 【1，變量j的值是 【2，變量k的值是 【3】 Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerAs IntegerDim k As Integer i=10j=4 k=Funk(i,j) Print i,j,kEnd SubPriate Function Funk(ByVal A As Integer,B As Integer) As Integer A=A+BB=B-2If B=0 Or B=1 ThenFunk=1ElseFunk=A+Funk(A

35、,B)End IfEnd Function第11題【1】一個(gè)元素；數(shù)組元素 A(2)的值是【2】運(yùn)行下面程序，如果連續(xù)三次單擊命令按鈕之后，A數(shù)組共有 ,A(5)的值是【3】.Option ExplicitOption Base 1Private Sub Command1_Click() Static a() As Integer, n As Integer Dim i As Integer, k As Integer k = nReDim Preserve a(n)For i = k + 1 To na(i) = i * n +Next iFor i = 1 To nPrint a(i);N

36、ext iPrintEnd Sub第12題執(zhí)行下面的程序，單擊Command1在窗體界面上顯示的第一行是【1】,第二行是【2】，第三行是【3】第四行是【4】。Option ExplicitPrivate Sub Command1_Click()Dim a As Integer,b As Integer,i As Integeri=1218a=i100b=i Mod 100If b<>0 ThenPrint aPrint bPrint Lcd(a),(b);a;bPrint Lcd(a,b);a;bEnd IfEnd SubPrivate Function Lcd(x As Inte

37、ger,Y As Integer) As IntegerDim d As IntegerIf x<y then d=x:x=y:y=dEnd Ifd=xDoIf x Mod y=0 ThenLcd=xExit DoElsex=x+dEnd IfLoopEnd Function第13題執(zhí)行以下程序，單擊Command1則在Picturel上顯示的第一行是【1】，第二行是【2】，第三行是【3】Option ExplicitPrivate Sub Command1_Click()Dim A(3,3) As Integer,i As Integer,j As IntegerDim k As In

38、tegeri=3:j=2:A(i,j)=1:k=1Do Until k>9k=k+1If i+1>3 And j+1<=3 Theni=1:j=j+1ElseIf i+1<=3 And j+1>3 Theni=i+1:j=1Elself i+1>3 And j+1>3 Theni=i-1ElseIf i+1<=3 And j+1<=3 And A(i+1,j+1)<>0 Theni=i-1Elsei=i+1:j=j+1End IfA(i,j)=kLoopFor i=1 To 3For j=1 To 3Picture1.Print

39、 A(i,j);Next jPicture1.PrintNext iEnd Sub第 14題執(zhí)行下列程序，單擊Command,在窗體上顯示的第一行內(nèi)容是【1內(nèi),第二行的內(nèi)容是【2】 ,第三行的內(nèi)容是【3】oOption ExplicitPrivate Sub Command1_ClickDim n As Integer ,i As Integern=2For i=7 To 1 Step -1Call sub2(i,n)Print i,nNext iEnd SubPrivate Sub sub2(x As Integer,y As Integer)Static n As IntegerDim i

40、 As IntegerFor i =2 To 1 Step -1n =n+xx =x-1Next iy=y+nEnd Sub第 15題執(zhí)行下列的程序，單擊Command1在窗體上顯示的變量b的值為【1】，變量 c的值為【2】,變量 z 的值為】【 3】。Private Sub Command1_Click()Dim b As Integer,c As Integer,z As Integerb=2c=1z=fun(b,fun(b+1,c)+b-c+1Print b,c,zEnd SubPrivate Function fun(x As Integer,ByVal y As Integer) A

41、s Integerx=x-yy=x+y+2fun=y-xEnd Function第 16題執(zhí)行下面程序，單擊Commandl窗體上顯示的第一行是 【1】 ,第二行是【2】 ,第四行是_【3】.Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, i As Integera=2:b=5For i=a To a*b Step aCall sub1(i,a,b)Print a,bNext iPrint a,b,iEnd SubPrivate Sub sub1(i As Integer, a As Inte

42、ger, b As Integer)i=i+1a=a+1b=b+1End Sub第17題執(zhí)行下面程序，單擊 Command1窗體上顯示的第一行是【1】,第二行是【2第,第三行是【3】OOption ExplicitOption Base 1Private Sub Command1_Click()Dim sa (3,3) As String*1,i As Integer,j As Integer,k as Integerk=1For i=1 To 3For j=1 To 3sa(i,j)=Chr(Asc("A")+(k+i+j) Mod 26)Print sa(i,j);&q

43、uot; " k=k+3Next jPrintNext iEnd Sub第 18題執(zhí)行下面程序，單擊Commandl則數(shù)組元素a(1,2)的數(shù)值是【1】 ,a(3,3)的數(shù)值是 【2】 ,圖片框中最后一行顯示的是 【 3 】 .Option ExplicitPrivate Sub Command1_Click()Dim a(4,4) as Integer, i as Integer, j as IntegerDim k As Integer, num as Integernum=0For k=1 To 4For i=1 To k-1num=num+1 a(i,k)=numnext i

44、For j=k To 1 Step -1num=num+1 a(k,j)=numnext jFor i=1 To 4For j=1 To 4Picturel.Print Right(" " & a(i,j),3); Next j Picturel.PrintNext iEnd Sub第19題執(zhí)行下面程序，單擊 Command1則圖片框中顯示的第一行是【1】 ，顯示的第二行是 【2】，最后一行顯示的是 【3】 .Private Sub Command1_Click()Dim a(3, 3) As IntegerDim i As Integer, j As Intege

45、rFori = 1 To 3For j = 3 To 1 Step -1 If i >= j Then a(i, j) = i - jElsea(i, j) = j - iEnd IfNext jNext iFori = 1 To 3For j = 3 To 1 Step -1 Picture1.Print a(i, j);Next j Picture1.PrintNext iEnd Sub第20題執(zhí)行下面程序，單擊 Command1則窗體上顯示的第一行是【1】、第二行是【2】,第三行是【3】Option ExplicitPrivate Sub Command1_Click()Dim a

46、 As String,i As Integer Dim x As String,z As String a="iamstudent" i=InStr(5,a,"d") Dox=Mid(a,i,3)z=Right(x,1) z=UCase(x & Z) i=i-2Print zLoop Until i=1End Sub三、程序填空共16題（選：10空*2 =20分）一一完形填空：把題目中空的程序代碼行補(bǔ)齊本程序的功能是把由4個(gè)"."分隔的十進(jìn)制數(shù)表示的IP地址轉(zhuǎn)換為由32位二進(jìn)制數(shù)組成的IP地址。例如十進(jìn)制表示的IP地址為202

47、.119.191.1,其中每個(gè)十進(jìn)制數(shù)對(duì)應(yīng)一個(gè)8位的二進(jìn)制數(shù)，合起來(lái)構(gòu)成一個(gè)32位二進(jìn)制的IP地址11001010011101111011111100000001。過(guò)程Tiqu用于提取十進(jìn)制IP地址中每個(gè)用"."分隔的十進(jìn)制數(shù)；過(guò)程Convert用于將十進(jìn)制數(shù)轉(zhuǎn)換為相應(yīng)的8位二進(jìn)制數(shù)。程序界面參見(jiàn)下圖。Option ExplicitPrivate Sub Command1_Click()Dim str1 As String, str2 As StringDim a(4) As Integer, i As Integerstr1 = Text1.TextCall Tiqu(s

48、tr1, a)For i = 1 To 4If a(i) < 0 Or a(i) > 255 ThenMsgBox("IP地址錯(cuò)誤！")Exit SubElseI*SPACE*【？】End IfNext iText2.Text = str2End SubPrivate Sub Tiqu(st As String, a() As Integer)Dim n As Integer, k As Integer, s As String, d As String * 1, i As Integer n = Len(st): k = 0: s =""F

49、or i = 1 To n*SPACE*If d = "." Thenk = k + 1a(k) = Val(s)I*SPACE*【？】Elses = s & dEnd IfNext ia(4) = sEnd SubPrivate Function convert(ByVal n As Integer) As StringDim b As Integer, i As Integer, s As StringDo While n > 0b = n Mod 2If【？】ThenI*SPACE*【？】LoopFori = 1 To 8 - Len(s)s = &qu

50、ot;0" & sNext iI*SPACE*Left>Right 為止。For I = 1 To N【？】End Function下面程序的功能是：統(tǒng)計(jì)存放在數(shù)組A中的N個(gè)數(shù)有多少個(gè)是不同的。具體做法是：變量 Left指向要被處理的數(shù)(從第 2個(gè)元素開(kāi)始)，Right指向數(shù)組最后一個(gè)元素。若 A(Left)與排在它前面的某個(gè)數(shù)組元素值相同，就用數(shù)組元素A(Right)的值來(lái)替換A(Left)的值，同時(shí)將變量Right的值減1;否則將變量Left的值加1,處理數(shù)組下一個(gè)元素，重復(fù)以上過(guò)程，直到'Right的值即為不同的數(shù)的個(gè)數(shù)。程序界面參見(jiàn)下圖所示Option

51、ExplicitOption Base 1Private Sub Command1_Click()Dim A() As Integer, N As Integer, I As IntegerDim OP As IntegerN = InputBox("請(qǐng)輸入數(shù)據(jù)個(gè)數(shù)"，10)ReDim A(N)RandomizeA(I) = Int(Rnd *10) + 1Textl = Text1 & A(I) & ""Next ICall statistic(A, OP)Text2 =" 有"& OP & &quo

52、t; 個(gè)不同的數(shù)：”For I = 1 To OPText2 = Text2 & A(I) & ""Next IEnd SubPrivate Sub statistic(A() As Integer, Right As Integer) Dim Left As Integer, K As Integer, I As Integer*SPACE*Right=Left = 2Do While Left <= RightI*SPACE*K=【？】For I = K To 1 Step -1If A(Left) = A(I) Then Exit ForNext

53、 I *SPACE*Left = Left + 1ElseA(Left) = A(Right)I*SPACE*End IfLoopEnd SubF面程序的功能是隨機(jī)生成小于100的諸素?cái)?shù)組成的數(shù)據(jù)。程序界面如下圖所示Option ExplicitPrivate Sub Command1_Click()Dim p() As IntegerAs Integer,n As IntegerDim st As String,k As IntegerRandomizek =InputBox(" 元素個(gè)數(shù)；",20)ReDim p(k)Don =Int(Rnd*90)+10I*SPACE*IfTheni =i+1p(i) =nEnd IfI*SPACE*Loop Until 【？】For i =1 To UBound(p)st =st & Str(p(i)If i Mod 10 =0 Then st =st & vbCrLfNext