（ 21 ）下面正确使用动态数组的是A ）Dim arr () As Integer…ReDim arr ( 3 , 5 )B ）Dim arr () As Integer…ReDim arr ( 50 ) As StringC ）Dim arr ()…ReDim arr ( 50 ) As IntegerD ）Dim arr ( 50 ) As Integer…ReDim arr ( 20 )
（ 21 ）下面正确使用动态数组的是
A ）
Dim arr () As Integer
…
ReDim arr ( 3 , 5 )
B ）
Dim arr () As Integer
…
ReDim arr ( 50 ) As String
C ）
Dim arr ()
…
ReDim arr ( 50 ) As Integer
D ）
Dim arr ( 50 ) As Integer
…
ReDim arr ( 20 )
相关考题：
（ 24 ）有以下程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2); arr(3, 4)End Sub程序运行后，单击窗体，输出结果为A ） 8 13B ） 0 13C ） 7 12D ） 0 0
下列数组定义语句错误的是（ ）。A．k%=10Dim Arr（k）B．Const k%=10Dim Arr（k）C．Dim Arr1（10） As IntegerDim Arr2 （10）D．Dim Arr1（1 To 10）Dim Arr2（1 To 10, 2 To 11）
阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输入结果为______。A． 21B．13C．8D．25
阅读程序：Option Base 1Dim arr（） As IntegerPrivate Sub Form_Click（）Dim i As Integer, j As IntegerReDim arr（3, 2）For i = 1 To 3For j = 1 To 2arr（i, j） = i * 2 + jNext jNext iReDim Preserve arr（3, 4）For j = 3 To 4arr（3, j） = j + 9Next jPrint arr（3, 2） + arr（3, 4）End Sub程序运行后，单击窗体，输入结果为（ ）。A．21B．13C．8D．25
（ 21 ）下面正确使用动态数组的是A ）Dim arr () As Integer…ReDim arr ( 3 , 5 )B ）Dim arr () As Integer…ReDim arr ( 50 ) As StringC ）Dim arr ()…ReDim arr ( 50 ) As IntegerD ）Dim arr ( 50 ) As Integer…ReDim arr ( 20 )
有以下程序： Option Base 1 Dim arr()As Integer Private Sub Form. Click() Dim i As Integer,j As Integer ReDim arr(3，2) For i＝1 To 3 For j＝1 To 2 arr(i,j)＝i*2+j Next j Next i ReDim Preserve arr(3,4) For j＝3 To 4 arr(3,j)＝j+9 Next j Print arr(3，2)；arr(3，4) End Sub 程序运行后，单击窗体，输出结果为______。A．813B．013C．712D．00
下面正确使用动态数组的是A．Dim art()As integer ... ReDim air(3，5)B．Dim alr()As Integer ... ReDim an(50)As StringC．Dim art() ... ReDim an(50)As IntegerD．Dim an(50)As Integer ... ReDim an(20)
阅读程序： Private Sub Command1_Click（ ） Dim arr Dim i As Integer arr=Array(0，1，2，3，4，5，6，7，8，9，10) For i=0 To 2 Print arr(7-i)； Next End Sub 程序运行后，窗体上显示的是（ ）。A.8 7 6B.7 6 5C.6 5 4D.5 4 3
若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As St ring End Type Dim art(5)As rec 则下面的输出语句中正确的是（ ）。A.Print arr．Code(2)，art．Caption(2)B.Print art．Code，arr．CaptionC.Print arr(2)．Code，arr(2)．CaptionD.Print Code(2)，Caption(2)
下面正确使用动态数组的是（ ）。A.Dim arr（ ）As Integer … ReDim arr(3，5)B.Dim arr（ ）As Integer … ReDim arr(50)As StringC.Dim arr（ ） … RcDim arr(50)As IntegerD.Dim arr(50)AS Integer … ReDim arr(20)
以下有关数组定义的语句序列中，错误的是A．Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入：”) ReDim arr2(size) ┄ End SubC．Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End SubD．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ┄ End Sub
以下有关数组定义的语句序列中，错误的是 ______。A．Static arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)123.45B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_click() size=InputBox("输入:") ReDimarr2(size) End SubC．Option Base1 Private Sub Command3_click() Dim arr3(3)As Integer End SubD．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer End Sub
下列数组定义语句错误的是A．k％=10 Dim Arr(k)B．Const k％=10 Dim Arr(k)C．Dim Arrl(10) As Integer Dim Arr2(10)D．Dim Arrl(1 To 10) Dim Arr2(1 To 10，2 To 11)
以下有关数组定义的语句序列中，错误的是 ______。A．Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=12345B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=Input Box("输入:") ReDimarr2(size) ... End SubC．Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ... End SubD．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ... End Sub
阅读程序： Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
阅读程序： Option Base 1 Dim art()As Integer Private Sub Form_Click() Dim i As Integer，j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
用Dim arr(3 To 5,－2 To 2)语句定义的数组元素个数是( )。A.20B.12C.15SXB 用Dim arr(3 To 5,-2 To 2)语句定义的数组元素个数是（ ）。A.20B.12C.15D.24
在窗体上画一个名称为Text1的文本框，然后编写如下代码： Option Base 1 Private Sub Form. Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum/Finish Text1.Text = c End Sub程序运行后，单击窗体，则在文本框中显示的内容是______。A．40B．10C．12D．16
在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer，Finish As Integer Dim Sum As Integer arr=Array(12，4，8，16) Start=Lbound(arr) Finish=Ubound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Text1．Text=c End Sub 程序运行后，单击窗体，则在文本框中显示的内容是A．40B．10C．12D．16
在窗体上添加一个命令按钮，其名为Command1，然后编写代码如下：Option Base 1Private Sub command1_ Click() Dim arr (4)As Integer Dim arrt (4) As Integer for i= 1 To 4 Arr (i)= i arr1 (n)= 2 * n + i Next i Print arr1 (n); arr(n)程序的运行结果为______。A．3 11B．11 3C．10 3D．3 13
阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i As Integer ReDim arr(3，2) For i=1 To 3 For j=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
在窗体上添加一命令按纽，其名为Command1，然后编写代码如下： Private Sub Command1_Click() Dim arr (5)As Integer Dim arrl (5)As Integer n=3 For i=1 To 5 Arr (i)=i Arrl (n)=2*n+ i Next i Print arrl (n)；arr (n) End Sub 程序的运行结果为：______。A． 3 11B．11 3C．13 3D．3 13
以下有关数组定义的语句序列中，错误的是( )。A．Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=123.45B．Dim arr2() AsInteger Dim size As Integer Private Sub Command2_Click () size=InputBox("输入：") ReDim arr2(size) …… EndSubC．Option Base 1 Private Sub Command3 Click() Dim art3(3) As Integer …… End SubD．Dim n As Integer Private Sub Command4 Cliok() Dim arr4(n)As Integer …… End Sub
单选题语句Dim arr（-3 To 5，2 To 6）As Integer定义的数组元素有（）个。A45B40C11D54