题目内容
（请给出正确答案）
[主观题]
使用ReDim Preserve语句，可以（)。A．改变数组最后一维的大小B．改变数组第一维的大小C．改变数组所有
使用ReDim Preserve语句，可以()。
A．改变数组最后一维的大小
B．改变数组第一维的大小
C．改变数组所有维的大小
D．改变数组维数和所有维的大小
查看答案
如果结果不匹配，请 联系老师 获取答案
题目内容
（请给出正确答案）
如果结果不匹配，请 联系老师 获取答案
题目内容
（请给出正确答案）
使用ReDim Preserve语句，可以()。
A．改变数组最后一维的大小
B．改变数组第一维的大小
C．改变数组所有维的大小
D．改变数组维数和所有维的大小
如果结果不匹配，请 联系老师 获取答案
更多“使用ReDim Preserve语句，可以（)。A．改变数组…”相关的问题
以下说法不正确的是
A．使用ReDim语句可以改变数组的维数
B．使用ReDim语句可以改变数组的类型
C．使用ReDim语句可以改变数组每一维的大小
D．使用ReDim语句可以对数组的所有元素进行初始化
阅读程序:
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
Next
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next
Print arr(3,2)+arr(3,4)
End Sub
程序运行后,单击窗体,输出结果为
A．21
B．13
C．8
D．25
阅读程序： 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． 21
B．13
C．8
D．25
有以下程序：
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（1,4）
For j=3 To 4
Arr（3,j）=j+9
Next j
Print arr（3,2）;arr（3,4）
End Sub
程序运行后，单击窗体，输出结果为（）。 A．8 13
B．0 13
C．7 12
D．0 0
下列数组说明语句正确的是
A．Dim g(0，-5)As Single
B．Dim h(100 To 100，100)As String
C．Dim x(5)As Integer ReDim x(10)As Integer
D．Dim y() ReDim y
以下有关数组定义的语句序列中，错误的是()。
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
（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 )
下面正确使用动态数组的是（）。
A.Dim arr（）As Integer … ReDim arr(3，5)
B.Dim arr（）As Integer … ReDim arr(50)As String
C.Dim arr（） … RcDim arr(50)As Integer
D.Dim arr(50)AS Integer … ReDim arr(20)
