VB在函数和过程中如何调用数组,并在数组中写入返回值?

[lanman]

格式是什么,谢谢.

[goodname008]

Option Explicit

Private Sub Command1_Click()
Dim arr(10) As String, i As Long
Test arr()
For i = 0 To UBound(arr)
Debug.Print arr(i)
Next i
End Sub

Private Sub Test(ByRef arr() As String)
Dim i As Long
For i = 0 To UBound(arr)
arr(i) = i
Next i

End Sub