只包含一個值的變量稱為標量變量。
有時候為了方便將一組相關值賦給一個變量,則成為數組變量。
區別標量與數組的唯一方式是：聲明時數組變量名后面帶有括號()。
接下來我們看看怎樣聲明一維數組及多維數組：
下面先簡單的看個一維數組的示例：
|
1
2
3
4
5
6
7
8
9
10
11
12
|
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
|
動態數組：
運行腳本時大小發生變化的數組，可以使用Dim或ReDim語句，但括號中不包含任何數字。
要使用動態數組，必須隨后使用ReDim確定維數和每一維的大小。
若同時使用Preserve關鍵字，則在重新調整大小時保留數組的內容。
再接下來，看一下動態二維數組的示例：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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
|