Question

ReDim

---

修改已有数组的大小。

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)