设有如下程序 Option Base 1 Private Sub Command1_Click( ) Dim a(10)As Integer Dim n As

admin2013-04-11  29

问题 设有如下程序
         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中
B、程序运行结束时,在窗体上显示的是c数组中元素的个数
C、GetArray过程的参数n是按值传送的
D、如果输入的数据大于10,则窗体上不显示任何信息

答案4

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

最新回复(0)