网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
设有如下程序
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，则窗体上不显示任何显示
参考答案
更多 “ 设有如下程序Option Base 1Private Sub Command1_Click（）Dim a（10）As IntegerDim n As Integern=InputBox（"输入数据"）If n10 ThenCall GetArray（a,n）End IfEnd SubPrivate Sub GetArray（b（）As Integer,n As Integer）Dim c（10）As Integerj=0For i=1 To nb（i）=CInt（Rnd（）*100）If b（i）/2=b（i）\2 Thenj=j+1c（j）=b（i）End IfNextPrint jEnd Sub以下叙述中错误的是（ ）。A．数组b中的偶数被保存在数组c中B．程序运行结束后,在窗体上显示的是c数组中元素的个数C．GetArray过程的参数n是按值传送的D．如果输入的数据大于10，则窗体上不显示任何显示 ” 相关考题
考题
下列数组声明正确的是( )A.Dima(1ton)AsIntegerB.Dima(10)AsInteger：ReDima(1to12)C.Dima()AsInteger：ReDima(3,4)AsIntegerD.Dima()AsInteger：ReDima(1ton)AsInteger
考题
设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer … Call D(a) 如下过程定义巾，正确的是（ ）。A.Private Sub p(a As Integer)B.Private Sub p(a（ ）As Integer)C.Private Sub p(a(10)As Integer)D.Private Sub p(a(n)As Integer)
考题
下列数组定义错误的是()。
A、dima(10)asintegerB、dima(10,3)asshortC、dima(3)asinteger={1,2,3,4}D、dima(,)asinteger={{1,2,3},{2,3,1}}
考题
设有如下程序： 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，则窗体上不显示任何信息
考题
设程序中有如下数组定义和过程调用语句：Dim a(10) as integer……Call p(a)如下过程定义中，正确的是A)Private Sub p(a as integer)B)Private Sub p(a() as integer)C)Private Sub p(a(10) as integer)D)Private Sub p(a(n) as integer)
考题
设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n10 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，则窗体上不显示任何信息
考题
设有如下程序Option Base 1Private Sub Command1_Click( )Dim a(10)As IntegerDim n As Integern=lnput Box(“输入数据”)If n＜10 ThenCall GetArray(a，n)End IfEnd SubPrivate Sub GetArray(b( )As Integer，n As Integer)Dim c(10)AsIntegerj=0For i=1 To nb(i)=CInt(Rnd( )*100)If b(i)/2=b(i)\2 Thenj=j+1c(j)=b(i)End lfNextPrint jEnd Sub以下叙述中错误的是A．数组b中的偶数被保存在数组c中B．程序运行结束时，在窗体上显示的是c数组中元素的个数C．GetArray过程的参数n是按值传送的D．如果输入的数据大于10，则窗体上不显示任何信息
考题
设程序中有如下数组定义和过程调用语句： Dim a（10) As Integer …… Call p（a) 如下过程定义中，正确的是A．Private Sub p(a As Integer)B．Private Sub p(a() As Integer)C．Private Sub p(a(10) As Integer)D．Private Sub p(a(n) As Integer)
考题
下面语句正确的是______。A．Dim a(1) As Integer = {12}B．Dim a() As Integer = 0C．Dim a() As Integer = {12}D．Dim a(1) As Integer = {12, 12}
热门标签
最新试卷