VBA数组的声明与引用

文章作者 100test 发表时间 2008:01:04 12:44:14
来源 100Test.Com百考试题网

例如，要存储一年中每天的支出，可以声明一个具有365个元素的数组变量。数组中每个元素都有一个值。语句Dim curExpense(3 64)As Currency 声明数组变量curExpense，共有365个元素。

【注】：数组的下标(序号)默认为从零开始。
如果要引用数组中的元素，则必须指定元素的下标。例如，语句

Sub FiUArray()
Dim curExpense(364)As Currency
Dim intI As Integer
For intI=0 tO 364
curExpense(intI)=20
Next
End Sub

给数组中的每个元素都赋予一个初始值20。

数组的下标也可以不从0开始，有两种方法。可以在模块的顶部使用Option Base语句，将第一个元素的默认索引值从0改为其他值。例如，语句
Option Base 1
Dim curExpense(365)As Currency

声明的数组变量curExpense有365个元素，这是因为Option Base语句将数组下标的起始值变成了1。也可以利用To子句来对数组下标进行显式声明。例如，语句
Dim curExpense(1 To 865)As Currency
Dim strWeekday(7 To 1 3)As String

分别指定数组的下标从1和7开始。