Array 函数
语法
Array(arglist)
所需的 arglist参数 是一个以逗号分隔的值列表，这些值被分配给 Variant 中包含的数组的元素。 如果没有指定任何参数，则将创建零长度的数组。
注解
用于引用数组元素的表示法包括变量名称，后跟包含指示所需元素的索引号的圆括号。
在以下示例中，第一个语句创建一个名为 A 的变量作为 Variant。 第二个语句将数组分配给变量 A。 最后的语句将包含在第二个数组元素中的值分配给另一个变量。
Dim A As Variant, B As Long, i As Long
A = Array(10, 20, 30) ' A is a three element list by default indexed 0 to 2
B = A(2) ' B is now 30
ReDim Preserve A(4) ' Extend A's length to five elements
A(4) = 40 ' Set the fifth element's value
For i = LBound(A) To UBound(A)
Debug.Print "A(" & i & ") = " & A(i)
Next i
使用 Array 函数创建的数组的下限由通过 Option Base 语句指定的下限确定，除非使用类型库的名称（如 VBA.Array）限定 Array。 如果使用类型库名称进行限定，则 Array 不受 Option Base 的影响。
注意
[!注释] 未声明为数组的 Variant 仍可包含一个数组。 Variant 变量可以包含任何类型的数组（固定长度的字符串和用户定义类型除外）。 虽然从概念上说，包含数组的 Variant 与其元素属于类型 Variant 的数组不同，但将按照相同的方式访问数组元素。
示例
此示例使用 Array 函数返回包含数组的 Variant。
Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
' Return values assume lower bound set to 1 (using Option Base
' statement).
MyDay = MyWeek(2) ' MyDay contains "Tue".
MyDay = MyWeek(4) ' MyDay contains "Thu".
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。