lbound和ubound（lbound）

大家好，我是小新，我来为大家解答以上问题。lbound和ubound，lbound很多人还不知道，现在让我们一起来看看吧！

我直接复制了

Sub 示例_1_023()

Dim Arr(1 To 10, 5 To 15, 10 To 20)

Dim Arr1(10)

[a1] = "数组变量：Arr(1 To 10, 5 To 15, 10 To 20) "

[a2] = "数组变量：Arr1(10) "

[a3] = "LBound(Arr, 1) 返回 ": [b3] = LBound(Arr, 1)

[c3] = "UBound(Arr, 1) 返回 ": [d3] = UBound(Arr, 1)

[a4] = "LBound(Arr, 3) 返回 ": [b4] = LBound(Arr, 3)

[c4] = "UBound(Arr, 3) 返回 ": [d4] = UBound(Arr, 3)

[a5] = "LBound(Arr1) 返回 ": [b5] = LBound(Arr1)

[c5] = "UBound(Arr1) 返回 ": [d5] = UBound(Arr1)

End Sub

代码详解

1、Sub 示例_1_023()：宏程序的开始语句。宏名为示例_1_023。

2、Dim Arr(1 To 10, 5 To 15, 10 To 20) ：声明Arr为3维数组变量。

3、Dim Arr1(10) ：声明Arr1为1维数组变量。

4、[a1] = "数组变量：Arr(1 To 10, 5 To 15, 10 To 20) " ：把字符串赋给单元格A1。

5、[a2] = "数组变量：Arr1(10) " ：把字符串赋给单元格A2。

6、[b3] = LBound(Arr,1) ：运用LBound函数，返回数组Arr的第1维的最小可用下

界，返回1，赋给单元格B3。

7、[d3] = UBound(Arr,1) ：运用UBound函数，返回数组Arr的第1维的最大可用上

界，返回10，赋给单元格D3。

8、[b4] = LBound(Arr,3) ：运用LBound函数，返回数组Arr的第3维的最小可用下

界，返回10，赋给单元格B4。

9、[d4] = UBound(Arr,3) ：运用UBound函数，返回数组Arr的第3维的最大可用上

界，返回20，赋给单元格D4。

10、[b5] = LBound(Arr1) ：运用LBound函数，返回数组Arr1的最小可用下界，返回0或者1，要取决于Option Base的设置，默认为0。

11、[d5] = UBound(Arr1) ：运用UBound函数，返回数组Ar1r的最大可用上界，返回10，赋给单元格D5。

LBound 函数

返回一个 Long 型数据，其值为数组指定维可用的最小下界。

LBound(arrayname[, dimension])

LBound 函数的参数：

arrayname 必需的。数组变量的名称，遵循标准的变量命名约定。

dimension 可选的；Variant (Long)。指定返回哪一维的下界。1 表示第一维，2 表示第二维，如此类推。如果省略 dimension，就认为是 1。

UBound 函数

返回一个 Long 型数据，其值为指定的数组维可用的最大上界。

UBound(arrayname[, dimension])

UBound 函数的语法包含下面部分：

arrayname 必需的。数组变量的名称，遵循标准变量命名约定。

dimension 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略 dimension，就认为是 1。

说明

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

本文到此讲解完毕了，希望对大家有帮助。