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

admin2006-08-25  15

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

答案C

解析 GetArray过程的作用是将数组b中的偶数保存到数组c中,同时输出数组C中元素的个数,所以选项A)和选项 B)正确;观察单击事件中,如果n<10,才能调用该过程,所以选项D)正确;在GetArray工程中两个参数缺省传送方式,则参数是按地址传递的,选项C)错误。
转载请注明原文地址:https://kaotiyun.com/show/5r2p777K
0

随机试题
最新回复(0)