Array 可返回一个包含数组的变量。
注释：数组中的第一个元素是零。
语法
Array(arglist)
参数 描述
arglist 必需的。数组中元素值的列表（由逗号分割）。
实例
例子 1
|
1
2
3
|
dim a
a=Array(5,10,15,20)
document.write(a(3))
|
输出：
20
例子 2
|
1
2
3
|
dim a
a=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)
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
|
动态二维数组
|
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) '循环遍历数组，并输出数组值
Next
Next
|
一维动态数组
|
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