例如，要存储一年中每天的支出，可以声明一个具有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开始。