MyArray = Array(“Jan”,“Feb”,“Mar”,“Apr”,“May”,“Jun”,“Jul”,“Aug”,“Sep”,“Oct”, “Nov”,“Dec”)

数组大小由初始化元素个数决定。

方法二：

Dim myArray(2) '指定数组大小

myArray(0)=“Jan”

myArray(1)=“Feb”

数组动态扩展

DIM myArray()

REDIM myArray(20) '将数组大小重新定义为20

ReDim Preserve MyArray(i) ‘Preserve 保留数组中的原有数据

1.数组的定义与声明

数组的定义语法如下：

Dim 数组名( [[下标下界 To ] 下标上界] ) [As 数据类型]

例如(假设在当前模块中 数组的缺省下界为0))：

① Dim A(10) As Integer

表示数组名为A，此数组下标下界为缺省值0，下标上界为10，有11个Integer类型的元素，从A(0)、A(1)到A(10)。

② Dim B(1 To 20) As Integer

表示数组名为B，此数组下标下界为1，下标上界为20，有20个Integer类型的元素，从B(1)到B(20)。

③Dim DayArray(50)

表示DayArray 是一个有 51 个索引(从 0 到 50)元素的 Variant 数组。

④Dim Matrix(3, 4) As Integer

表示Matrix 是一个二维 Integer 数组。

⑤Dim MyMatrix(1 To 5, 4 To 9, 3 To 5) As Double

表示MyMatrix 是一个显式指定了上下界的三维 double 数组。

⑥Dim BirthDay(1 To 10) As Date

表示BirthDay 是一个索引从 1 到 10 的 Date型 数组。

2.Option Base 语句

Option Base 语句在模块级别中使用，用来声明数组下标的缺省下界。

Option Base 语句的语法如下：

Option Base {0 | 1}

说明：缺省状态下数组下界为 0，此时无需使用 Option Base 语句。如果使用该语句规定数组下界1，则必须在模块的数组声明之前使用Option Base 语句。

方法一：

MyArray = Array(“Jan”,“Feb”,“Mar”,“Apr”,“May”,“Jun”,“Jul”,“Aug”,“Sep”,“Oct”, “Nov”,“Dec”)

数组大小由初始化元素个数决定。

方法二：

Dim myArray(2) '指定数组大小

myArray(0)=“Jan”

myArray(1)=“Feb”

数组动态扩展

DIM myArray()

REDIM myArray(20) '将数组大小重新定义为20

ReDim Preserve MyArray(i) ‘Preserve 保留数组中的原有数据