2. 计算机
  3. 设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=

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

admin2006-08-25  52
问题 设有如下程序：     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://www.kaotiyun.com/show/5r2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)