阅读如下程序： Option Base 1 Private Sub Form Click() Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i-1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单击窗体，输出的结果为

A．5 7 6 8

B．6 8 7 9

C．7 9 8 10

D．8 10 8 11

[单选题]编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n

[单选题]设有如下程序： Option Base 0 Private 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 End Sub 程序运行后，单击窗体，则在窗体上显示的是A．4 3 21B．543 2C．6 54 3D．7 6 54

[单选题]阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是A．3 5 7 9 30B．1 3 5 7 9C．2 4 6 8 20D．11 15 17 19 20

[单选题]阅读程序：Option Base 1D．im arr（） As IntegerPrivate Sub Form_Click（）D．im i As Integer, j As IntegerReDim arr（3, 2）F．or i = 1 To 3F．or j = 1 To 2arr（i, j） = i * 2 + jNext jNext iReDim Preserve arr（3, 4）F．or j = 3 To 4arr（3, j） = j + 9Next jPrint arr（3, 2）

[主观题]阅读程序：Option Base 1Private Sub Form_Click（）D．im a（3）As IntegerPrint "输入的数据是：";F．or i = 1 To 3a（i）=InputBox（"输入数据"）Print a（i）;NextPrintIf a（1）t = a（1）a（1）= a（2）a（2）= ________E．nd IfIf a（2）>a（3）Thenm = a（2）E．lseIf a（1）>a（3）Thenm = ________E．ls

[单选题]有如下程序： 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．12B．30C．24D．18

[单选题]阅读程序Option Base 1Private Sub Form_Click（）D．im arr,SumSum = 0arr = Array（1,3,5,7,9,11,13,15,17,19）F．or i=1 To 10If arr（i）/3 = arr（i）/3 ThenSum = Sum + arr（i）E．nd IfNext iPrint SumE．nd Sub程序运行后，单击窗体，输出结果为（ ）。A．13B．14C．27D．15

[单选题]有如下程序：Option Base 1Private Sub Form_Click（）D．im arr, SumSum = 0arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）F．or i = 1 To 10If arr（i） / 3 = arr（i） / 3 ThenSum = Sum + arr（i）E．nd IfNext iPrint SumE．nd Sub程序运行后，单击窗体，输出结果为（ ）。A．25B．26C．27D．28

[主观题]设有如下程序：Option Base 1Private Sub Command1_Click（）D．im arr1D．im Min As Integer, i As Integerarr1 = Array（12, 435, 76, -24, 78, 54, 866, 43）Min = ______F．or i = 2 To 8If arr1（i） < Min Then______NextPrint "最小值是："; MinE．nd Sub以上程序的功能是：用Array函数建立一个含有8

[单选题]设有如下程序Option Base 1Private Sub Command1_Click（）D．im a（10）As IntegerD．im n As Integern=InputBox（"输入数据"）If n<10 ThenC．all GetArray（a,n）E．nd IfE．nd SubPrivate Sub GetArray（b（）As Integer,n As Integer）D．im c（10）As Integerj=0F．or i=1 To nb（i）=CInt（Rnd