Array函数

王朝百科·作者佚名 2012-05-25

功能返回一个包含数组的Variant。

语法Array(arglist)所需的arglist参数是一个用逗号隔开的值表，这些值用于给Variant所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。

说明用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个Variant的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。

Dim A As VariantA = Array(10,20,30)B = A(2)使用Array函数创建的数组的下界受Option Base语句指定的下界的决定, 除非Array是由类型库（例如VBA.Array )名称限定。如果是由类型库名称限定，则Array不受Option Base的影响。

注意没有作为数组声明的Variant也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant变量可以表示任何类型的数组。尽管一个包含数组的Variant和一个元素为Variant类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。

示例该示例使用Array函数来返回一个包含Variant的数组。

Dim MyWeek, MyDayMyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")'返回值假设下界的设置为 1（使用 Option Base' 语句）。MyDay = MyWeek(2) 'MyDay 的值为 "Tue"。MyDay = MyWeek(4) 'MyDay 的值为 "Thu

例子：当代码窗口输入如下：private sub form_click

dim a

a = array（2,3,4,5）

for i = 1 to 4

s = s + a（i）

next i

print s;

end sub

则运行时会在窗体上显示：2 3 4 5