VBS基礎篇 - 數組

 數組變量：有時需要向一個單一的變量賦於多個值，那么您可以創建一個可包含一系列值的變量，這種變量被稱為數組。

'靜態數組
dim a(2)
a(0)="George"
a(1)="john"
a(2)="Ethon"
for i =0 to 2
    msgbox a(i)
next
for i =0 to ubound(a) 'ubound函數,返回指定數組維數的最大可用下標
    msgbox a(i)
next


'動態數組
dim a()
for i = 0 to 2
　　redim preserve a(i) 'ReDim語句,用於過程級聲明動態數組變量並分配或重新分配存儲空間
　　a(i)=i+1 
　　msgbox a(i)
next

 

'動態二維數組
Dim MyArray() '首先定義一個一維動態數組
ReDim MyArray(1,1) '重新定義該數組的大小
MyArray(0,0) = "A" '分別為數組賦值
MyArray(0,1) = "a"
MyArray(1,0) = "B"
MyArray(1,1) = "b"
ReDim Preserve MyArray(1,2) '重新定義該數組的大小
MyArray(0,2) = "A-a" '繼續為數組賦值
MyArray(1,2) = "B-b"
MsgBox UBound(MyArray,1)
MsgBox UBound(MyArray,2)
For i=0 To UBound(MyArray,1)
    For j=0 To UBound(MyArray,2)
        MsgBox MyArray(i,j) '循環遍歷數組，並輸出數組值
    Next
Next

Dim MyArray() '首先定義一個一維動態數組
ReDim MyArray(3) '重新定義該數組的大小
MyArray(0) = "我" '分別為數組賦值
MyArray(1) = "要"
MyArray(2) = "學"
MyArray(3) = "習"
ReDim Preserve MyArray(5) '重新定義該數組的大小
MyArray(4) = "測" '繼續為數組賦值
MyArray(5) = "試"
For i=0 To UBound(MyArray)
    MsgBox MyArray(i) '循環遍歷數組，並輸出數組值
Next