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

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

admin2012-03-22  35
问题 设有如下程序：    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)=Clnt(Rnd()*100)    　　Ifb(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
解析
转载请注明原文地址:https://jikaoti.com/ti/5OO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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