一个排列问题

一个排列问题：
给定集合 {a,b,c}，其全排列为：
abc
acb
bac
bca
cab
cba

如何写一个程序，打印一个给定集合，如：
{'1','2','3','4','5','6','7'}

的全排列？

程序作者：y0h
<%
Dim Max,Str1
Dim sArray
Str1=","
sArray=Split("a,b,c,d,e,f,g,h",",")
Max=Ubound(sArray)
Test Max,Max,Str1

Function Test(Max,x,Str1)
     If x>=0 Then
           For I=0 to Max
                 If Instr(Str1,","&sArray(i)&",")=0 Then
                       Test Max,x-1,Str1&sArray(i)&","
                 End IF
           Next
     Else
           Response.Write(Str1&"<BR>")
     End IF
End Function
%>

本文地址：http://com.8s8s.com/it/it8724.htm