全排列是从给定的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