VB無紙化考試客觀練習題(附正確答案)

1、VB無紙化考試客觀練習題(附正確答案)*全國計算機水平考試二級VB筆試練習（選擇、判斷和填空題）*一、單項選擇題（1-251題）1.以下4種描述中，錯誤的是_ D _。A. 常量在程序執(zhí)行期間其值不會發(fā)生改變B. 根據(jù)數(shù)據(jù)類型不同，常量可分為字符型常量、數(shù)值常量、日期/時間型常量和布爾型常量C. 符號常量是用一個標識符來代表一個常數(shù)，好象是為常數(shù)取一個名字，但仍保持常數(shù)的性質D. 符號常量的使用和變量的使用沒有差別2.下面合法的常量是_ D _。A. 1/2 B. 'abcd' C. 1.2*5 D. False3.Visual Basic中可以用類型說明符來標識變量的類型，其

2、中表示貨幣型的是_ C _。A. % B. # C. D. $4.下面_ B_是不合法的整常數(shù)。A.100 B.%O100 C.&H100 D.&O1005.以下關鍵字中，不能定義變量的是_A_。A. Declare B. Dim C. Public D. Private6.表達式16/4-25*8/4 MOD 52的值為_B_。A. 14 B. 4 C. 20 D. 27.用十六進制表示Visual Basic的整型常數(shù)時，前面要加上的符號是_A_。A. &H B. &O C. H D. O8.Visual Basic日期型常量的定界符是_A_。A. # B.

3、 C. () D. 9.數(shù)學關系式3x<10表示成正確的VB表達式為_B_。A. 3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D. 3<=x AND <1010.下面正確的賦值語句是_C_。A. x+y=30 B. pi*r*r=y C. y=x+30 D. x=3y11. ，/，Mod，*四個算術運算符中，優(yōu)先級別最低的是_C_。A. B. / C. Mod D. * 12.表達式ASC("F")的類型是_C_。A. 字符表達式 B. 關系表達式 C. 算術表達式 D. 邏輯表達式

4、13.下面語句中有非法調用的是_C_。A. x=Sgn(-1) B. x=Fix(-1) C. x=Sqr(-1) D. x$=Chr$(65)14.表達式23/5.8、235.8、23 Mod 5.8的運算結果分別是_B_。A. 3、3.9655、3 B. 3.9655、3、5 C. 4、4、5 D. 3.9655、4、315.如果變量 a=2、b="abc"、c="acd"、d=5，則表達式 a<d OR b>c AND b<>c 的值為_A_。A. True B. False C. Yes D. No16.下面不正確的賦值語

5、句是_B_。A. x=30-y B. y=r.r C. y=x+30 D. y=x317.為了給x,y,z三個變量賦初值1，下面正確的賦值語句是_A_。A. x=1y=1z=1 B. x=1,y=1,z=1 C. x=y=z=1 D. xyz=118.以下4類運算符，優(yōu)先級最低的是_D_。A. 算術運算符 B. 字符運算符 C. 關系運算符 D. 邏輯運算符19.如果在立即窗口中依次執(zhí)行下列命令：a=8 b=9 Print a>b 則輸出的結果是_C_。A. 1 B. 0 C. False D. True20.已知a="12345678"，則表達式Left(a, 4)

6、 + Mid(a, 4, 2)的值是_B_。A. 123456 B. "123445" C. 123445 D. 127921.在Visual Basic中，y1+z2=a*Sin(b*x+c)+k表達式的類型是_B_。A. 算術表達式 B. 關系表達式 C. 邏輯表達式 D. 字符表達式22.下列表達式的值為真的是_C_。A. "A">"a" B. "9">"a" C. "That">"Thank" D. 12>12.123.在下

7、列算術運算符中，運算等級最高的是_A_。A. 取負（-） B. 乘、除（*，/） C. 取模（MOD） D. 加、減（+，-）24.如果變量a=2,b=3,c=4,d=5，表達式NOT a>b AND NOT d<>c的值是_B_。A. True B. False C. 1 D. 025.在一個有（1）邏輯運算、（2）算術運算、（3）關系運算混合在一起的表達式（無括號）中，其運算順序為_C_。A. （1）（2）（3） B. （3）（2）（1） C. （2）（3）（1） D. （2）（1）（3）26.表達式A%+B&+C!-D#的結果為_D_。A. 整型 B. 長整型

