修改已有數(shù)組的大小。
ReDim $數(shù)組名[下標(biāo) 1]...[下標(biāo) n]
參數(shù)
| $數(shù)組名 | 要修改大小的數(shù)組名。 |
| 下標(biāo) | 要?jiǎng)?chuàng)建的數(shù)組中每一維的元素?cái)?shù)量，從 0 到 n-1。 |
注意
關(guān)鍵字 ReDim 的作用類似于 Dim，但ReDim在調(diào)整數(shù)組大小時(shí)可維持?jǐn)?shù)組元素的值不變而不是刪除它們。數(shù)組的維數(shù)必須保持一致，否則舊的數(shù)組內(nèi)容將丟失。調(diào)整數(shù)組大小后其作用域也維持不變。
相關(guān)
Dim, UBound
示例
; 修改數(shù)組大小示例
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之間的隨機(jī)數(shù)
$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)