第06章 数组

求数组下标的下界、上界

格式：

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