8、C. 單精度型 D. 雙精度型27.下列符號中，可以用作VB變量名的是_C_。A. c%ab B. 3sum C. sum3 D. Len28.在下列表達式中，正確的日期型常量是_D_。A. "12/04/01" B. 12-04-2001 C. 12/04/01 D. #12/04/01#29.條件:1<X<=2或10<=X<15，在Visual Basic語言中應寫成條件表達式_A_。A. X>1 AND X<=2 OR X>=10 AND X<15 B. X>1 OR X<=2 OR X>=10 OR

9、X<15C. X>1 OR X<=2 AND X>=10 OR X<15 D. X>1 AND X<=2 AND X>=10 AND X<1530.設有如下的記錄類型Type Student number As String name As String age As IntegerEnd Type則正確引用該記錄類型變量的代碼是_B_。A. S="張紅" B. Dim s As Student ="張紅"C. Dim s As Type Stuent D. Dim

10、s As Type ="張紅" ="張紅"31.下列程序運行時，從鍵盤輸入字符"-"，則輸出結果是_A_。Private Sub Form_Click() op$=InputBox("op=") If op$="+" Then a=a+2 If op$="-" Then a=a-2 Print aEnd SubA. -2 B. 0 C. +2 D. +032.表達式Not（a+b=c-d）是_A_。A. 邏輯表達式 B. 字符表達式 C. 算術表達式

11、D. 關系表達式33."-32768"的數(shù)據(jù)類型是_D_。A. 整型常量 B. 浮點型常量 C. 符號常量 D. 字符串型常量34.在下列4個表達式中，非法的表達式形式是_C_。A. A+B=C B. 0=1 C. "ABC"+112 D. 1/2=0.535.設 x=5，表達式 x>=10 or x<=20 的值是_A_。A. True B. False C. 0 D. 表達式非法36.下列數(shù)據(jù)類型不可能占8個字節(jié)的是_ D _。A. Date B. Currency C. String D. Integer37.下列各項不是Visual

12、Basic的基本數(shù)據(jù)類型的是_ A _。A. Char B. String C. Integer D. Double38.邏輯表達式 Not "a">"b" And 9<3 or 9>3的值為_ A _。A. True B. False C. 表達式有錯 D. 條件不足39.在窗體模塊的聲明段中聲明變量時，不能使用的關鍵字是_ D _。A. Private B. Public C. Dim D. Static40.選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的表達式為_ C _。A. T<=1.7 And W&g

13、t;=62.5B. T>1.7 Or W<62.5C. T>1.7 And W<62.5D. T<=1.7 Or W>=62.541.在過程內部定義的局部變量，僅在聲明它的_ B _中有效。A. 方法B. 過程C. 屬性D. 對象42.假設A="Good Morning."，B="Afternoon,Boys."，下列表達式中結果是"Good Boys."的是_ A_。A) Left(A,5)+Right(B,5)B) Right(A,5)+Left(B,5)C) Mid(A,1,5)+Mid(B,

14、1,6) D) Right(A,5)+Right(B,5)43.下列關于變體類型的描述，其中正確的是_ C _。A. 變體是一種沒有類型的數(shù)據(jù)B. 變體的空值就表示該變體的值為0C. 一個變量沒有定義就賦值，該變量即為變體類型D. 變體是賦給變量某一種類型數(shù)據(jù)后，就不能再賦給它另一類型的數(shù)值44.下列程序段的運行結果為_B_。For i=3 To 1 Step -1 Print Space(5-i); For j=1 To 2*i-1 Print "*" Next j PrintNext iA. * B. * C. * D. * * * * * * * * *45.執(zhí)行 P

15、RINT 18/2*3,-32 命令后，輸出結果為_C_。A. 3 9 B. 3 -9 C. 27 -9 D. -9 2746.執(zhí)行 PRINT 9.43.7,9.4 MOD 3.7 命令后，輸出結果為_ A _。 A. 2 1 B. 3 0 C. 2 20 D. 1 247.運行以下程序段后，輸出結果為_ C _。x%=1/4y%=11/4PRINT x%;y%A. 0.25 0.75 B. 0 2 C. 0 3 D. 1 348.窗體里有兩個對象，分別是圖片框Picture1和標簽Label1，下面關于Print方法的使用中，錯誤的一條是_ D _。A. Picture1.Print 14

