VB子程序或函数中怎么用数组作参数？

[freelazy]

如题：

[射天狼]

Option Explicit

Private Sub Command1_Click()
Dim b() As Long
Dim i As Long

ReDim b(10)
For i = 1 To 10
b(i) = i
Next

Call aa(b)
End Sub

Private Sub aa(a() As Long)
Dim i As Long

For i = 1 To UBound(a)
MsgBox a(i)
Next
End Sub

[zjcxc]

或者:

Private Sub Command1_Click()
Dim b(10) As Long,i&

For i = 1 To 10
b(i) = i
Next

Call aa(b)
End Sub

Private Sub aa(a)
Dim i As Long

For i = 1 To UBound(a)
MsgBox a(i)
Next
End Sub