青島科技大學(xué)信息工程 VB期末考試題庫及答案

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

2、)+Sqr(x+e3)/Abs(x+y)D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)第3題下列有關(guān)對(duì)象的敘述中,正確的是_A. 對(duì)象由屬性，事件和方法構(gòu)成B. 對(duì)象的所有屬性既可以在屬性窗口設(shè)置，又可以在程序運(yùn)行時(shí)用賦值語句設(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é)果是_.A. 1B. -1C. 2D. 3第5題下列關(guān)于菜單的說法中,錯(cuò)誤的是_.A. 每

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

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

5、;"C. List1.ClearD. List1.RemoveItem List1.ListIndex第10題數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的VB表達(dá)式是_.A. (e(2*x-5)*Log(x)+(Sin(2x)3)/Sqr(Sin(x)-Cos(x2)B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2)C. (Exp(2*x-5)*Ln(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2)D. e(2*3.14159*x-5)*Ln(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2)第11題以下有

6、關(guān)數(shù)組參數(shù)的說明中，正確的是_A. 在過程中也可用Dim語句對(duì)形參數(shù)組進(jìn)行說明B. 動(dòng)態(tài)數(shù)組作為實(shí)參時(shí)，可用ReDim語句在過程中改變對(duì)應(yīng)形參數(shù)組的維界C. 調(diào)用過程時(shí)，數(shù)組名不能作為實(shí)參D. 數(shù)組可以按地址傳遞也可以按植傳遞第12題下列有關(guān)過程的說法中,錯(cuò)誤的是_.A. 在Sub或 Function過程內(nèi)部不能再定義其它Sub或 Function 過程B. 對(duì)于使用ByRef說明的形參,在過程調(diào)用時(shí)形參和實(shí)參只能按傳址方式結(jié)合C. 遞歸過程既可以是遞歸Function過程,也可以是遞歸Sub過程D. 可以像調(diào)用Sub過程一樣使用Call語句調(diào)用Function過程第13題 要將焦點(diǎn)設(shè)置在某個(gè)

7、控件上,以下四個(gè)選項(xiàng)中正確的是_.A. 只能使用鼠標(biāo)直接點(diǎn)擊控件B. 只能使用Tab鍵將焦點(diǎn)移到該控件C. 只能在程序中調(diào)用該控件的SetFocus方法D. A、B、C三選項(xiàng)中涉及的方法均可使用第14題以下Case語句中,能正確描述Y的絕對(duì)值大于6的是_.A. Case Abs(Y)>6B. Case -6 To 6C. Case Not(-6 To 6)D. Case Is<-6,Is>6第15題以下關(guān)于變量作用域的敘述中,正確的是_.A. 窗體中凡用Private聲明的變量只能在某個(gè)指定的過程中使用B. 模塊級(jí)變量只能用Dim語句聲明C. 凡是在窗體模塊或標(biāo)準(zhǔn)模塊的通用聲

