设有如下程序

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，则窗体上不显示任何显示