设有如下程序： Option Base 1 Private Sub Comm

问题单项选择题

设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n<10 ThenCall 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 nb(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过程的作用是将数组b中的偶数保存到数组c中，同时输出数组C中元素的个数，所以选项A)和选项B)正确；观察单击事件中，如果n＜10，才能调用该过程，所以选项D)正确；在GetArray工程中两个参数缺省传送方式，则参数是按地址传递的，选项C)错误。