VB6VBA 项目引用中的 Array()、LBound() 和 UBound() 来自哪里

VBA中的Array()、LBound()和UBound()函数

vba
Dim arr() As Integer
arr = Array(1, 2, 3)

vba
Dim arr() As Integer
arr = Array(1, 2, 3)
Dim lowerBound As Integer
lowerBound = LBound(arr)

vba
Dim arr() As Integer
arr = Array(1, 2, 3)
Dim upperBound As Integer
upperBound = UBound(arr)

vba
Sub ArrayExample()
    Dim arr(1 To 10) As Integer
    Dim i As Integer
    Dim total As Integer
    Dim average As Double
    
    ' 使用Randomize和Rnd函数生成随机数
    Randomize
    For i = LBound(arr) To UBound(arr)
        arr(i) = Int((100 - 1 + 1) * Rnd + 1) ' 生成1到100之间的随机数
    Next i
    
    ' 计算数组的总和
    For i = LBound(arr) To UBound(arr)
        total = total + arr(i)
    Next i
    
    ' 计算数组的平均值
    average = total / (UBound(arr) - LBound(arr) + 1)
    
    ' 输出结果
    MsgBox "数组的总和为：" & total & vbCrLf & "数组的平均值为：" & average
End Sub