设有如下程序 Option Base 1 Private Sub Command1_Click（) Dim arrl Dim Min As Integer，i As I

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

B.5 4 3 2

C.6 5 4 3

D.7 6 5 4

设有如下程序： Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______。

A．ABCDE 20 10

B．10 20 ABCDE

C．ABCDE 10 20

D．出错信息

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

B．54 3 2

C．6 5 4 3

D．7 6 5 4

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dimi 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 1

B．5 4 3 2

C．6 5 4 3

D．7 6 5 4

设有如下程序：

Option Base 1

Private Sub Commandl Click()

Dim arrl

Dim Min As Integer，i As Integer

arrl=Array(12,435,76,-24,78,54,866,43)

Min=【 】

For i=2 To 8

If arrl(i)＜Min Then【 】

Next

Print"最小值是:";Min

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

设有如下程序： 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 a(5)As String，i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a，i) Next i End Sub Sub f(ta（）As String，n As．Integer) Dim i As Integer For i=1 To n Print ta(i)； Next i Print End Sub 对上述程序．以下叙述中正确的是（）。

A.程序有错，因为在过程f的定义中数组参数格式不正确

B.程序可正常运行，输出内容的第一行是一个字母“A”

C.程序可正常运行，输出内容的第一行是一个字母“B”

D.程序可正常运行，输出内容的第一行是数字65

设有如下程序：

Option Base 1

Private Sub Form. Click（）

Dim a(5)As String，i As Integer

For i=1 To 5

a(i)=Chr(Asc("A")+i)

Call f(a，i)

Next i

End Sub

Sub f(ta（）As String，n As．Integer)

Dim i As Integer

For i=1 To n

Print ta(i)；

Next i

Print

End Sub

对上述程序．以下叙述中正确的是（）。

A.程序有错，因为在过程f的定义中数组参数格式不正确

B.程序可正常运行，输出内容的第一行是一个字母“A”

C.程序可正常运行，输出内容的第一行是一个字母“B”

D.程序可正常运行，输出内容的第一行是数字65

设有如下程序：

Option Base 1

Private Sub Command1_Click（）

Dim arr1

Dim Min As Integer, i As Integer

arr1 = Array（12, 435, 76, -24, 78, 54, 866, 43）

Min = ______

For i = 2 To 8

If arr1（i） ＜ Min Then______

Next

Print "最小值是："; Min

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n＜10 Then Call GetArray(a，n) End If End Sub Private Sub GetArray(b()As Integer，n As Integer) Dim c(10) As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub以下叙述中错误的是

A．数组b的偶数被保存在数组c中

B．程序运行结束时，在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何信息