关键字参考

ReDim

调整一个已经存在的数组的大小

ReDim $array[subscript 1]...[subscript n]

参数

$array 要修改大小的数组名.
subscript 要创建的数组中每一维的元素数量,从 0 到 n-1.

注意/说明

关键字 ReDim 的作用类似于 Dim, 但ReDim在调整数组大小时可维持数组元素的值不变而不是删除它们. 数组的维数必须保持一致, 否则旧的数组内容将丢失. 调整数组大小后其作用域(Global 或者 Local)也维持不变.

相关

Dim, UBound

示例/演示


; 演示调整数组大小
Local $I, $K, $T, $MSG
Local $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(4096, "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(4096, "ReDim 演示", $MSG)