8、明段用Public語句聲明的變量都是全局變量D. 當(dāng)不同作用域的同名變量發(fā)生沖突時(shí)，優(yōu)先訪問局限性小的變量第16題以下關(guān)于數(shù)值常量的說法中,錯(cuò)誤的是_A. 八進(jìn)制數(shù)的表示方法是在數(shù)字前面加&OB. 十六進(jìn)制數(shù)的表示方法是在數(shù)字前面加&HC. 在浮點(diǎn)運(yùn)算中使用D來分隔尾數(shù)和指數(shù)時(shí)，系統(tǒng)將把該數(shù)值作為單精度型數(shù)處理D. 32768是合法的數(shù)值常量第17題 數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的VB表達(dá)式是_.A. Abs(ex+Sin(30)3)Sqr(x+y)B. Abs(Exp(x)+Sin(30)3)(Sqr(x+y)C. Abs(ex+Sin(30*3.14159180)3)(Sqr(x+y)

9、D. Abs(Exp(x)+Sin(30*3.14159180)3)Sqr(x+y)第18題下面的4個(gè)表達(dá)式中,有關(guān)_個(gè)能夠?qū)ingle類型變量x(正數(shù))的第3位小數(shù)正確地進(jìn)行四舍五入計(jì)算.Format(x,#.00) Int(100*(x+0.005)/100 CInt(100*(x+0.005)/100 Fix(100*(x+0.005)/100A. 1個(gè)B. 2個(gè)C. 3個(gè)D. 4個(gè)第19題執(zhí)行以下語句時(shí),會(huì)出現(xiàn)錯(cuò)誤提示的是_.A. Print"2b3 " +12.5B. Print"12.5"+ 12C.Print"12.5"

10、; & 12.5D.Print"2e3"+12第20題以下Case語句含有錯(cuò)誤的是_.A. Case 0 To 10B. Case Is>10C. Case Is>10 And Is<50D. Case 3,5,Is>10第21題下列語句中,正確的是_A. Textl.SetFocusB. Forml.ClearC. Labell.SetFocusD. Listl.Cls第22題 下列選項(xiàng)中,所包含的所有表達(dá)式能夠?qū)晌徽麛?shù)x的個(gè)位數(shù)與十位數(shù)對(duì)調(diào)(如將78轉(zhuǎn)換為87)的是_. Val(Right(X,1)&Left(X,1) Val(

11、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)于子過程或函數(shù)的定義中,正確的是_A. Sub f1(n As String*1 )B. Sub f1(n As Integer)As IntegerC. Function f1(f1 As Integer)As IntegerD. Function f1(ByVal n As Integer)第24題 下列有關(guān)控件數(shù)組的說法中,錯(cuò)誤的是_.A. 控件數(shù)組

12、由一組具有相同名稱和相同類型的控件組成，不同類型的控件無法組成控件數(shù)組B. 控件數(shù)組中的所有控件不得具有各自不同的屬性設(shè)置值C. 控件數(shù)組中的所有控件共享同一個(gè)事件過程D. 控件數(shù)組中每個(gè)元素的下標(biāo)由控件的Index屬性指定第25題 以下對(duì)數(shù)組參數(shù)的說明中,錯(cuò)誤的是_ .A. 在過程中可以用Dim語句對(duì)形參數(shù)組進(jìn)行聲明B. 形參數(shù)組只能按地址傳遞C. 實(shí)參為動(dòng)態(tài)數(shù)組時(shí)，可用ReDim語句改變對(duì)應(yīng)形參數(shù)組的維界D. 只需把要傳遞的數(shù)組名作為實(shí)參，即可調(diào)用過程第26題 要向文件datal.txt添加數(shù)據(jù),正確的文件打開命令是_.A. Open"datal.txt"For Out

13、put 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ù)組處理的敘述中，正確的是_.A. 在過程中使用ReDim語句可以改變動(dòng)態(tài)數(shù)組數(shù)據(jù)的類型B. 在過程中，可以使用Dim 、Private和 Static語句來定義數(shù)組C. 用ReDim語句重新定義動(dòng)態(tài)數(shù)組時(shí)，可以改變數(shù)組的大小，但不能改變數(shù)組的維數(shù)D. 不可以用Public語句在窗體模塊的通用處說明一個(gè)

14、全局?jǐn)?shù)組第28題 下面的表達(dá)式中,運(yùn)算結(jié)果為True的是_.A. "abcrd" <="ABCRD"B. Int(134.69) <=CInt(134.69)C. 3>2>1D. Mid("Visual",1,4)=Right("lausiV",4)第29題設(shè)計(jì)界面時(shí),要使一個(gè)文本框具有水平和垂直滾動(dòng)條,應(yīng)先將其_屬性置為True,再將ScrollBar屬性設(shè)置為3.A. MultiLineB. AutoSizeC. AlignmentD. RightToLeft第30題 下面有關(guān)數(shù)組的說法

