关 键 字 参 考

ReDim

调整现有数组的大小

ReDim 数组[索引 1]...[索引 n]

参 数

数组 目标数组名称.
索引 数组维数的元素数量, 元素索引 0 到 n-1.

备 注

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

相 关 函 数

Dim, UBound

函 数 示 例


; 示例  Resizing an array
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(0, "调整数组演示", $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, "调整数组演示", $MSG)

provider with jb51.net (unicode)