打印數組的全部排序

 Dim f As String
  Sub printstr(s() As String)
    Dim s2() As String, k As String
    If UBound(s) - LBound(s) = 0 Then
        Print f & " " & 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)
            printstr s2
            f = k
        Next
    End If
End Sub