算法问题，向各位仁兄请教

Question

0 ～ 9 这10个数字用怎么样的算法可以，把它们不同的排列顺序全体现出来呢？ 在线等 ，这关系一个数字作业。我的算法，也许有问题，没把题做出来。请用 vbscript 语法就好：）
再送您两个过程 sub printthis '打印出这十个数字
Response.write "<br>"
for i=0 to 9
  response.write number(i)
next
Response.write "<br>"
end subsub formatnumber '将数字重设为0123456789
for i=0 to 9
  number(i) = i
next
end sub
dim number(9) '数组'下面的，就看您的啦

Answer 1

    用SQL语句，一句话搞定。既简单又快速。

Answer 2

Private Sub Command1_Click()
paixu 9
End SubSub paixu(ByVal n As Integer)
n = n + 1
Dim I As Integer, J As Integer
Dim a() As Integer, b() As Integer, c() As String
ReDim a(n)
ReDim b(n)
ReDim c(n - 1)
I = 1
a(0) = 1
Do While I <= n + 1
   a(I) = a(I) + 1
 If a(I) <= n Then
      If b(a(I)) = 0 Then
          If I = n Then
             For J = 0 To n - 1
             c(J) = a(J + 1) - 1
             Next
               Debug.Print Join(c, " ") & vbCrLf
             I = I - 1
             b(a(I)) = 0
           Else
             b(a(I)) = 1
             I = I + 1
             a(I) = 0
        End If
    End If
 Else
      I = I - 1
      If I = 0 Then Exit Do
      b(a(I)) = 0
   End If
Loop
Erase a
Erase b
Erase c
End Sub