全排列是從給定的n個不同的數據里取n個元素生成的排列。
例1：字符集{7，3，5}，升序生成的所有全排列是：357，375，537，573，735，753，共6種。
例2：字符集{c,a,f,d}，升序生成的所有全排列是：acdf,acfd,adcf,adfc,afcd,afdc,cadf,cafd,cdaf,cdfa,cfad,cfda,dacf,dafc,dcaf,dcfa,dfac,dfca,facd,fadc,fcad,fcda,fdae,fdca,共24種。
n個字符可以生成n!種全排列。求出n個字符所有的全排列可以按下列算法進行：
①第一個全排列是所給字符升序連接產生的字符串。
②此后，在上一個排列中從右向左掃描找出第一次出現降序的位置j,將第j位之后的字符從右向左逐個與第j位的字符進行比較，找出第一個大于j位置字符的字符位置k,交換j和k位置上的字符，再將第j+1到n位的字符升序排序，產生當前全排列。
       例：假如前一種全排列是“13542”，從右往左掃描發現第一次出現降序是“35”，于是j=2，接著將第5位到第3位的字符逐個與第2位的“3”進行比較，最先發現“4”＞“3”，則交換“3”和“4”，變成“14532”，然后再將第3位到第5位的字符升序排序，最后求得當前全排列為“14235”
③重復第②步，直到產生所有的全排列。
       編寫VB程序實現上述功能，運行界面如圖所示。在文本框Text1中輸入升序排序的待排列字符（字符個數不超過9個），單擊“全排列”按鈕 Command 1后，在列表框List1中升序輸出所有的全排列。
（1）在文本框 TextI中輸入“13579”（不包括雙引號），則“51397”是升序輸出的所有全排列中的第      個全排列。（填數字）
（2）請在橫線處填入合適的代碼
Sub swap （a,b）
t=a：a=b：b=t
End Sub
Private Sub Command1_Click （　　）
Dim n As Integer,i As Integer,j As Integer
Dim k As Integer,d As Integer,m As Long
Dim c（1 To 9）As String
Dim a（1 To 500000）As String
s=Text1．Text：n=Len（s）：m=1：a（1）=s
For  i=1  To  n
c（i）=Mid（s,i,1）
Next i
For 1=1 To n
①
Next  i
For i=2To  m′求出第2～m種全排列
j=n-1
Do While j＞=1
If  c（j）＜c（j+1）Then
For  k=n  To j+1 Step-1
If ② Then Exit For
Next k
Swap c（k），c（j）
For k=③
For d=n To k+l Step-l
If c（d）＜c（k） Then swap c（d），c（k）
Next d
Next k
For k=1 To n′得到第i種全排列
a（i）=a（i）&c（k）
Next k
Exit do
End If
J=j-1
Loop
ext i
For i=I To m
List1．AddI tem  a（i）′升序輸出所有全排列
Next i
End Sub