Used at module level to declare the default lower bound for array subscripts.

解决方案 »

  1.   


    Option Base 语句      在模块级别中使用,用来声明数组下标的缺省下界。语法Option Base {0 | 1}说明由于下界的缺省设置是 0,因此无需使用 Option Base 语句。如果使用该语句,则必须写在模块的所有过程之前。一个模块中只能出现一次 Option Base,且必须位于带维数的数组声明之前。注意   Dim、Private、Public、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标。不过,如果没有使用 To 子句显式地指定下界,则可以使用 Option Base 将缺省下界设为 1。使用 Array 函数或 ParamArray 关键字创建的数组的下界为 0;Option Base 对 Array 或 ParamArray 不起作用。Option Base 语句只影响位于包含该语句的模块中的数组下界。
    Option Base 语句示例
    该示例使用 Option Base 语句来取代数组下标的缺省值 0。LBound 函数返回数组的指定维数的最小可用下标。Option Base 语句只能在模块级使用。Option base 1   '将缺省的数组下标设为 1。Dim Lower
    Dim MyArray(20), TwoDArray(3, 4)   '声明数组变量。
    Dim ZeroArray(0 To 5)   '取代缺省的下标。
    '使用 LBound 函数来测试数组的下界。
    Lower = LBound(MyArray)   '返回 1。
    Lower = LBound(TwoDArray, 2)   '返回 1。
    Lower = LBound(ZeroArray)   '返回 0。
      

  2.   

    这真是一条很管事的语句
    很可惜
    VB.NET中已经没有这条语句了