VBA UBound()函数用于获取一个数组的上界（最大索引值）。它的语法如下：
UBound(arrayname, [dimension])
UBound()函数返回一个整数值，表示指定维度上的最大索引值。例如，如果数组中有 5 个元素，则上界为 5-1=4。
下面是一个示例：
Dim arr(1 To 5) As Integer
Dim maxIndex As Integer
maxIndex = UBound(arr)
Debug.Print maxIndex ' 输出 5
在上面的示例中，UBound(arr) 返回数组 arr 的第一个维度上的最大索引值，即 5。
