![[单项选择题] 设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Intege](http://www.mshxw.com/aiimages/31/259534.png "[单项选择题] 设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Intege")
[单项选择题] 设有如下程序：
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。问题解析:
解析无
