VB期末考試題庫1

1、試卷方案：201105 Visual Basic期末考試方案一、單項選擇共50題(選：20題*1 =20分)第1題以下有關對象屬性的說法中，錯誤的是 D.A.工具箱中的控件并不是VB中所有的控件B.若將Frame的Enabled屬性設置為False ,則不能使用放置在Frame里面的控件C.對象的Name屬性在運行時不能改變D.對象的所有屬性都可以在屬性窗口中設置第2題3數(shù)學表達式 sin 27y的VB算術表達式為 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題下列有關對象的敘述中，正確的是AA.對象由屬性，事件和方法構成B.對象的所有屬性既可以在屬性窗口設置，又可以在程序運行時用賦值語句設置C.對象的事件一定就是由VB預先設置好的人工干預的動作D.對象的方法是對象響應某個事件后執(zhí)行的一段程序代碼第4題表達式 CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的運算結果是 _D_.A. 1B. -1C. - 2 D. - 3第5題下列關于

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

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

5、ListIndex尸”"C. Listl.ClearD. Listl.Removeltem Listl.ListIndex第10題Q2 X 53 O 丫、數(shù)學表達式e 1nxsin(2x)對應的VB表達式是 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題以下有關數(shù)組參數(shù)的說明中，正確的是 B_A.在過程中也可用Dim語句對形參數(shù)組進行說明B.動態(tài)數(shù)組作為實參時，可用ReDim語句在過程中改變對應形參數(shù)組的維界C.調用過程時，數(shù)組名不能作為實參D.數(shù)組可以按地址傳遞也可以按植傳遞第12題下列有關過程的說法中，錯誤的是 B.A.在Sub或Function 過程內部不能再定義其它Sub或Function 過程B.對于使用ByRef說明的形參，在過程調用時形參和實參只能按傳址方式結合C.遞歸過程既可以是遞歸Function過

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

