在VBA中，数组是一种非常常见的数据类型，而数组的常用操作之一是获取数组的上限和下限。它们指的是数组元素的索引的最大值和最小值。UBound函数是一个非常有用的VBA函数，可用于计算数组的上界。本文将介绍UBound函数的用法和详细操作步骤。

一、什么是UBound函数

UBound函数是一个VBA函数，可用于计算数组的上界。它的作用是返回指定数组的最后一个元素的索引。UBound函数通常与LBound函数一起使用，后者用于计算数组的下限。在VBA中，UBound函数的语法如下：

UBound(arrayname[, dimension])

其中，arrayname指定要计算上界的数组，而dimension参数是一个可选的数字值，它指定数组的哪个维度。默认情况下，dimension值为1，即第一维。如果数组是一维的，则可以省略dimension值。

二、使用UBound函数

1. 用UBound函数计算一维数组的上界

下面的代码演示了如何使用UBound函数来计算一维数组的上限：

```

Sub Get_Upper_Bound()

Dim arr(1 To 10) As Integer

Dim UpperBound As Integer

UpperBound = UBound(arr)

MsgBox "The upper bound of the array is " & UpperBound

End Sub

```

在这个例子中，我们首先定义了一个名为arr的数组，并将其大小设置为10。然后，我们使用UBound函数来计算这个一维数组的上界（或数组大小）。最后，我们使用MsgBox语句来显示上界的值。

2. 用UBound函数计算多维数组的上界

如果数组是多维的，则需要使用UBound函数的可选参数dimension来指定要计算上界的维度。下面的代码演示了如何使用UBound函数来计算二维数组的上限：

```

Sub Get_Upper_Bound()

Dim arr(1 To 10, 1 To 5) As Integer

Dim UpperBound As Integer

UpperBound = UBound(arr, 1)

MsgBox "The upper bound of the first dimension of the array is " & UpperBound

End Sub

```

我们首先定义了一个名为arr的二维数组，并将其大小设置为10行5列。然后，我们使用UBound函数来计算这个数组的上界。由于这是一个二维数组，因此我们需要指定我们要计算哪个维度的上界。在这个例子中，我们指定dimension值为1，以计算第一维上界的值。最后，我们使用MsgBox语句来显示上界的值。

3. 用UBound函数在循环中迭代数组

使用UBound函数的一个常见场景是在循环中迭代数组。例如，下面的代码演示了如何使用UBound函数来迭代一维数组arr：

```

Sub Loop_Through_Array()

Dim arr() As Integer

Dim i As Integer

arr = Array(1, 2, 3, 4, 5)

For i = LBound(arr) To UBound(arr)

MsgBox "The value of element " & i & " is " & arr(i)

Next i

End Sub

```

在这个例子中，我们首先用Array函数创建了一个包含5个整数的一维数组。然后，我们使用For循环来迭代数组的所有元素。我们使用LBound函数来计算数组的下限，UBound函数来计算数组的上限。在每次循环中，我们使用MsgBox语句显示数组元素的当前值和索引。

三、UBound函数的注意事项

1. 如果传递给UBound函数的数组是空的，则会引发运行时错误9“下标超出范围”。

2. 如果传递给UBound函数的数组是定长数组，则数组的上限将与其定义的大小相同。

3. 如果传递给UBound函数的数组是动态数组，则数组的上限取决于数组中的元素数。

4. 如果UBound函数的dimension参数超出数组的维数范围，则会引发运行时错误“下标越界”。

5. UBound函数始终返回的是最后一个元素的索引，而不是数组的元素数或大小（与UBound的命名相反）。

四、总结

UBound函数是VBA中一个非常有用的函数，可用于计算数组的上界。使用UBound函数，您可以方便地列举数组中的元素，并确保您的代码访问的是有效的元素。本文介绍了如何使用UBound函数来计算一维和多维数组的上限，并提供了一个循环数组的示例。我们还讨论了一些应该注意的事项，以确保您使用UBound函数时不会遇到问题。