欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

關(guān) 鍵 字 參 考

ReDim

調(diào)整現(xiàn)有數(shù)組的大小

ReDim 數(shù)組[索引 1]...[索引 n]

參 數(shù)

數(shù)組 目標(biāo)數(shù)組名稱.
索引 數(shù)組維數(shù)的元素?cái)?shù)量, 元素索引 0 到 n-1.

備 注

關(guān)鍵字 ReDim 的作用類似 Dim, 但 ReDim 調(diào)整數(shù)組大小時(shí)保存數(shù)組的值, 而不是刪除值.
數(shù)組的維數(shù)必須保持一致, 否則 ReDim 將丟失舊的數(shù)組內(nèi)容.
調(diào)整數(shù)組大小后其作用域(Global 或者 Local)維持不變.

相 關(guān) 函 數(shù)

Dim, UBound

函 數(shù) 示 例


; 示例  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之間的隨機(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, "調(diào)整數(shù)組演示", $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, "調(diào)整數(shù)組演示", $MSG)

provider with jb51.net (unicode)