设有如下程序: Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBo

admin2013-04-11  27

问题 设有如下程序:    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,则窗体上不显示任何信息

答案4

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

最新回复(0)