vb6数组参数传递：VB中如何将数组作为参数传递？

vb6中所有数组做参数传递都是传地址的。Private Sub Command1_Click()Dim a(3) As Integera(0) = 1a(1) = 2a(2) = 3a(3) = 4arr aEnd SubPrivate Sub arr(ByRef arr() As Integer)Dim i As IntegerFor i = 0 To UBound(arr) Print arr(i);NextPrintEnd Sub