vb怎么求一个动态一维数组的长度.

vb怎么求一个动态一维数组的长度.

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)100UBound(A, 2)3UBound(A, 3)4LBound 函数 返回一个 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)1LBound(A, 2)0LBound(A, 3)-3所有维的缺省下界都是 0 或 1，这取决于 OptionBase 语句的设置。使用 Array 函数创建的数组的下界为 0；它不受 Option Base 的影响。

代码： private sub command1_click() dim a(500) as integer for i = lbound(a) to ubound(a) a(i) = int(rnd * 100) next i qsort a, lbound(a), ubound(a) for i = lbound(a) to ubound(a) print a(i); next i print end sub sub swap(a as integer, b as integer) t = a: a = b: b = t end sub ‘快速排序 sub qsort(a() as integer, byval p as integer, byval r as integer) dim q as integer if p >= r then exit sub q = p for i = p to r - 1 if a(i) < a(r) then swap a(i), a(q): q = q + 1 next i swap a(q), a(r) qsort a, p, q - 1 qsort a, q + 1, r end sub