设有如下程序

Option Base 1

Private Sub Command1_Click（）

D．im a（10）As Integer

D．im n As Integer

n=InputBox（"输入数据"）

If n<10 Then

C．all GetArray（a,n）

E．nd If

E．nd Sub

Private Sub GetArray（b（）As Integer,n As Integer）

D．im c（10）As Integer

j=0

F．or i=1 To n

b（i）=CInt（Rnd（）*100）

If b（i）/2=b（i）/2 Then

j=j+1

c（j）=b（i）

E．nd If

Next

Print j

E．nd Sub

以下叙述中错误的是（ ）。

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

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

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

D．如果输入的数据大于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

[单选题]设有如下程序：Private Sub Command1_Click（）Dim c As Integer, d As Integerc = 4d = InputBox（"请输入一个整数"）Do While d > 0If d > c Then c = c + 1End If d = InputBox（"请输入一个整数"）LoopPrint c + dE．nd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、

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

[单选题]有如下程序：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 Command1_Click（）D．im k As Integer, m As IntegerD．im p As Integerk=4: m=1p=PC（k, m） : Print p;p=PC（k, m） : Print pE．nd SubPrivate Function PC（a As Integer, b As Integer）Static m As Integer, i As Integerm=0: i=2i=i + m + 1m=i + a + bP

[单选题]有如下程序：Private Sub Command1_Click（）D．im a As SingleD．im b As Singlea=2: b=4C．all CS （a, B．E．nd SubSub CS （x As Single, y As Single）t=xx=t ＼ yy=t Mod yE．nd Sub程序运行后，单击命令按钮，a和b的值分别为（ ）。A．0 0B．1 1C．0 2D．1 2

[单选题]有如下程序：Private Sub Command1_Click（）D．im a As Integera=2F．or i=1 To 3Print Gad （A．Next iE．nd SubF．unction Gad （a As Integer）b=0Static cb=b + 1c=c + 1G．ad=a + b + cE．nd Function运行上面的程序后，单击命令按钮，输出结果为（ ）。A．123B．234C．456D．146

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

[单选题]有如下的程序：PrivateSubCommand1_Click()D．imxAsInteger,yAsIntegera=8b=3C．alltest(6,a,b+1)Print"主程序";6;a;bE．ndSubSubtest(xAsInteger,ByValyAsInteger,ByValzAsInteger)Print"子程序";x;y;zx=2y=4z=3E．ndSub当单击Command1后，运行程序显示的结果是( )A．子程序643主程序684B．

[单选题]有如下程序段：Private Sub Command1_Click（）D．im a As Integera=2F．or i=1 To 3Print G（A．Next iE．nd SubF．unction G（a As Integer）b=0Static cb=b + 1c=c + 1G．=a + b + cE．nd Function运行上面的程序后，单击命令按钮，输出结果为（ ）。A．1 2 3B．2 3 4C．4 5 6D．1 4 6