16、7 B. Print 147 C. Printer.Print 147 D. Label1.Print 14749.下面的_ B _語句可以實現(xiàn)：先在窗體上輸出大寫字母A，然后在同一行的第10列輸出小寫字母b。A. Print "A"Tab(9);"b" B. Print "A"Tab(10);"b" C. Print "A"Space(10);"b" D. Print "A"Tab(8);"b"50.閱讀下面的程序段：n1=Input

17、Box("請輸入第一個數(shù)：")n2=InputBox("請輸入第二個數(shù)：")Print n1+n2當輸入分別為111和222時，程序輸出為_ A _。A. 111222 B. 222 C. 333 D. 程序出錯51.語句Print Format（"HELLO", "<"）的輸出結果是_ B _。A. HELLO B. hello C. He D. he52.設a=2:b=0，則語句 Print (a=2) And (b=-2) 的輸出結果是_ D _。A. True B. 結果不確定 C. -1 D. Fa

18、lse53.以下程序段運行后，輸出字符的排列順序是_ D _。For i=1 To 6 If i Mod 2=0 Then Print "#" Else Print "*" End IfNext iA. #*#*# B. # C. * D. *#*#*# 54.用MsgBox函數(shù)顯示的對話框，以下敘述正確的是_ D _。A. 該對話框有一個“確定”按鈕B. 該對話框有“是”，“否”兩個按鈕C. 該對話框有“是”，“否”，“取消”三個按鈕 D. 該對話框通過選擇參數(shù)可以得到以上不同的的按鈕組合 55.與語句Dim abc%作用相同的語句是_ A _。A.

