程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为（D） A、0 1 B、1 3 C、1 2 D、2 3
49、在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其
Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click() x = 0
Do While x < 10 x = (x - 2) * (x + 3) n = n + 1 Loop
Text1、Text = Str(n) Text2、Text = Str(x) End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ B ） A、1和0
B、2和24 C、3和50 D、4和68
50、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Static x As Integer Cls
For i=1 To 2 y=y+x x=x+2 Next
Print x,y End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是 （B） A、4 2 B、12 18 C、12 30 D、4 6
51、设有如下程序段：
x=2
For i=1 To 10 Step 2 x=x+i Next
运行以上程序后，x的值是 (B) A、 26 B、 27
C、 38 D、 57
52、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click() Dim a
a= Array(1,2,3,4,5) For i=1 To UBound(a) a(i) = a(i)+i-1 Next
Print a(3) End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是( B ) A、4 B、5 C、6 D、7
53、阅读程序 Option Base 1
Private Sub Form_Click() Dim arr,Sum Sum = 0
arr = Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10
If arr(i)/3 = arr(i)\\3 Then Sum =Sum+arr(i) End If Next i Print Sum End Sub
程序运行后，单击窗体，输入结果为 (C) A、13 B、14 C、27 D、15
54、执行以下程序段
a$=\
For i=6 To 2 Step -2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z=UCase(X&Y&z) Next i Print z
输出结果为 （B） A、ABA B、BBABBA C、ABBABA D、AABAAB
55、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1
Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5) Sum=0
For i=1 To 5 Sum = sum+a(i) Next i x=Sum/5
For i =1 To 5
If a(i)>x Then Print a(i); Next i End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是A、1 2 B、1 2 3 C、3 4 5 D、4 5
56、以下程序段的输出结果是（A）
num =0
While num<=5 num = num+1 Wend
Print num A、 6 B、 2 C、 5 D、 1
57、Private Sub Form_Click()
Dim x As Integer, n As Integer x = 1 n = 0
Do While x < 28 x = x * 3 n = n + 1 Loop
Print x, n End Sub
D） （程序运行后，单击窗体，输出结果是(A) A、81 4
B、56 3 C、28 1
D、243 5 58、有如下程序：
Private Sub Form_Click()
Dim i As Integer, sum As Integer sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub
程序运行后，单击窗体，输出结果为（A） A、12
B、30 C、24 D、18 59、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4
array1(i, j) = i + j Next j Next i
Text1.Text = array1(2, 3) + array1(3, 4) End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（ A ） A、12
B、3 C、14 D、15
60、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4
