PowerPoint 演示文稿

2. 数组参数的传递
当参数是数组通过传址方式进行传递。注意：
• 在实参和形参中写数组名，忽略维数的定义，但圆括号不能省。
• 被调过程可通过Lbound和Ubound函数确定实参数组的下、上界。
Lbound和Ubound函数的形式如下：
{L|U}bound(数组名[，维数])
其中：维数指明要测试的是第几维的下标值，缺省是一维数组。
例 6.7 编一函数tim，求任意一维数组中各元素之积。
调用tim,求 和
Function tim(a() As Integer)
Dim t#， i%
t = 1
For i = Lbound(a) To Ubound(a)
t = t * a(i)
Next i
tim = t
End Function
调用：
Sub Command1_Click()
Dim a%(1 To 5)，b%(3 To 8)
…
t1# = tim(a())
t2 #= tim(b())
Print t1， t2
End Sub