声明数组
Dim cities(6) As String Dim daysOfWeek(7) As String Dim lotto(6) As Integer Dim exchange(5, 3) As Variant 数组声明的最后一部份是定义数组将要储存数据的数据类型。数组可以储存下列任何一种数据类型：Integer, Long, Single, Double, Variant, Currency, String, Boolean, Byte, or Date。
数组的上界和下界
VBA默认将数组的第一个成员设置为0（索引号），因此，数字1代表数组中的第二个成员，而数字2则代表第三个，等等。因为数字编号起始于0，所以，一维数组cities(6)包含从0到6的七个成员。如果你宁愿从1开始计数你数组里的成员，那么你可以使用Option Base 1语句来强制指定该数组的下界。该指令必须置于VBA模块任何Sub语句上面的声明部分。如果你不明确Option Base 1，那么VBA在使用数组是就会假定使用Option Base 0来从0开始编号你的数组成员。
Dim cities(3 To 6) As Integer上面的语句声明了一个带有四个成员的一维数组。数组名称后面括号里的数字明确了数组的下界（3）和上界（6）。该数组的第一个成员编号为3，第二个为4，第三个为5，以及第四个为6。注意下界和上界之间的关键字To。
在VBA过程里使用数组
你声明了数组后，就必须给该数组的每个成员赋值，这也经常成为“填充数组”。我们来尝试使用一维数组有规划地显示六个美国城市的清单：
' start indexing array elements at 1 从1开始给数组成员编号 Option Base 1 Sub FavoriteCities() 'now declare the array Dim cities(6) As String 'assign the values to array elements cities(1) = "Baltimore" cities(2) = "Atlanta" cities(3) = "Boston" cities(4) = "Washington" cities(5) = "New York" cities(6) = "Trenton" 'display the list of cities MsgBox cities(1) & Chr(13) & cities(2) & Chr(13) _ & cities(3) & Chr(13) & cities(4) & Chr(13) _ & cities (5) & Chr(13) & cities(6) End Sub在FavoriteCities过程开始之前，缺省的索引编号方式改变了，注意，Option Base 1语句是位于模块窗口Sub语句之上的。该语句告诉VB给数组的第一个成员赋值数字1，而不是缺省的0。
图7-1 你可以用Msgbox函数来显示一维数组的成员
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请联系我们举报，一经查实，本站将立刻删除。
发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/224714.html原文链接：https://javaforall.net
