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

VBA

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

VBA（Visual Basic for Applications）是一种基于Visual Basic的宏语言，广泛应用于Microsoft Office套件中的各种应用程序，如excel、word和Access等。在VBA项目中，我们经常会使用Array()、LBound()和UBound()等函数来处理数组。下面我们将介绍这些函数的用法和来源。

Array()函数

Array()函数是VBA中用于创建数组的函数。它接受一个或多个参数，并返回一个包含这些参数的数组。参数之间用逗号分隔。例如，下面的代码创建了一个包含3个元素的整数数组：

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

这样就创建了一个名为arr的整数数组，其中包含了值为1、2和3的三个元素。

LBound()函数

LBound()函数用于获取数组的下限（最小索引）。它接受一个数组作为参数，并返回该数组的下限值。数组的下限是指数组的第一个元素的索引值。例如，对于一个从0开始的数组，它的下限就是0；对于一个从1开始的数组，它的下限就是1。下面是一个示例：

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

在上面的代码中，lowerBound的值将为0，因为arr数组的下限为0。

UBound()函数

UBound()函数用于获取数组的上限（最大索引）。它接受一个数组作为参数，并返回该数组的上限值。数组的上限是指数组的最后一个元素的索引值。例如，对于一个从0开始的数组，它的上限就是数组的长度减1；对于一个从1开始的数组，它的上限就是数组的长度。下面是一个示例：

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

在上面的代码中，upperBound的值将为2，因为arr数组的上限为2。

Array()、LBound()和UBound()函数的来源

Array()、LBound()和UBound()函数是VB6/VBA语言中的内置函数，它们是由Microsoft开发的。这些函数的设计初衷是为了方便程序员在VBA项目中对数组进行操作。通过使用这些函数，我们可以轻松地创建数组、获取数组的下限和上限，并对数组进行遍历和处理。

示例代码

下面是一个使用Array()、LBound()和UBound()函数的示例代码，展示了如何创建一个包含10个随机数的整数数组，并计算数组的总和和平均值：

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

在上面的代码中，我们首先定义了一个数组arr，它包含了10个整数元素。然后，使用Randomize和Rnd函数生成了10个1到100之间的随机数，并将它们赋值给数组的各个元素。接下来，通过遍历数组并累加元素的值，计算出了数组的总和。最后，通过总和除以数组的长度，计算出了数组的平均值，并通过消息框显示出来。

通过上述示例代码，我们可以看到Array()、LBound()和UBound()函数在处理数组时的灵活性和方便性。无论是创建数组，还是获取数组的下限和上限，这些函数都能够帮助我们更有效地处理数组数据。