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 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) 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
- 以下有关数组定义的语句序列中,错误的是( ) 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
内容
- 0
以下有关数组定义的语句序列中,错误的是______。 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
- 1
运行下面的程序,第二行显示结果是___________。 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
- 2
有如下函数过程: Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是( )。
- 3
运行下列程序,单击窗体显示的结果为( )。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub
- 4
运行以下程序,单击命令按钮后,如果用户从键盘上输入1、2、3、4、5、6,则窗体上输出内容为_________。 Private Sub Command1_Click() Dim a() As Integer Dim i As Integer, j As Integer ReDim a(6) For i = 5 To 10 a(10- i + 1) = InputBox("input number") Next i ReDim Preserve a(10) a(10) = a(3) + a(5) Print a(10) End Sub