关于ReDim语句，错误的是（）

A.用ReDim语句可以改变数组的维数

B.用ReDim语句可以改变数组的类型

C.用ReDim语句可以改变数组每一维的大小

D.用ReDim语句可以对数组中的所有元素置0或空字符串

A．ReDim Preserve Matrix(10, UBound(Matrix, 2)+1)

B．ReDim Preserve Matrix(UBound(Matrix, 1)-4-1, 10)

C．ReDim Preserve DynArray(UBound(DynArray)+1)

D．ReDim DynArray(UBound(DynArray)+1)

A．ReDim Preserve x(10，Ubound(x，2)+1)

B．ReDim Preserve x(Ubound(x，1)+1，10)

C．ReDim Preserve y(Ubound(y)+1)

D．ReDim y(Ubound(y)+1)

B.RedimPreserveMatrix(Ubound(Matrix,1)+1,10)

C.RedimPreserveDynArray(Ubound(DynArray)+1)

D.RedimDynArray(Ubound(DynArray)+1)

A．在声明时确定了大小的数组叫做静态数组

B．在过程中可多次使用ReDim语句来改变数组的大小，也可以改变数组的维数

C．每次使用ReDim语句都不会使原来数组中的值丢失

D．在Visual Basic中最多允许有60维数组

A．Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=123.45

B．Dim arr2() AsInteger Dim size As Integer Private Sub Command2_Click () size=InputBox("输入：") ReDim arr2(size) …… EndSub

C．Option Base 1 Private Sub Command3 Click() Dim art3(3) As Integer …… End Sub

D．Dim n As Integer Private Sub Command4 Cliok() 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 arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)123.45

B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_click() size=InputBox("输入:") ReDimarr2(size) End Sub

C．Option Base1 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 arr1(2)="Hello" arr1(3)=12345

B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=Input Box("输入:") ReDimarr2(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) rrl(1)=100 arrl(2)="Hello" arrl(3)=123.45

B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=inputBox('输入:") ReDimarr2(size) End Sub

C．OptionBase 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