8、體中凡用Private 聲明的變量只能在某個指定的過程中使用B.模塊級變量只能用Dim語句聲明C.凡是在窗體模塊或標準模塊的通用聲明段用Public語句聲明的變量都是全局變量D.當不同作用域的同名變量發(fā)生沖突時，優(yōu)先訪問局限性小的變量第16題以下關于數(shù)值常量的說法中，錯誤的是 C_A.八進制數(shù)的表示方法是在數(shù)字前面加&OB.十六進制數(shù)的表示方法是在數(shù)字前面加&HC.在浮點運算中使用D來分隔尾數(shù)和指數(shù)時，系統(tǒng)將把該數(shù)值作為單精度型數(shù)處理D. 32768是合法的數(shù)值常量第17題數(shù)學表達式x3尸e sin 30對應的VB表達式是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個表達式中，有關 C 個能夠對Single類型變量x(正數(shù))的第3位小數(shù)正確地進行四舍五入計算Format(x, #.00" )Int(100*(x+0.005)/100CInt(100*(x+0.005)/100Fix(100*(x+0.005)/100A. 1個 B. 2個 C. 3個 D. 4個第19

10、題執(zhí)行以下語句時，會出現(xiàn)錯誤提示的是A. Print"2b3 " +12.5B. Print"12.5"+ 12C.Print"12.5" & 12.5D.Print"2e3"+12第20題以下Case語句含有錯誤的是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. L

11、istl.Cls第22題下列選項中，所包含的所有表達式能夠將兩位整數(shù)x的個位數(shù)與十位數(shù)對調(如將78轉換為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題以下關于子過程或函數(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題下列有關控件數(shù)組的說法中 , 錯誤的是_B.A. 控件數(shù)組由一組具有相同名稱和相同類型的控件組成，不同類型的控件無法組成控件數(shù)組B. 控件數(shù)組中的所有控件不得具有各自不同的屬性設置值C. 控件數(shù)組中的所有控件共享同一個事件過程D. 控件數(shù)組中每個元素的下標由控件的 Index 屬性指定第 25 題以下對數(shù)組參數(shù)的說明中, 錯誤的是 A.A. 在過程中可以用 Dim 語句對形參數(shù)組進行聲明B. 形參數(shù)組只能按地址傳遞C.實參為動態(tài)數(shù)組時，可用ReDim語句改變對應

13、形參數(shù)組的維界D. 只需把要傳遞的數(shù)組名作為實參，即可調用過程第 26 題要向文件 datal.txt 添加數(shù)據(jù) , 正確的文件打開命令是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 題下面有關數(shù)組處理的敘述中，正確的是D.A. 在過程中使用 ReDim 語句可以改變動態(tài)數(shù)組數(shù)據(jù)的

14、類型B. 在過程中，可以使用 Dim 、 Private 和 Static 語句來定義數(shù)組C.用ReDim語句重新定義動態(tài)數(shù)組時，可以改變數(shù)組的大小，但不能改變數(shù)組的維數(shù)D. 不可以用 Public 語句在窗體模塊的通用處說明一個全局數(shù)組第 28 題下面的表達式中 , 運算結果為 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 題設計界面時, 要使一個文本框具有水平和垂直滾動條, 應先將其_A屬性置為 True, 再將 ScrollBar 屬性設置為 3.A. MultiLineB. AutoSizeC. Alignment D. RightToLeft第 30 題, 正確的是 _CA. 數(shù)組的維下界不可以是負數(shù)Dim A(0 To 5) 會與之沖突Dim A(0 To 5), 則 A 數(shù)組第一維維下界為 0DimA(0 To 5), 則 A 數(shù)組第一維維下界為 1B. 模塊通用聲明處有OptionBase1C. 模塊通用聲明處有OptionBase1D. 模塊通用聲明處有OptionBase1第 31 題下面

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

17、題創(chuàng)建一個名為“文件”的菜單項，欲使其可用Alt+F方式訪問，則在菜單編輯器的標題文本框中應輸入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邏輯表達式是_BA. X< Y<ZB. X<=Y And Y<ZC. X Y OR Y<

18、;Z D. X<=Y<Z第36題以下關于Function過程的說法中，錯誤的是AA. Function過程名可以有一個或多個返回值B.在Function過程內部不得再定義 Function過程C. Function 過程中可以包含多個 Exit Function 語句D.可以像調用Sub過程一樣調用 Function過程第37題F面的關系表達式中，運算結果為True的是 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、則下列表達式中A. Sgn(X-Y)+Sgn(A-B)=-1C. Sgn(Y-X)+Sgn(A-B)=2,結果為True的是 C_B. Sgn(X-Y)+Sgn(A-B)=-2D. Sgn(Y-X)+Sgn(A-B)=0第39題執(zhí)行 B 語句時，會出現(xiàn)出錯提示信息.D. Print "14”+32A. Print 5+7=14B. Print 16384*2C. Print 32768*2第40題表達式是_D.數(shù)學表達式sin30 10g x-y對應的 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題在一個多窗體程序中，可以僅將窗體 Form2從內存中卸載的語句是 _BA. Form2.UnloadC. Form2.End第42題Print方法可在 A 上輸出數(shù)據(jù)窗體文本框圖片框A.B.第43題B. Unload Form2D. Form2.Hide標

21、簽列表框立即窗口C.D.若要使邏輯表達式x>y Xor y<z 結果為True,則x、y、z的取值應為下列選項中的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.調用函數(shù)的過程中定義了I、J和K三個I

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

23、 Write#語句將數(shù)據(jù)寫到順序文件中C.若以Output、Append、Random Binary 方式打開一個不存在的文件，系統(tǒng)會出錯D.順序文件或隨機文件都可以用二進制訪問模式打開第49題窗體上有若干命令按鈕和一個文本框，程序運行時焦點置于文本框中，為了在按下回車鍵時執(zhí)行某個命令按鈕的Click事件過程，需要將該按鈕的 B 屬性設置為True.A. EnabledB. DefaultC. CancelD. Visible第50題數(shù)學表達式5xcos 29(ex ln y) 5對應的VB表達式是_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分) 閱讀理解 ：填寫程序的輸出結果第1題運行下列程序， 單擊 Command1, 在窗體上顯示的第一行內容是【1】 , 第二行的內容是【2】 ,第三行的內容是 【 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題運行下面的程序，單擊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】 個元素;數(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題運行下面程序，單擊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題運行下列程序，單擊 Command1在窗體上顯示的第一行內容是【1】，第二行的內容是2】，第三行的內容是 【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】一個元素；數(shù)組元素 A(2)的值是【2】運行下面程序，如果連續(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,在窗體上顯示的第一行內容是【1內,第二行的內容是【2】 ,第三行的內容是【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分）一一完形填空：把題目中空的程序代碼行補齊本程序的功能是把由4個"."分隔的十進制數(shù)表示的IP地址轉換為由32位二進制數(shù)組成的IP地址。例如十進制表示的IP地址為202

47、.119.191.1,其中每個十進制數(shù)對應一個8位的二進制數(shù)，合起來構成一個32位二進制的IP地址11001010011101111011111100000001。過程Tiqu用于提取十進制IP地址中每個用"."分隔的十進制數(shù)；過程Convert用于將十進制數(shù)轉換為相應的8位二進制數(shù)。程序界面參見下圖。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地址錯誤！")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)計存放在數(shù)組A中的N個數(shù)有多少個是不同的。具體做法是：變量 Left指向要被處理的數(shù)(從第 2個元素開始)，Right指向數(shù)組最后一個元素。若 A(Left)與排在它前面的某個數(shù)組元素值相同，就用數(shù)組元素A(Right)的值來替換A(Left)的值，同時將變量Right的值減1;否則將變量Left的值加1,處理數(shù)組下一個元素，重復以上過程，直到'Right的值即為不同的數(shù)的個數(shù)。程序界面參見下圖所示Option

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

52、t; 個不同的數(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面程序的功能是隨機生成小于100的諸素數(shù)組成的數(shù)據(jù)。程序界面如下圖所示Option ExplicitPrivate Sub Command1_Click()Dim p() As IntegerAs Integer,n As IntegerDim st As String,k As IntegerRandomizek =InputBox(" 元素個數(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