设有如下程序： 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，则窗体上不显示任何信息
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，则窗体上不显示任何信息
- 运行下面的程序，第二行显示结果是___________。 Private Sub Form_Click() Dim A As Integer Dim i As Integer A = 5 For i = 1 To 9 Call sub1(i, A) Print i, A Next i End Sub Private Sub sub1(x As Integer, y As Integer) Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + x x = x + 2 Next I y = y + N End Sub
- 以下有关数组定义的语句序列中，错误的是 ______。 A: Static arrl(3) B: arrl(1)=100 C: arrl(2)="Hello" D: arrl(3)123.45 E: Dim arr2()As Integer F: Dim size As Integer G: Private Sub Command2_click() H: size=InputBox("输入:") I: ReDimarr2(size) J: End Sub K: Option Base1 L: Private Sub Command3_click() M: Dim arr3(3)As Integer N: End Sub O: Dim n As Integer P: Private Sub Command4_Click() Q: Dim arr4(n)As Integer R: End Sub
- 以下有关数组定义的语句序列中，错误的是 A: Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45 B: Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入：”) ReDim arr2(size) ┄ End Sub C: Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End Sub D: Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ┄ End Sub
- 以下有关数组定义的语句序列中，错误的是______。 A: Static arr1(3) B: arr1(1)=100 C: arr1(2)="Hello" D: arr1(3)=123.45 E: Dim arr2()As Integer F: Dim size As Integer G: Private Sub Command2_Click() H: size=InputBox("输入:") I: ReDim arr2(size) J: … K: End Sub L: Option Base 1 M: Private Sub N: Command3_Click() O: Dim arr3(3)As Integer P: … Q: End Sub R: Dim n As Integer S: Private Sub Command4_Click() T: Dim arr4(n)As Integer U: … V: End Sub