求数组下标的下界、上界
格式：
LBound(ArrayName[,Dimension]) UBound(ArrayName[,Dimension])
其中，ArrayName数组名，Dimension指定第几维
例如：
Dim x(-10 To 100,-5 To 40) LBound (x,1)得到x数组第1维的下界值-10
13
UBound (x,2) 得到x数组第2维的上界值40
例6.5使用LBound和UBound函数。
Private Sub Form_Click()
n = Val(InputBox(\请输入数组下标下界\
m = Val(InputBox(\请输入数组下标上界\
ReDima(n To m) As Integer Print \数组元素为：\
For i = LBound(a) To UBound(a) a(i) = i Print a(i);
14
Next i Print
Print \数组元素为：\ Dim b(4, 5) As Integer For i = 1 To UBound(b, 1) For j = 1 To UBound(b, 2) b(i, j) = 10 * i + j Print b(i, j); Next j Print Next i Print End Sub
程序运行时输入1和5后，运行结果如
15
下图：
2.Array函数
（1）格式
数组名=Array（数组元素值）
（2）功能
给数组各元素赋初值
16
