设有如下程序： 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 21

B．543 2

C．6 54 3

D．7 6 54

[单选题]阅读如下程序： 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 8B．6 8 7 9C．7 9 8 10D．8 10

[主观题]设有如下程序：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

[单选题]有如下程序： 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 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 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

[单选题]设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j 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 2 1B．5 4 3 2C．6 5 4 3D．7 6 5 4

[单选题]设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 – i);Next End Sub程序运行后，单击窗体，则在窗体上显示的是（）A . 4；3；2；1B . 5；4；3；2C . 6；5；4；3D . 7；6；5；4

[主观题]设有如下程序：Private Sub Form_Click（）D．im n As Integer, s As Integern = 8s = 0D．os = s + nn = n - 1Loop While n > 0Print sE．nd Sub以上程序的功能是______。程序运行后，单击窗体，输出结果为______。

[单选题]设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92