19、Dim abc As Integer B. Dim abc As Long C. Dim abc As String D. Dim abc As Date56.設a=1,b=2,c=3,d=4，則表達式IIf(a<b,c,d)的結果為_ B _。A. 4 B. 3 C. 2 D. 157.Rnd函數(shù)不可能為下列_ B_值。A. 0 B. 1 C. 0.1234 D. 0.000558.表達式Int(198.555*100+0.5)/100的值為_ C_。A. 198 B. 199.6 C. 198.56 D. 20059.Print Month(#5/30/2005#)語句顯示的結果是_

20、 C_。A. 3 B. 4 C. 5 D. 660.若Y="welcome!"，則表達式 Left(Y,Len(Y)-1)的值是_ C _。A. "welcome!" B. "w" C. "welcome" D. ""61.變量string$=" Hello , world! "，函數(shù)Trim(string)的結果是_ C_。A. "Hello , world! " B. " Hello , world!"C. "Hello

21、, world!" D. "Hello ,world! "62.下列表達式中，表達式_ A_的運算結果與其它3個不同。A. Int(-3.5)-1.5 B. Int(-4.5)+0.5 C. -Abs(-4.5) D. Fix(-4.5)-0.563.表達式Sgn(-2)-3.5的值是_ D_。A. -1.5 B. -2.5 C. -3.5 D. -4.564.函數(shù)Mid("123456789",3,4)的值是_ A_。A. "3456" B. "456" C. 3456 D. 45665.要使變量x賦值

22、為1100間（含1，不含100）的一個隨機整數(shù)，正確的語句是_ D_。A. x=Int(100*Rnd) B. x=Int(101*Rnd) C. x=1+Int(100*Rnd) D. x=1+Int(99*Rnd) 66.Visual Basic表達式Cos(0)+Abs(1)+Int(Rnd)的值是_D_。A. 1 B. -1 C. 0 D. 267.可實現(xiàn)從字符串任意位置截取字符的函數(shù)是_B_。A. Instr( ) B. Mid( ) C. Left( ) D. Right( )68.實現(xiàn)將小寫字母轉換成大寫字母的函數(shù)是_C_。A. Str( ) B. Upper( ) C. Uca

23、se( ) D. Lcase( )69.能實現(xiàn)數(shù)值格式化輸出的函數(shù)是_D_。A. Str( ) B. Mid( ) C. Chr( ) D. Format( )70.設a=6，則執(zhí)行x=IIf(a>5,-1,0)后，x的值為_ D_。A. 5 B. 6 C. 0 D. -171.表達式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范圍是_ D_。A. 0,15 B. -1,15 C. -4,15 D. -5,1572.可以同時刪除字符串前導和尾部空格的函數(shù)是_C_。A. Ltrim B. Rtrim C. Trim D. Mid73.當函數(shù)MsgBox返回值為1，對應的符號常

24、量是vbOK，那么此時表示用戶做的操作是_ A_。A. 用戶單擊了對話框中的“確定”按鈕 B. 用戶單擊了對話框中的“取消”按鈕C. 用戶單擊了對話框中的“是”按鈕 D. 用戶單擊了對話框中的“否”按鈕74.函數(shù)Int(Rnd*5)+1產生的隨機整數(shù)的范圍是_D_。A. 0,6 B. 1,6 C. 0,5 D. 1,575.在VB中，InputBox函數(shù)的默認返回值類型為字符串，用InputBox函數(shù)輸入數(shù)值型數(shù)據(jù)時，下列操作中可以有效防止程序出錯的操作是_A_。A. 在函數(shù)InputBox前面使用Val函數(shù)進行類型轉換B. 在函數(shù)InputBox前面使用Str函數(shù)進行類型轉換C. 在函數(shù)In

25、putBox前面使用Value函數(shù)進行類型轉換D. 在函數(shù)InputBox前面使用String函數(shù)進行類型轉換76.已知a="12345678"，則表達式Right(a, 4) + Mid(a, 3, 2)的值是_B_。A. "123445" B. "567834" C. 123445 D. 56783477.表達式Len("123程序設計ABC")的值是_A_。A. 10 B. 14 C. 20 D. 1778.賦值語句g = 123 + Mid("123456", 3, 2)執(zhí)行后，變量g中

26、的值是_D_。A. "12334" B. 123 C. 12334 D. 15779.如果x是一個正實數(shù)，對x的第3位小數(shù)四舍五入的表達式是_B_。A. 0.01 * Int(x + 0.005) B. 0.01 * Int(100 * (x + 0.005)C. 0.01 * Int(100 * (x + 0.05) D. 0.01 * Int(x + 0.05)80.以下程序執(zhí)行后，輸出的結果是_A_。m$="123"n$="456"k$=LCASE$(m$)j$=UCASE$(n$)Print k$ , j$A. 123 456

27、 B. !#$% C. 49 52 D. 33 3681.MsgBox函數(shù)的返回值的類型是_A_。A. 整型B. 字符串C. 邏輯值 D. 日期型82.A=5，B=8，則(B-A)*Rnd+A的結果是介于_A_之間的數(shù)。A. 58 B. 05 C. 35 D. 0383.使用下列語句：Dim x(1 to 10,3) As Single，則數(shù)組占用內存空間的字節(jié)數(shù)是_C_。A. 132 B. 80 C. 160 D. 12084.用Select Case語句選擇|x|<=10情況的語句為：Case_B_。A. Not (-10 To 10) B. -10 To 10 C. Is Abs(

28、x)>10 D. Is <-10 Or >1085.若x=1，執(zhí)行語句If x Then x = 0 Else x = 1的結果是_D_。A. 實時錯誤 B. 編譯錯誤 C. x=1 D. x=086.以下程序代碼能執(zhí)行的是_C_。A.If a=1 Then b=0 Else c=0 End IfB.If a=1 Then : B=0: ElseIf C=0 Then : D=0C.If a = 1 Then b = 0 ElseIf c = 0 Then d = 0 End IfD. If a = 1 Then b = 0 Else If c = 0 d = 0 End I

29、f87.下列程序段的循環(huán)結構執(zhí)行后，i的輸出值是_C_。Dim y as IntegerFor i = 1 To 10 Step 2 y = y + iNext iPrint iA. 25 B. 10 C. 11 D. 因為y初值不知道，所以不確定88.循環(huán)結構 For i = 1 To 10 Step 1.5 的執(zhí)行次數(shù)是_A_。A. 7 B. 8 C. 9 D. 1089.下列結構中不屬于循環(huán)結構的是_C_。A. For/Next B. While/Wend C. With/End With D. Do/Loop90.下列結構中不屬于分支結構的是_ C_。A. If/End If B. S

30、elect Case/End Select C. With/End With D. If/Else/End If91.以下程序段的運行結果是_ D_。Private Sub Form_Click() m = 1 n = 1 Do m = m * n n = n + 1 Loop Until n > 4 Print mEnd SubA. 25 B. 45 C. 55 D. 2492.以下程序段的運行結果是_A_。Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f = 1 n =

31、 4 For i = 1 To n f = f * i s = s + f Next i Print "s=" sEnd SubA. 33 B. 34 C. 35 D. 3693.以下程序段的運行結果是_B_。Private Sub Form_Click() Dim I As Integer, X As String, Y As String X = "ABCDEFG" For I = 4 To 1 Step -1 Y = Y + Mid(X, I, 1) Next I Print YEnd SubA. ABCD B. DCBA C. DEFG D. G

32、FED94.以下程序段的運行結果是_C_。Private Sub Form_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 5 b = b * k If b >= 15 Then Exit For End If Next k Print k, bEnd SubA. 3 15 B. 2 12 C. 4 24 D. 5 1595.以下程序段的運行結果是_ A_。Private Sub Form_Click() a = 1 b = a Do Until a >= 5 X = a * b Print Str(a) &

33、; "*" & Str(b) & "=" Str(X), a = a + b b = b + a LoopEnd SubA. 1*1=1 2*3=6 B. 1*1=2 2*2=4 C. 1*1=1 3*3=9 D. 1*1=2 3*2=696.以下程序段的運行結果是_B_。Private Sub Form_Click() x = "abcdef" y = Asc("b") - Asc("a") z = Len(x) Print y,zEnd SubA. 1 2 B. 1 6 C.

34、 2 2 D. 2 697.下面程序段運行后，顯示的結果是_A_。Dim xIf x Then Print x Else Print x+1A. 1 B. 0 C. -1 D. 顯示出錯信息98.運行下列程序段，顯示的結果是_A_。x=Int(Rnd)+5Select Case x Case 5 Print "優(yōu)秀" Case 4 Print "良好" Case 3 Print "通過" Case Else Print "不通過"End SelectA. 優(yōu)秀 B. 良好 C. 通過 D. 不通過99.下列If語句

35、統(tǒng)計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語句是_D_。A. If sex=男And age<40 And InStr(duty,教授)>0 Then n=n+1B. If sex=男And age<40 and(duty=教授or duty=副教授) Then n=n+1C. If sex=男And age<40 And Right(duty,2)=教授 Then n=n+1D. If sex=男And age<40 And duty=教授And duty=副教授 Then n=n+1100.下面分別是求兩個數(shù)中的大數(shù)的四個程序段，_

36、 D_不正確。A. Max=IIf(x>y,x,y)B. If x>y Then Max=x Else Max=yC. Max=x If y>=x Then Max=y D. If y>=x Then Max=y Max=x101.以下正確的程序段是_ B_。A. For x=1 To Step 10 B. For x=3 To -3 Step -3 Next x Next xC. For x=1 To 10 D. For x=10 To 1 re: Next x Next y If i=10 Then GoTo re102.下列循環(huán)能正常結束的是_C_。A. i=5

37、B. i=1 DO DO i=i+1 i=i+2 Loop Until i<0 Loop Until i=10C. i=10 D. i=6 DO DO i=i+1 i=i-2 Loop Until i>10 Loop Until i=1103.若要退出For循環(huán)，可使用的語句為_D_。A. Exit B. Exit Do C. Time D. Exit For104.當a=1,b=3,c=5,d=4時，執(zhí)行下面一段程序后，x的值為_B_。If a<b Then If c<d Then x=1 Else x=2 End IfElse If c<d Then x=3

38、Else x=4 End IfEnd IfA. 1 B. 2 C. 3 D. 4105.執(zhí)行如下程序段時，從鍵盤輸入-5，輸出的結果是_A_。x=-5s=Val(InputBox("請輸入s的值:")Select Case s Case Is>0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3End SelectPrint x;yA. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5106.下面程序段的作用是_D_。m=0:n=0For i=1 To 10 x= Val(InputBox("請輸入x的值:"

39、;) If x>0 Then m=m+x ElseIf x<0 Then n=n+1 End IfNext iPrint m,nA. 計算從鍵盤輸入的數(shù)據(jù)之和，并統(tǒng)計輸入數(shù)據(jù)的數(shù)目B. 分別計算從鍵盤輸入的正數(shù)之和與負數(shù)之和C. 分別計算從鍵盤輸入的正數(shù)和負數(shù)的個數(shù)D. 計算從鍵盤輸入的正數(shù)之和，并統(tǒng)計負數(shù)的個數(shù)107.如果從鍵盤輸入的數(shù)據(jù)依次是1、2、3、4、5、6、7、8、9、10，下面程序段的運行結果是_A_。s=0For i=1 To 10 x=Val(InputBox("請輸入x的值:") If x/3=Int(x/3) Then s=s+x End

40、IfNext iPrint "s="s A. s=18 B. s=27 C. s=36 D. s=54108.在條件語句If x=1 Then y=2中，下列說法正確是_C_。A. x=1和y=2均為賦值語句 B. x=1和y=2均為關系表達式 C. x=1為關系表達式，y=2為賦值語句 D. x=1為賦值語句，y=2為關系表達式109.統(tǒng)計某大學在副教授以上職稱的高級職稱中，女性人才總數(shù)可用語句_D_。A. IF A$="女" AND B$="副教授" OR B$="教授" THEN N=N+1B. IF B$=

41、"副教授" AND B$="教授" AND A$="女" THEN N=N+1 C. IF B$>="副教授" AND A$="女" THEN N=N+1 D. IF A$="女" AND (B$="副教授" OR B$="教授") THEN N=N+1110.以下程序段執(zhí)行后，變量s、x的值分別為_ C_。 Dim s As Integer, x As Integers = 10: x = 1Do While x < 10

42、 s = s + 2 x = x + 2LoopPrint s, xA. 50 11 B.20 10 C. 20 11 D. 100 10111.下列程序中 s = s + j 語句共執(zhí)行了_ B_次。Dim s As IntegerDim i As Integer, j As IntegerFor i = 1 To 10 Step 2 For j = 1 To 5 Step 2 s = s + j Next jNext iPrint sA. 10 B. 15 C. 20 D. 25112.以下程序段執(zhí)行后，變量x的值為_C_。 x = 0For i = 1 To 5 For j = 1 To

43、 5 x = x + 1 Next jNext iPrint xA. 15 B. 20 C. 25 D. 30 113.下列程序中語句 a=a-1 執(zhí)行的次數(shù)是_B_。a=0For b=1 To -2 Step -1 a=a-1Next bA. 2 B. 4 C. 3 D. 0114.以下程序段的執(zhí)行結果是_D_。For x=1 To 2 a=0 For y=1 To x+1 a=a+1 Next y Print a;Next xA. 1 1 B. 0 0 C. 1 2 D. 2 3 115.以下程序段的執(zhí)行結果是_A_。n=0For i=0 To 1 For j=0 To 1 n=n+1 N

44、ext jNext iPrint nA. 4 B. 2 C. 1 D. 0 116.以下程序段的執(zhí)行結果是_A_。For i=1 To 4 x=2 For j=1 To 3 x=1 For k=1 To 2 x=x+3 Next k Next jNext iPrint xA. 7 B. 6 C. 56 D. 72 117.用語句 Dim A(-3 to 5) As Long 定義的數(shù)組元素個數(shù)是_C_。A. 7 B. 8 C. 9 D.10118.如下數(shù)組聲明語句，_B_正確。A. Dim a3,4 as Integer B. Dim a(3,4) as Integer C. Dim a(n,

45、n) as Integer D. Dim a3,4 as Integer 119.以下程序運行的結果是_D_。Dim aa=Array(1, 3, 4, 5, 6, 7)For i = LBound(a) To UBound(a) a(i) = a(i) * a(i)Next iPrint a(i)A. 49 B. 0 C. 不確定 D. 下標越界120.在窗體上添加一個命令按鈕Command1，然后編寫如下代碼：Private Sub Command1_Click() Dim city As Variant city = Array("北京", "上海"

46、;, "天津", "重慶") Print city(1)End Sub程序運行后，單擊命令按鈕，輸出結果是_D_。 A. 空白 B. 錯誤提示 C. 北京 D. 上海121.以下程序運行的結果是_C_。Option Base 0Private Sub Form_Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); Next iEnd Sub A. 4 3 2 1 B. 5 4 3 2 C. 6 5 4 3 D. 7 6 5 4122.在窗體上畫一個命令按鈕Command1，然后編寫如下代碼：Private Sub Command1_Click() Dim arr1(10), arr2(10) As Integer n = 3 For i = 1 To 5 arr1(i) = i arr2(n) =