网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
设有如下程序： 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 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，则窗体上不显示任何显示
考题
设有如下程序： 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) … For Each X In a Print X； Next x 在上面的程序段中，变量X必须是（ ）。A.整型变量B.变体型变量C.动态数组D.静态数组
考题
设有如下程序： 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，则窗体上不显示任何信息
考题
设有如下程序:OptionBase1PrivateSubForm_Click()Dima(10),P(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1To3P(i)=a(i*i)NextiFori=1To3k=k＋P(i)*2NextiPrintkEndSub程序运行后,单击窗体,则在窗体上显示的是( )
A、33B.35C.37D.38
考题
设有如下程序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，则窗体上不显示任何信息
考题
设有如下程序： 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，则窗体上不显示任何信息
考题
（22）设有如下程序段：Dim a(10)...For Each x In aPrint x;Next x在上面的程序段中，变量x必须是A）整型变量B）变体型变量C)动态数组D)静态数组
热门标签
最新试卷
