msdn:UBound 函数      返回一个 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 ====================================================================
 
LBound 函数      返回一个 Long 型数据,其值为指定数组维可用的最小下标。语法LBound(arrayname[, dimension])LBound 函数的语法包含下面部分:部分 描述 
arrayname 必需的。数组变量的名称,遵循标准的变量命名约定。 
dimension 可选的;Variant (Long)。指定返回哪一维的下界。1 表示第一维,2 表示第二维,如此类推。如果省略 dimension,就认为是 1。 
说明LBound 函数与 UBound 函数一起使用,用来确定一个数组的大小。UBound 用来确定数组某一维的上界。对具有下述维数的数组而言,LBound 的返回值见下表:Dim A(1 To 100, 0 To 3, -3 To 4)语句 返回值 
LBound(A, 1) 1 
LBound(A, 2) 0 
LBound(A, 3) -3 
所有维的缺省下界都是 0 或 1,这取决于 Option Base 语句的设置。使用 Array 函数创建的数组的下界为 0;它不受 Option Base 的影响。对于那些在 Dim 中用 To 子句来设定维数的数组而言,Private、Public、ReDim 或 Static 语句可以用任何整数作为下界。

解决方案 »

  1.   

    UBound 函数      返回一个 Long 型数据,其值为指定的数组维可用的最大下标。UBound 函数示例
    该示例使用 UBound 函数,确定数组的指定维的最大可用下标。Dim Upper
    Dim MyArray(1 To 10, 5 To 15, 10 To 20)   '声明数组变量。
    Dim AnyArray(10)
    Upper = UBound(MyArray, 1)   '返回 10。
    Upper = UBound(MyArray, 3)   '返回 20。
    Upper = UBound(AnyArray)   '返回 10。