Dim myArray(2) '指定數(shù)組大小
myArray(0)="Jan"
myArray(1)="Feb"

DIM myArray()
REDIM myArray(20) '將數(shù)組大小重新定義為20

?

ReDim Preserve MyArray(i)?? 'Preserve?? 保留數(shù)組中的原有數(shù)據(jù)

二維數(shù)組

舉例：

dim MyArray(5,10) '定義了一個(gè)二維數(shù)組

二維賦值舉例：

MYArray(3,3)=100

二維數(shù)組還有一種變相的實(shí)現(xiàn)方法：

dim MyArray(5)

MyArray(0)=Array(...) '一維數(shù)組

MyArray(1)=Array(...)'一維數(shù)組

...

訪問(wèn)的時(shí)候，用MyArray(x)(y)這樣的格式

數(shù)組的下標(biāo)

用上面的方法定義數(shù)組，每一維數(shù)組的第一個(gè)元素的下標(biāo)是0，最后一個(gè)元素的下標(biāo)就是元素?cái)?shù)量-1

但也可以指定數(shù)組的下標(biāo)，如：

dim MyArray1(3 to 10)? '下標(biāo)從3到10，MyArray(3)即獲取第一個(gè)元素的值

有用的數(shù)組函數(shù)

Ubound(數(shù)組名)函數(shù)--返回?cái)?shù)組的最后一個(gè)元素的下標(biāo)。

Lbound(數(shù)組名)函數(shù)--返回?cái)?shù)組的第一個(gè)元素的下標(biāo)，缺省為0。

更多應(yīng)用：

數(shù)組排序函數(shù)
[code]
function Sort(ary)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I = UBound(ary) Then Exit For
If ary(I) > ary(I+1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue
KeepChecking = TRUE
End If
Next
Loop
Sort = ary
End function

Dim MyArray
MyArray = Array(1,5,123,12,98)
MyArray = Sort(MyArray)
For I = Lbound(MyArray) to Ubound(MyArray)
Response.Write MyArray(I) & "
"
Next