设有如下程序: Option Base 1 Private Sub Command1_Click()   Dim a(10) As Integer   Dim n As Integer   n=InputBox("输入数据")

admin2012-03-22  30

问题 设有如下程序:    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)=Clnt(Rnd()*100)      Ifb(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

解析
转载请注明原文地址:https://kaotiyun.com/show/6hhp777K
0

最新回复(0)