修改已有数组的大小。
ReDim $数组名[下标 1]...[下标 n]
参数
| $数组名 | 要修改大小的数组名。 |
| 下标 | 要创建的数组中每一维的元素数量，从 0 到 n-1。 |
注意
关键字 ReDim 的作用类似于 Dim，但ReDim在调整数组大小时可维持数组元素的值不变而不是删除它们。数组的维数必须保持一致，否则旧的数组内容将丢失。调整数组大小后其作用域也维持不变。
相关
Dim, UBound
示例
; 修改数组大小示例
Dim $I, $K, $T, $MSG
Dim $X[4][6], $Y[4][6]
For $I = 0 To 3
For $K = 0 To 5
$T = Int(Random(20) + 1) ;获得从1到20之间的随机数
$X[$I][$K] = $T
$Y[$I][$K] = $T
Next
Next
ReDim $X[3][8]
Dim $Y[3][8]
$MSG = ""
For $I = 0 To UBound($X, 1) - 1
For $K = 0 To UBound($X, 2) - 1
If $K > 0 Then $MSG = $MSG & ", "
$MSG = $MSG & $X[$I][$K]
Next
$MSG = $MSG & @CR
Next
MsgBox(0, "ReDim 演示", $MSG)
$MSG = ""
For $I = 0 To UBound($Y, 1) - 1
For $K = 0 To UBound($Y, 2) - 1
If $K > 0 Then $MSG = $MSG & ", "
$MSG = $MSG & $Y[$I][$K]
Next
$MSG = $MSG & @CR
Next
MsgBox(0, "ReDim 演示", $MSG)