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
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