1
2
3
4
5
6
7
8
Dim arr ()
创建一个动态变量数组,不受长度/数据类型受制
Dim arr(5)
as string
创建一个一维数组,下标从0开始,最大下标值为5
Dim arr(3,3) as string
创建一个二维数组,开始arr(0,0),最后一个arr(3,3)

1
2
3
Dim arr()
arr=Array("red","yellow","blue","black")

1
2
3
4
5
6
Dim arr(3)
dim i as integer
for i=0 to ubound(arr)
arr(i)=i
next i

1
2
3
Dim arr as Variant
arr=Range("A1:C13").value

1
2
3
Dim arr()
arr=Array("red","yellow","blue","black")

1
2
3
4
Dim arr()
arr=Array("red","yellow","blue","black")
msgbox("the arr is array:" & IsArray(arr))

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Constant_demo()
Dim NumArray(3)
NumArray(0) = "VBScript"
NumArray(1) = 1.05
NumArray(2) = 25
NumArray(3) = #23/04/2013#
Dim DynamicArray()
ReDim DynamicArray(9)
' Allocate storage space.
Erase NumArray
' Each element is reinitialized.
Erase DynamicArray
' Free memory used by array.
' All values would be erased.
msgbox("The value at Zeroth index of NumArray is " & NumArray(0))
msgbox("The value at First index of NumArray is " & NumArray(1))
msgbox("The value at Second index of NumArray is " & NumArray(2))
msgbox("The value at Third index of NumArray is " & NumArray(3))
End Sub

1
2
3
4
dim arr(3) as string
arr=Array("red","yellow","blue","black")
Redim arr(9)

1
2
3
4
dim arr(3) as string
arr=Array("red","yellow","blue","black")
msgbox(arr(2,1))

1
2
3
4
5
6
dim arr(3) as string,i as Integer
arr=Array("red","yellow","blue","black")
for i=lbound(arr) to ubound(arr)
msgbox(arr(i))
next i

1
2
3
4
5
6
dim arr(3) as string,i as String
arr=Array("red","yellow","blue","black")
for each i in arr
msgbox(i)
next i