递归实现无重复组合

<%

'递归实现无重复组合

Dim aNum
aNum = Array("1","2","3","4")

Call Combination(0, aNum, "")

Function Combination(n_Cur, a_Num, s)
Dim i, bound
bound = UBound(a_Num)
If n_Cur > bound Then
Response.Write s & "<br />"
Exit Function
End If

For i = 0 To bound
If IsExists(s, a_Num(i)) = False Then
Call Combination(n_Cur+1, a_Num, s & a_Num(i))
End If
Next

End Function

Function IsExists(s_Parent, s_Sub)
If InStr(s_Parent, s_Sub) > 0 Then
IsExists = True
Else
IsExists = False
End If
End Function

%>