急：0~9十位数的排列成10位．10位数中不能有重复的数字

放到文件里去：
Option Explicit

Dim A(9) As Integer
Dim I As Integer
Dim C As Double, S As String

Private Sub Form_Load()
Open "d:\JieGuo.txt" For Output As #1
A(0) = 0
Do While A(0) < 10
A(1) = 0
Do While A(1) < 10
If notCf(A(), 1) Then
A(2) = 0
Do While A(2) < 10
If notCf(A(), 2) Then
A(3) = 0
Do While A(3) < 10
If notCf(A(), 3) Then
A(4) = 0
Do While A(4) < 10
If notCf(A(), 4) Then
A(5) = 0
Do While A(5) < 10
If notCf(A(), 5) Then
A(6) = 0
Do While A(6) < 10
If notCf(A(), 6) Then
A(7) = 0
Do While A(7) < 10
If notCf(A(), 7) Then
A(8) = 0
Do While A(8) < 10
If notCf(A(), 8) Then
A(9) = 0
Do While A(9) < 10
If notCf(A(), 9) Then
S = ""
For I = 0 To 9
S = S + Trim(A(I))
Next
DoEvents
C = C + 1
Print #1, C; S
End If