一、在vb中什么函数可以计算一个数组的下标？
Private Sub Command1_Click()
Dim a(1 To 3, -100 To 100) As Integer, b(4) As Integer
boundA a, b
Debug.Print "第一维下标为："; b(1), "第一维上标为："; b(2), "第二维下标为："; b(3), "第二一维上标为："; b(4)
End Sub
Public Sub boundA(a() As Integer, b() As Integer)
b(1) = LBound(a, 1)
b(2) = UBound(a, 1)
b(3) = LBound(a, 2)
b(4) = UBound(a, 2)
End Sub
二、VBA中为什么会会出现下标越界？
Microsoft Visual Basic ~运行时错误'9'~下标越界，错误原因分析：
如果使用数组时，数组的下标超出数组的可取值范围就会出现这个错误，这个数组可以是自定义的也可以是系统自带的。
1.自定义数组：
dim arr1(1 to 5)
arr1(10)=555
因为arr1数组为1到5，这里却是10，所以就会报下标越界错误。
2.系统自带的数组：
一个excel工作表表有3张Sheet
Sub 下标越界()
MsgBox Sheets(4).Name
End Sub
这里的Sheets(4)显然已经超出了3张Sheet，因此也会报下标越界错误。
总之，有多种情况会引起“下标越界”的报错。
下标越界错误大概有以下的原因和解决方法：
引用了不存在的数组元素。
下标比可能下标范围大或小，或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组，应使用 UBound 和 LBound 函数来决定数组访问。如果索引指定为变量，应检查变量名的拼写。
声明数组时没有指定元素的数目。
引用了不存在的集合成员。 试着使用 For Each...Next 结构代替指定元素下标。
使用速写形式的下标，结果指定了错误的元素。
下标越界不存在对应的工作薄、工作表名称是否写正确。
当再次遇到VBA报下标越界错误时，就不会惊慌了，至少大概知道其原因了。我们再参照上面的思路去修改代码就可以解决下标越界的错误。
三、lbound和ubound函数怎么用？
lbound和ubound函数用于返回数组的下标范围。
lbound返回数组最小下标，ubound返回数组最大下标，其语法为：lbound(array,dim)ubound(array,dim)其中，array为要返回下标范围的数组名，dim为数组的维度。
例如，要返回第一维数组下标范围，可以写成lbound(array,1)和ubound(array,1)。
对于多维数组，可以通过传递不同的维度来获取对应的下标范围。
在编写程序时，lbound和ubound函数可以帮助我们获取正确的下标范围，避免访问越界导致的程序错误。