15、中,正確的是_A. 數(shù)組的維下界不可以是負(fù)數(shù)B. 模塊通用聲明處有Option Base 1，則模塊中數(shù)組定義語句Dim A(0 To 5)會(huì)與之沖突C. 模塊通用聲明處有Option Base 1，模塊中有Dim A(0 To 5),則A數(shù)組第一維維下界為0D. 模塊通用聲明處有Option Base 1，模塊中有DimA(0 To 5),則A數(shù)組第一維維下界為1第31題 下面有關(guān)數(shù)組的敘述中,不正確的是_. 在過程中用ReDim語句定義的動(dòng)態(tài)數(shù)組,其下標(biāo)的上下界可以是變量 數(shù)組作為形式參數(shù)時(shí),傳遞的是每個(gè)數(shù)組元素的值 在窗體模塊的通用聲明處可以用Public 說明一個(gè)全局?jǐn)?shù)組 數(shù)組定義語句

16、中可以用負(fù)數(shù)或小數(shù)來指定某一維的維下界或維上界的值A(chǔ). B. C. D. 第32題下列關(guān)于對(duì)象SetFocus與GotFocus的描述中,正確的是_A. SetFocus是事件,GotFocus是方法B. Setfocus和Gotfocus都是事件C. Setfocus和GotFocus都是方法D. SetFocus是方法,GotFocus是事件第33題 創(chuàng)建一個(gè)名為"文件"的菜單項(xiàng),欲使其可用Alt+F方式訪問,則在菜單編輯器的標(biāo)題文本框中應(yīng)輸入_.A. 文件($F)B. 文件(&F)C. 文件(#F)D. 文件(%F)第34題 在下列屬性中,屬于CommandB

17、utton控件、ListBox控件共有的是_.A. Caption、TextB. Visible、FontC. Caption、VisibleD. List、Visible第35題 下列能夠正確表示條件"XY<Z"的VB邏輯表達(dá)式是_A. XY<ZB. X<=Y And Y<ZC. XY OR Y<ZD. X<=Y<Z第36題 以下關(guān)于Function過程的說法中,錯(cuò)誤的是_.A. Function過程名可以有一個(gè)或多個(gè)返回值B. 在Function過程內(nèi)部不得再定義Function過程C. Function過程中可以包含多個(gè)Exi

18、t Function語句D. 可以像調(diào)用Sub過程一樣調(diào)用Function過程第37題 下面的關(guān)系表達(dá)式中,運(yùn)算結(jié)果為True的是_.A. CInt(1.5)=Int(1.5)B. Fix(1.5)=Int(1.5)C. Fix(-1.5)=CInt(-1.5)D. Fix(-1.5)=Int(-1.5)第38題已知X<Y,A>B,則下列表達(dá)式中,結(jié)果為True的是_A. Sgn(X-Y)+Sgn(A-B)=-1B. Sgn(X-Y)+Sgn(A-B)=-2C. Sgn(Y-X)+Sgn(A-B)=2D. Sgn(Y-X)+Sgn(A-B)=0第39題 執(zhí)行_語句時(shí),會(huì)出現(xiàn)出錯(cuò)提示

19、信息.A. Print 5+7=14B. Print 16384*2C. Print 32768*2D. Print "14"+32第40題 數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的Visual Basic表達(dá)式是_.A. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)B. (Sin(30*/180)+Sqr(Ln(x)+y)/(2*+Exp(x+y)C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e(x+y)D. (Sin(30*3.14159/180)+Sqr(Log(x)+y)/(2*

20、3.14159+Exp(x+y)第41題 在一個(gè)多窗體程序中,可以僅將窗體Form2從內(nèi)存中卸載的語句是_.A. Form2.UnloadB. Unload Form2C. Form2.EndD. Form2.Hide第42題Print方法可在_上輸出數(shù)據(jù).窗體 文本框 圖片框 標(biāo)簽 列表框 立即窗口A. B. C. D. 第43題 若要使邏輯表達(dá)式x>y Xor y<z 結(jié)果為True,則x、y、z的取值應(yīng)為下列選項(xiàng)中的_.A. x=3、y=3、z=4B. x=2、y=1、z=2C. x=1、y=3、z=2D. x=2、y=2、z=2第44題 下列_是合法的變量名.A. absB

21、. alC. cdc dD. Abe_10第45題 下列_是正確的VB常量.A. D-6B. E-6C. 5DD. 5E-6第46題 若在模塊中用Private Function Fun(A as Single,B as Integer) As Integer 定義了函數(shù)Fun.調(diào)用函數(shù)Fun的過程中定義了I、J和K三個(gè)Integer型變量,則下列語句中不能正確調(diào)用函數(shù)Fun的語句是_.A. Fun 3.14,JB. Call Fun(I,365)C. Fun(I),(J)D. K=Fun("24","35")第47題 若需要在同一窗體內(nèi)安排兩組相互獨(dú)立

22、的單選按鈕(OptionButton),可使用_控件做容器將它們分開.TextBox PictureBox Image FrameA. 或B. 或C. 或D. 或第48題 以下關(guān)于文件的敘述中，錯(cuò)誤的是_。A. 用Output模式打開一個(gè)順序文件，即使不對(duì)它進(jìn)行寫操作，原來的內(nèi)容也被清除B. 可以用Print #語句或 Write# 語句將數(shù)據(jù)寫到順序文件中C. 若以O(shè)utput、Append、Random、Binary 方式打開一個(gè)不存在的文件，系統(tǒng)會(huì)出錯(cuò)D. 順序文件或隨機(jī)文件都可以用二進(jìn)制訪問模式打開 第49題 窗體上有若干命令按鈕和一個(gè)文本框,程序運(yùn)行時(shí)焦點(diǎn)置于文本框中,為了在按下回車

23、鍵時(shí)執(zhí)行某個(gè)命令按鈕的Click事件過程,需要將該按鈕的_屬性設(shè)置為True.A. EnabledB. DefaultC. CancelD. Visible第50題 數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的VB表達(dá)式是_A. (x5-Cos(29)/Sqr(ex+In(y)+5B. (x5-Cos(29)/(Sqr(Exp(x)+Log(y)+5)C. (x5-Cos(29*3.14159/180)/(Sqr(Exp(x)+Log(y)+5)D. (x5-Cos(29*3.14159/180)/(Sqr(ex+Log(y)+5二、填空_共20題（選：15空*2=30分）閱讀理解：填寫程序的輸出結(jié)果第1題 運(yùn)行下列程

24、序，單擊Command1, 在窗體上顯示的第一行內(nèi)容是_【1】_, 第二行的內(nèi)容是_【2】_, 第三行的內(nèi)容是_【3】_。 Option Explicit Private Sub Command1_Click() Dim s As String s="Basic" Call trans(s) End Sub Private Sub trans(s As String) Dim j As Integer,t As String Dim k As Integer k=3 Do j=InStr(s,"a") t=LCase(Right(s,j) s=Right

25、(t,Len(s)-k) & Left(s,Len(t) k=k-1 Print s Loop Until k=0 End Sub第2題 執(zhí)行下面程序，單擊Command1，則窗體上顯示的第一行是【1】，第三行是【2】，最后一行是【3】。Option ExplicitPrivate Sub Command1Click() Dim x As Integer,y As Integer x=12:y=0 Do While x> 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y LoopEnd Sub第3題 執(zhí)行下面的

26、程序，單擊Command1,窗體上顯示的第一行是_【1】_，第二行是_【2】_,第四行是_【3】_。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b) Print a, b End SubPrivate Sub sub1(a As Integer, b As Integer) a=a+b : b=b+a Print a, b If a>10 Then a=a+b b=b+a Else Call sub1(a, b) End If End

27、 Sub第4題 運(yùn)行下面的程序，單擊Command1,在窗體上顯示的變量a的值為_【1】_，變量b的值為_【2】_,變量c的值為_【3】_。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=5: b=10: c=15 Print fun(a,b,c)+fun(a,b,c) Print a,b,c End SubPrivate Function fun(x As Integer, y As Integer, z As Integer) As Integer z=

28、x x=x+y y=y+z fun=x+yEnd Function第5題 執(zhí)行下面的程序，連續(xù)三次單擊命令按鈕Command1之后，A數(shù)組共有 【1】 個(gè)元素；數(shù)組元素A(2)的值 【2】 ，A(4)的值是 【3】 。 Option Explicit Option Base 1 Private Sub Command1_Click() Static A( ) As Integer,n As Integer Dim i As Integer,k As Integer k=n ' n=n + 2 ReDim Preserve A(n) For i=k+1 To n A(i)=i*n+1 N

29、ext i For i=1 To n Print A(i); Next i Print End 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) + b Print a, bEnd SubPrivate Function fun(n As Integer, k As Integer) n = n + a k

30、 = 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 Integer X=10:Y=2 Call process(y) Print X,Y Call process(y) Print X,Y End Sub Private Sub process(n As Integer) Dim y As Integer If n>0 T

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

32、r i = 1 To n s = s & CStr(i) Next i Print s Call test(n - 2) Else Print "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() Dim i As Integer, st As String, n As Inte

33、ger, p As String * 1 p = "B" For i = 3 To 1 Step -1 n = Asc(p) - i If n < 65 Then n = n + 26 st = Chr(n) st = st & F(i) Print st Next iEnd SubPrivate Function F(n As Integer) Dim i As Integer Static s As Integer For i = 1 To n s = s + i Next i F = sEnd Function第10題 執(zhí)行下面的程序，單擊Command

34、1，輸出的變量i的值是 【1】 ，變量j的值是 【2】 ，變量k的值是 【3】 。 Option Explicit Private Sub Command1_Click() Dim i As Integer,j As Integer Dim k As Integer i=10 j=4 k=Funk(i,j) Print i,j,k End Sub Priate Function Funk(ByVal A As Integer,B As Integer) As Integer A=A+B B=B-2 If B=0 Or B=1 Then Funk=1 Else Funk=A+Funk(A,B)

35、End If End Function第11題 運(yùn)行下面程序，如果連續(xù)三次單擊命令按鈕之后，數(shù)組共有_【1】_個(gè)元素；數(shù)組元素A(2)的值是_【2】_,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 = n n = n + 2 ReDim Preserve a(n) For i = k + 1 To n a(i) = i * n + 1 Next i For i =

36、1 To n Print a(i); Next i PrintEnd Sub第12題 執(zhí)行下面的程序，單擊Command1,在窗體界面上顯示的第一行是 【1】 ，第二行是 【2】 ，第三行是 【3】 ，第四行是 【4】 。 Option Explicit Private Sub Command1_Click() Dim a As Integer,b As Integer,i As Integer i=1218 a=i100 b=i Mod 100 If b<>0 Then Print a Print b Print Lcd(a),(b);a;b Print Lcd(a,b);a;b

37、 End If End Sub Private Function Lcd(x As Integer,Y As Integer) As Integer Dim d As Integer If x<y then d=x:x=y:y=d End If d=x Do If x Mod y=0 Then Lcd=x Exit Do Else x=x+d End If LoopEnd Function第13題 執(zhí)行以下程序，單擊Command1，則在Picturel上顯示的第一行是 【1】 ，第二行是 【2】 ，第三行是 【3】 。 Option Explicit Private Sub Comma

38、nd1_Click() Dim A(3,3) As Integer,i As Integer,j As Integer Dim k As Integer i=3:j=2:A(i,j)=1:k=1 Do Until k>9 k=k+1 If i+1>3 And j+1<=3 Then i=1:j=j+1 ElseIf i+1<=3 And j+1>3 Then i=i+1:j=1 Elself i+1>3 And j+1>3 Then i=i-1 ElseIf i+1<=3 And j+1<=3 And A(i+1,j+1)<>0

39、 Then i=i-1 Else i=i+1:j=j+1 End If A(i,j)=k Loop For i=1 To 3 For j=1 To 3 Picture1.Print A(i,j); Next j Picture1.Print Next iEnd Sub第14題 執(zhí)行下列程序，單擊Command1，在窗體上顯示的第一行內(nèi)容是【1】，第二行的內(nèi)容是【2】，第三行的內(nèi)容是【3】。Option ExplicitPrivate Sub Command1_Click Dim n As Integer ,i As Integer n=2 For i=7 To 1 Step -1 Call s

40、ub2(i,n) Print i,n Next i End SubPrivate Sub sub2(x As Integer,y As Integer) Static n As Integer Dim i As Integer For i =2 To 1 Step -1 n =n+x x =x-1 Next i y=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 Integ

41、er b=2 c=1 z=fun(b,fun(b+1,c)+b-c+1 Print b,c,z End Sub Private Function fun(x As Integer,ByVal y As Integer) As Integer x=x-y y=x+y+2 fun=y-x End Function第16題 執(zhí)行下面程序，單擊Command1,窗體上顯示的第一行是_【1】_,第二行是_【2】_,第四行是_【3】_. Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Int

42、eger a=2:b=5 For i=a To a*b Step a Call sub1(i,a,b) Print a,b Next i Print a,b,i End Sub Private Sub sub1(i As Integer, a As Integer, b As Integer) i=i+1 a=a+1 b=b+1 End Sub第17題 執(zhí)行下面程序，單擊Command1，窗體上顯示的第一行是【1】，第二行是【2】，第三行是【3】。Option ExplicitOption Base 1Private Sub Command1_Click() Dim sa (3,3) As S

43、tring*1,i As Integer,j As Integer,k as Integer k=1 For i=1 To 3 For j=1 To 3 sa(i,j)=Chr(Asc("A")+(k+i+j) Mod 26) Print sa(i,j);" " k=k+3 Next j Print Next iEnd Sub第18題 執(zhí)行下面程序，單擊Command1,則數(shù)組元素a(1,2)的數(shù)值是_【1】_,a(3,3)的數(shù)值是_【2】_,圖片框中最后一行顯示的是_【3】_. Option Explicit Private Sub Command1_

44、Click() Dim a(4,4) as Integer, i as Integer, j as Integer Dim k As Integer, num as Integer num=0 For k=1 To 4 For i=1 To k-1 num=num+1 a(i,k)=num next i For j=k To 1 Step -1 num=num+1 a(k,j)=num next j next k For i=1 To 4 For j=1 To 4 Picture1.Print Right(" " & a(i,j),3); Next j Pictur

45、e1.Print Next i End Sub第19題 執(zhí)行下面程序，單擊Command1，則圖片框中顯示的第一行是_【1】_，顯示的第二行是_【2】_，最后一行顯示的是_【3】_.Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 3 To 1 Step -1 If i >= j Then a(i, j) = i - j Else a(i, j) = j - i End If Next j Next i For i = 1 To

46、 3 For j = 3 To 1 Step -1 Picture1.Print a(i, j); Next j Picture1.Print Next iEnd Sub第20題 執(zhí)行下面程序，單擊Command1，則窗體上顯示的第一行是 【1】 ，第二行是 【2】 ，第三行是 【3】 。 Option Explicit Private Sub Command1_Click() Dim a As String,i As Integer Dim x As String,z As String a="iamstudent" i=InStr(5,a,"d")

47、Do x=Mid(a,i,3) z=Right(x,1) z=UCase(x & Z) i=i-2 Print z Loop Until i=1 End Sub三、程序填空_共16題（選：10空*2=20分）完形填空：把題目中空的程序代碼行補(bǔ)齊第1題 '本程序的功能是把由個(gè)"."分隔的十進(jìn)制數(shù)表示的IP地址轉(zhuǎn)換為由32位二進(jìn)制數(shù)組成'的IP地址。 例如十進(jìn)制表示的IP地址為202.119.191.1,其中每個(gè)十進(jìn)制數(shù)對(duì)應(yīng)一個(gè)8位'的二進(jìn)制數(shù)，合起來構(gòu)成一個(gè)32位二進(jìn)制的IP地址11001010011101111011111100000001。

48、'過程Tiqu用于提取十進(jìn)制IP地址中每個(gè)用"."分隔的十進(jìn)制數(shù)；'過程Convert用于將十進(jìn)制數(shù)轉(zhuǎn)換為相應(yīng)的8位二進(jìn)制數(shù)。程序界面參見下圖。Option ExplicitPrivate Sub Command1_Click() Dim str1 As String, str2 As String Dim a(4) As Integer, i As Integer str1 = Text1.Text Call Tiqu(str1, a) For i = 1 To 4 If a(i) < 0 Or a(i) > 255 Then MsgBox("IP地址錯(cuò)誤！") Exit Sub Else'*SPACE* 【?】 End If Next i Text2.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 = "" For i =