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

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

?

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

二維數組

舉例：

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

二維賦值舉例：

MYArray(3,3)=100

二維數組還有一種變相的實現方法：

dim MyArray(5)

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

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

...

訪問的時候，用MyArray(x)(y)這樣的格式

數組的下標

用上面的方法定義數組，每一維數組的第一個元素的下標是0，最后一個元素的下標就是元素數量-1

但也可以指定數組的下標，如：

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

有用的數組函數

Ubound(數組名)函數--返回數組的最后一個元素的下標。

Lbound(數組名)函數--返回數組的第一個元素的下標，缺省為0。

更多應用：

數組排序函數
[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