问题
单项选择题
设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n＜10 Then
Call GetArray(a，n)
End If
End Sub
Private Sub GetArray(b( )As Integer，n As Integer)
Dim c(10)AsInteger
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 lf
Next
Print j
End Sub
以下叙述中错误的是
A．数组b中的偶数被保存在数组c中
D．程序运行结束时，在窗体上显示的是c数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息
答案
参考答案：C
解析： GetAlTay过程返回c数组中元素的个数。c数组元素由b(i)赋值，但只有b(i)中为偶数的元素才能赋值给c数组中的元素。单击按钮时，如果输入的n值小于10，则调用GetArray过程。据此A、B、D项都是正确的。C项的错误比较明显，GetArvay过程的参数n前没有关键字“ByVal”，则默认为“ByReF”，即n是按传地址的方式传送参数的。