求一个全排列的vb高效率程序。
我自己“编”了一个，是把一个pascal程序给“翻译”过来的。
感觉效率比较低。算0－9的全排列，居然会“没有响应”。
我晕啊！我可是打算计算0－20的全排列，岂不把我的爱机给拖累死？？
求求各位老大给个vb源代码。谢谢！！
我的程序：
'1、设A()数组为N个空盒可以放N个数，一开始A()全部为-1即都可以放
'2、设X()数组是每一次的排列，即X的长度为N
'3 ?TOTAL为累记总数
'N的全排列
Dim i, n As Integer
Dim x(0 To 9) As Integer
Dim a(0 To 9) As Integer
Sub printf() '{该过程用来打印输出一次排列}
Dim i As Integer
For i = 0 To n
Print Tab(3 * i + 3); x(i);
Next
Print
End Sub
Sub try(i As Integer) '{从第一个开始试着放}
Dim j As Integer '{J可以理解为每一次放的位置给X数组X}
For j = 0 To n
If a(j) = -1 Then
x(i) = j
a(j) = 1
If i < n Then
try (i + 1)
Else
printf
End If
a(j) = -1
End If
Next
End Sub
Private Sub Command1_Click()
total = 0
n = Val(InputBox("请输入n的数值"))
For i = 0 To n
a(i) = -1
Next
try (0)
Print
End Sub
Private Sub Command2_Click()
Cls
End Sub
nBJywl9j.rar
