打印數組的全部排序

Dim f As String
Sub printstr(s() As String )
Dim s2() As String ,k As String
If UBound (s) - LBound (s) = 0 Then
Printf & " " & s( LBound (s))
Else
For i = LBound (s) To UBound (s)

ReDim s2( LBound (s) To UBound (s) - 1 )
For j = LBound (s) To UBound (s) - 1
If j < i Then
s2(j) = s(j)
Else
s2(j) = s(j + 1 )
End If
Next
k = f
f = f & " " & s(i)
printstrs2
f = k
Next
End If
EndSub