VBA 计算一维数组的平均值

在VBA（Visual Basic for Applications）中，计算一维数组的平均值可以使用循环遍历数组并累加所有元素，然后除以数组长度来得到。下面是一个简单的例子：

Sub CalculateAverage()
    Dim arr() As Variant '声明一个动态数组
    arr = Array(10, 20, 30, 40, 50) '填充数组

    '初始化变量
    Dim sum As Double
    Dim count As Long
    sum = 0
    count = UBound(arr) + 1 'UBound()函数返回数组最后一个元素的下标，加1是因为下标从0开始

    '计算总和并求平均
    For i = LBound(arr) To count - 1 'LBounds()函数返回数组第一个元素的下标
        sum = sum + arr(i)
    Next i

    Dim average As Double
    average = sum / count
    Debug.Print "一维数组的平均值是: " & average '打印结果
End Sub

在这个例子中，`average`就是一维数组的平均值。