引用:http://www.bhcode.net/article/20100317/7384.html
返回一个 Long 型数据，其值为指定的数组维可用的最大下标。
语法
UBound(arrayname[, dimension])
UBound 函数的语法包含下面部分：
| 部分 | 描述 |
| arrayname | 必需的。数组变量的名称，遵循标准变量命名约定。 |
| dimension | 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，以此类推。如果省略 dimension，就认为是 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 |