vba 数组赋值

Sub ArrayAssignment()
    Dim myArray(1 To 5) As Integer '声明一个大小为5的一维整数数组
    
    '给数组赋值
    myArray(1) = 10
    myArray(2) = 20
    myArray(3) = 30
    myArray(4) = 40
    myArray(5) = 50
    
    '打印数组内容
    Dim i As Integer
    For i = 1 To 5
        Debug.Print "myArray(" & i & ") = " & myArray(i)
    Next i
End Sub

Sub ResizeArray()
    Dim myArray() As Integer
    ReDim myArray(1 To 3)
    
    '赋初值
    myArray(1) = 1
    myArray(2) = 2
    myArray(3) = 3
    
    '改变数组大小，同时保留原有数据
    ReDim Preserve myArray(1 To 5)
    
    '给新增元素赋值
    myArray(4) = 4
    myArray(5) = 5
    
    '打印数组内容
    Dim i As Integer
    For i = 1 To 5
        Debug.Print "myArray(" & i & ") = " & myArray(i)
    Next i
End Sub