[单项选择题] 设有如下程序： Dption Base 1 Private Sub Command1

[单项选择题] 设有如下程序：

Dption 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(h()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

Knd Sub

以下叙述中错误的是______。

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

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

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

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

C解析：[分析]： 在形参中，默认的传送方式为传地址传送，所以形参n是按传地址传送。正确答案为选项C。