Array 可返回一個包含數組的變量。
注釋：數組中的第一個元素是零。
語法
Array(arglist)
參數 描述
arglist 必需的。數組中元素值的列表（由逗號分割）。
實例
例子 1
|
1
2
3
|
dim aa=Array(5,10,15,20)document.write(a(3)) |
輸出：
20
例子 2
|
1
2
3
|
dim aa=Array(5,10,15,20)document.write(a(0)) |
輸出：
5
數組變量：有時需要向一個單一的變量賦于多個值，那么您可以創建一個可包含一系列值的變量，這種變量被稱為數組。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
'靜態數組dim a(2)a(0)="George"a(1)="john"a(2)="Ethon"for i =0 to 2 msgbox a(i)nextfor 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 |
動態二維數組
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
'動態二維數組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) '循環遍歷數組，并輸出數組值 NextNext |
一維動態數組
|
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 |
這篇文章就介紹到這，需要的朋友可以參考一下。
原文鏈接：http://www.cnblogs.com/wakey/p/5728192.html
