返回一个 Long 类型的值，其中包含 数组 的指定维度的最大可用下标。
语法
UBound ( arrayname [， dimension ] )
UBound 函数语法具有以下参数：
|
参数 |
说明 |
|
arrayname |
必需。 数组的名称 变量;遵循标准变量命名约定。 |
|
维度 |
可选。 变量 (长) 。 指示返回哪个维度的上限的整数。 第一个维度使用 1，对第二个维度使用 2，依此类。 如果省略 维度 ，则假定为 1。 |
备注
UBound 函数与 LBound 函数一起使用，以确定数组的大小。 使用 LBound 函数查找数组维度的下限。
UBound 为具有以下维度的数组返回以下值：
Dim A(1 To 100, 0 To 3, -3 To 4)
|
声明 |
返回值 |
|
UBound(A, 1) |
100 |
|
UBound(A, 2) |
3 |
|
UBound(A, 3) |
4 |
示例
注意: 下面的示例演示了如何在 Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息，请在搜索旁边的下拉列表中选择“开发人员参考”，并在搜索框中输入一个或多个术语。
此示例使用 UBound 函数来确定数组的指定维度的最大可用下标。
Dim Upper
' Declare array variables.
Dim MyArray(1 To 10, 5 To 15, 10 To 20)
Dim AnyArray(10)
Upper = UBound(MyArray, 1) ' Returns 10.
Upper = UBound(MyArray, 3) ' Returns 20.
Upper = UBound(AnyArray) ' Returns 10.
