单选题：设有如下程序：Option Base lPrivate Sub Command l_Click()Dim a(10)As

设有如下程序：
Option Base l
Private Sub Command l_Click()
Dim a(10)As Integer
Dim nAsInteger
n=lnputBox(“输入数据”)
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)\2Then
j=j+1
c(j)=b(i)
End If
Next
Print j
Fnd Sub
End Sub
以下叙述中错误的是（　　） A．数组b中的偶数被保存在数组C中
B．程序运行结束后，在窗体上显示的C数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息