打印數組的全部排序

  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