vb 数组函数倒置

一维数组
Private Sub Form_Load()
Dim ax(1 To 5) As Integer
For i = 1 To 5
ax(i) = i
Debug.Print ax(i);
Next
Debug.Print " "
Call zz(ax())
End Sub
Sub zz(bx() As Integer)
Dim xx(), i, q
i = UBound(bx)
ReDim xx(i)
For j = LBound(bx) To UBound(bx)
xx(UBound(bx) - q) = bx(j)
q = q + 1
Next
For k = LBound(xx) To UBound(xx)
Debug.Print xx(k);
Next