A: Static arr1(3)arr1(1)=100arr1(2)="Hello"arr1(3)=123.45
B: Dim arr2() As IntegerDim size As IntegerPrivate Sub Command2_Click()size=InputBox("输入:")ReDim arr2(size)……End Sub
C: Option Base 1Private Sub Command3_Click()Dim arr3(3) As Integer…… End Sub
D: Dim n As IntegerPrivate Sub Command4_Click()Dim arr4(n) As Integer……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) ：arr1(1) = "100" ： B: arr1(2) = "Hello" ：arr1(3) = "123.45" C: Dim arr2( ),size As Integer D: Private Sub Command2_Click( ) E: size =InputBox("输入：") ReDim arr2(size) ...... F: End Sub G: Option Base 1 Private Sub Command3_Click( ) H: Dim arr3(3) As Integer ...... I: End Sub J: Dim n As Integer Private Sub Command4_Click( ) K: Dim arr4(n) As Integer...... L: 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
- 以下有关数组定义的语句序列中，错误的是 A: Static arr1(3) B: Arr1l(1)=100 C: Arr1(2)=“Hello” D: Arr1(3)=123.45 E: Dim art2( )As Integer F: Dim size As Integer G: Private Sub Command2_Click( ) H: size=Input Box(“输入：”) I: ReDinl.arr2(size) J: …… K: End Sub L: Option Base 1 M: Private Sub Command3_Click( ) N: Dim arr3(3) As Integer O: …… P: End Sub Q: Dim n As Integer R: Private Sub Command4_Click( ) S: Dim arr(n) As Integer T: …… U: End Sub
- 以下有关数组定义的语句序列中，错误的是 A: Static arrl(3) B: arr1(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: ReDim arr2(size) J: ┄ K: End Sub L: Option Base 1 M: Private Sub Command3_Click() N: Dim arr3(3)As Integer O: ┄ P: End Sub Q: Dim n As Integer R: Private Sub Command4_Click() S: Dim arr4(n)As Integer T: ┄ U: End Sub
内容
- 0
以下有关数组定义的语句序列中，错误的是 ______。 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
- 1
阅读程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。 A: 13 B: 14 C: 27 D: 15
- 2
下列数组定义中正确的是______。 A: Dim arr%(-5 To -2,5) B: Dim arr%(-2,0 To 5) C: Dim arr(8,3)% D: Dim arr(-1 To -3)
- 3
执行下列程序后，输出的结果是 Option Base 1 Private Sub Form_Click() Dim arr, s As Integer s = 0 arr = Array(2, 4, 6, 8, 10, 12, 14, 16, 18, 20) For i = 1 To 10 Step 2 If arr(i) Mod 3 = 0 Then s = s + arr(i) End If Next i Print s End Su A: 20 B: 22 C: 24 D: 26 E: 28 F: 其它都不对
- 4
在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_ Click() Dim arr(4, 4) For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 3 + j Next j Next i For i = 1 To 2 For j = 1 To 2 Print arr(i, j) Next j Next i End Sub程序运行后，单击命令按钮，输出结果为______ 。 A: 3 4 6 7 B: 7 8 10 11 C: 1 2 4 5 D: 8 9 12 13