[单项选择题] 设有如下程序：Option Base 1Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integ

[单项选择题] 设有如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integ

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

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)=CInt(Rnd()*100)

If b(i) /2 =b(i) 2 Then

j=j + 1

c(j) = b(i)

End If

Next

Print j

End Sub

以下叙述中错误的是

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

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

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

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

正确答案：

C

参考解析：

GetArray过程返回c数组中元素的个数。c数组元素由b(i)赋值，但只有 b(i)中为偶数的元素才能赋值给c数组中的元素。单击按钮时，如果输入的n值小于10，则调用GetArray过程。据此A、B、D项都是正确的。C项的错误比较明显，GetArray过程的参数n前没有关键字“ByVal”，则默认为“ByRef”，即n是按传地址的方式传送参数的。