你好，请问Ubound在VB中怎么用啊？

Question

Ubound 在VB中怎么用啊？！ 有啥规则吗？！我重新声明下 我的问题好啦就是要求 在定义动态数组 个数的时候其个数是根据下面程序要求其动态数组个数的多少 改变而改变的

Answer 1

假设：
Dim a() As Integer
ReDim a(100) '重定义数组为101个元素
保留原有数组信息，新增一个元素：
ReDim Preserve a(UBound(a) + 1) '至此数组元素有102个
（若不需保留原有数组信息，去掉Preserve关键字即可。）

Answer 2

Ubound 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