Question

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

Answer 1

动态数组长度 = 动态数组上界 - 动态数组下界 + 1

用函数 UBound(array) 获取数组array的上界；

用函数 LBound(array) 获取数组array的下界。

其他的命令：

Dim j As Integer

Dim StrArray() As String

StrArray3 = Split(Str, " ")

For j = LBound(StrArray) To UBound(StrArray)

Next j

扩展资料：

UBound 函数与 LBound 函数一起使用，用来确定一个数组的大小。uBound 用来确定数组某一维的上界。

对具有下述维数的数组而言，UBound 的返回值见下表：

Dim A(1 To 100, 0 To 3, -3 To 4)

对具有下述维数的数组而言：

Dim A(1 To 100, 0 To 3, -3 To 4)

UBound的返回值如下：

UBound(A, 1) = 100

UBound(A, 2) = 3

UBound(A, 3) = 4

参考资料来源：百度百科-UBound函数

参考资料来源：百度百科-Ubound

Answer 2

对一维动态数组

        动态数组长度 = 动态数组上界 - 动态数组下界 + 1

用函数 UBound(array) 获取数组array的上界；

用函数 LBound(array) 获取数组array的下界。

例如

'定义动态数组
Dim a() As Integer
ReDim a(1 To 20)

'求动态数组a的长度
Dim x As Integer
x = UBound(a) - LBound(a) + 1
MsgBox "数组 a 的长度：" & x

Answer 3

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，这取决于 Option Base 语句的设置。使用 Array 函数创建的数组的下界为 0；它不受 Option Base 的影响。