【VBA編程】08.數組

【數組簡介】
數組其實就是一組相同類型的數據的有序集合，其形象表示就像線性表。在存儲數據的時候，首先在內存中分配一個連續的存儲空間，將各個元素按順序存放在連續的存儲單元格中。
【定義靜態數組】
Dim 數據組(數據元素的上下界,...) As 數據類型
Dim a(10) As Integer '其數組名為a 其下標從0開始，下界為10 期中可訪問的元素為a(0)到a(10)
Dim b(1 To 10) As Double '可訪問元素為a(1)到a(10)
【Tips】
（1）多維數組的維數最高可達60維
（2）使用靜態數組時，必須指明數組的上界和下界及數組的維數，且數組中的上下界必須使用常量，不能使用變量
（3）每個數組元素只能存儲一個數據
【代碼區域】

Private Sub 數組初始化()
    Dim yunnan(1 To 4) As String
    yunnan(1) = "昆明"
    yunnan(2) = "曲靖"
    yunnan(3) = "昭通"
    yunnan(4) = "大理"
    yunnan(4) = "玉溪"
    For Each city In yunnan
     Debug.Print city
    Next
End Sub

【執行結果】

【二維靜態數組】
【代碼區域】

Private Sub 矩陣賦值()
    Dim i As Integer
    Dim j As Integer
    Dim a(1 To 3, 1 To 5) As Integer
    '使用i與j的乘積填入數組
    For i = 1 To 3
     For j = 1 To 5
      a(i, j) = i * j
      Next j
    Next i
    For i = 1 To 3
     For j = 1 To 5
      Debug.Print "a(" & i & ", " & j & ")=" & a(i, j) & Space(5);
      Next j
     Debug.Print
    Next i
      
End Sub

【結果展示】

【二維動態數組】
Dim 數組名() As 數據類型
Dim a() As Double

【代碼區域】

Private Sub 數組賦值()
    Dim a(1 To 3) As Integer
    Dim b() As Integer
    Dim i As Integer
    '初始化數組a中的值
    For i = 1 To 3
        a(i) = i
        Next
        b = a
        '打印a數組的值
        Debug.Print "a數組的值為："
        Debug.Print "a(1)=" & a(1)
        Debug.Print "a(2)=" & a(2)
        Debug.Print "a(3)=" & a(3)
        '打印b數組的值
        Debug.Print "b數組的值為："
        Debug.Print "b(1)=" & b(1)
        Debug.Print "b(2)=" & b(2)
        Debug.Print "b(3)=" & b(3)
End Sub

【結果展示】