当发生Form_Click事件时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer，k As Integer Dim a(5，5)As Integer For i=1 To 5 k=1 For i=1 To 5 If(i＜=j)Then a(i,j)=k k=k+2 Else a(i,j)=k+1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j)； Next j Print Next i End Sub
A．1 3 5 7 9
B．2 1 3 5 7
C．2 2 2 1 3
D．2 2 1 3 5
第1题：
阅读程序：
Option Base 1
Private Sub Form_Click（）
Dim a（3）As Integer
Print "输入的数据是：";
For i = 1 To 3
a（i）=InputBox（"输入数据"）
Print a（i）;
Next
If a（1）
t = a（1）
a（1）= a（2）
a（2）= ________
End If
If a（2）>a（3）Then
m = a（2）
ElseIf a（1）>a（3）Then
m = ________
Else
m = ________
End If
Print "中间数是：";m
End Sub
程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。
t a(3) a(1)
第2题：
阅读程序
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
程序运行后，单击窗体，输出结果为（ ）。
A．13
B．14
C．27
D．15
第3题：
A.4321
B.5432
C.6543
D.7654
第4题：
有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
End If
Next i
End Sub
程序运行后，单击窗体，消息框的输出结果为( )。
第5题：
设有如下程序：
Private Sub Form_Click()
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(j)=i+1
sum=sum+ary(i)
Next 1
Print sum
Eud Sub
程序运行后，单击窗体，则在窗体上显示的是
A．15
B．16
C．20
D．25
第6题：
在窗体上画一个名称为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
程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）。
A．4
B．5
C．6
D．7
第7题：
阅读程序：
Option Base 1
Dim arr（） As Integer
Private Sub Form_Click（）
Dim i As Integer, j As Integer
ReDim arr（3, 2）
For i = 1 To 3
For j = 1 To 2
arr（i, j） = i * 2 + j
Next j
Next i
ReDim Preserve arr（3, 4）
For j = 3 To 4
arr（3, j） = j + 9
Next j
Print arr（3, 2） + arr（3, 4）
End Sub
程序运行后，单击窗体，输入结果为（ ）。
A．21
B．13
C．8
D．25
第8题：
下面程序段的运行结果是【 】。
Option Base 1
Private Sub swap(a()As InteSer)
For I=1 to 10\2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click()
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x()
For1=1 to 10
Print x (i)
Next I
End Sub
第9题：
下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub
A．36
B．25
C．1
D．出错信息
第10题：
下面程序段的运行结果是【 】。
Option Base 1
Private Sub Swap (a() As Integ
For I=1 to 10\2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click()
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x()
For I=1 to 10
Print x(I)
Next I
End Sub