2. 计算机
  3. 设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox("输入数据")

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

admin2010-09-11  47
问题 设有如下程序：    Dption 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(h()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    Knd Sub    以下叙述中错误的是______。
选项 A、数组b中的偶数被保存在数组c中
B、程序运行结束时，在窗体上显示的是c数组中元素的个数
C、GetArray过程的参数n是按值传送的
D、如果输入的数据大于10，则窗体上不显示任何信息
答案C
解析 在形参中，默认的传送方式为传地址传送，所以形参n是按传地址传送。正确答案为选项C。
转载请注明原文地址:https://www.kaotiyun.com/show/4ump777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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