vba 数组

Dim myArray(1 To 10) As Integer ' 声明一个包含10个整数的静态数组

Dim myArray() As Integer ' 声明一个动态数组
ReDim myArray(1 To 5) ' 设置数组大小为5
ReDim Preserve myArray(1 To 10) ' 调整大小为10，同时保留原有数据

If index >= LBound(myArray) And index <= UBound(myArray) Then
    ' 安全访问数组元素
    Debug.Print myArray(index)
Else
    ' 处理越界情况
    Debug.Print "Index out of bounds!"
End If

Sub CalculateAverage()
    Dim numbers(1 To 5) As Double ' 声明一个包含5个数字的静态数组
    Dim total As Double
    Dim avg As Double
    Dim i As Integer
    
    ' 初始化数组并计算总和
    numbers(1) = 10: numbers(2) = 20: numbers(3) = 30: numbers(4) = 40: numbers(5) = 50
    For i = LBound(numbers) To UBound(numbers)
        total = total + numbers(i)
    Next i
    
    ' 计算平均值
    avg = total / (UBound(numbers) - LBound(numbers) + 1)
    Debug.Print "Average: " & avg
End Sub