方法一:
MyArray = Array("Jan","Feb","Mar")
下标从 0 开始。
方法二:
Dim myArray(2) '指定数组大小
myArray(0)="Jan"
myArray(1)="Feb"
可以动态改变数组的大小,比如:
DIM myArray(1)
REDIM myArray(2) '将数组大小重新定义为2
注:redim 不保留前面的元素,要在已有数据的数组后增加数组元素个数:
MyArray = Array("Jan")
ReDim Preserve MyArray(2)
MyArra("Feb")
这样 MyArray 数组就有两个元素 “Jan” 和 “Feb”。
相关的数组函数:
Ubound(数组名)函数返回数组的最后一个元素的下标。
Lbound(数组名)函数返回数组的第一个元素的下标,缺省为0。
注:LBound 函数与 UBound 函数共同使用,可以确定数组的大小。