求排列组合代码
13579 把这个数，组成一个百位数，用什么公式能得到所有组合
135
137
139
这样的
问题点数：50、回复次数：12Top
1 楼gjclown（透明姐姐）回复于 2006-06-02 12:55:55 得分 0
markTop
2 楼gjclown（透明姐姐）回复于 2006-06-02 13:01:28 得分 0
<%
dim num
num=13579
dim Arr
dim m,n,o
redim Arr(len(num))
for m=1 to len(num)
Arr(m)=mid(num,m,1)
next
for m=1 to ubound(Arr)-2
for n=m+1 to ubound(Arr)-1
for o=n+1 to ubound(Arr)
response.Write(Arr(m) & Arr(n) & Arr(o) & "<br />")
next
next
next
response.End()
%>Top
3 楼gjclown（透明姐姐）回复于 2006-06-02 13:02:06 得分 0
不对。。。Top
4 楼RyanLove（星满天）回复于 2006-06-02 13:06:03 得分 0
关注Top
5 楼gjclown（透明姐姐）回复于 2006-06-02 13:06:10 得分 0
<%
dim num
num=13579
dim Arr
dim m,n,o
redim Arr(len(num))
for m=1 to len(num)
Arr(m)=mid(num,m,1)
next
for m=1 to ubound(Arr)
for n=1 to ubound(Arr)
for o=1 to ubound(Arr)
if m<>n and m<>o and n<>o then
response.Write(Arr(m) & Arr(n) & Arr(o) & "<br />")
end if
next
next
next
%>Top
6 楼gjclown（透明姐姐）回复于 2006-06-02 13:06:33 得分 40
这次行了。Top
7 楼asp133（）回复于 2006-06-02 13:32:57 得分 0
gjclown 帮看看，我想要这样的结果。
大约是：
第一组 13579
第二组 13579
第三组 13579
这三组的全排：应该是有100多年三位组合。
9 9 9
9 9 7
9 9 5
9 9 3
9 9 1
9 7 9
9 7 7
9 7 5
9 7 3
9 7 1
9 5 9
9 5 7
9 5 5
9 5 3
9 5 1
9 3 9
9 3 7
9 3 5
9 3 3
9 3 1
9 1 9
9 1 7
9 1 5
9 1 3
9 1 1
7 9 9
7 9 7
7 9 5
7 9 3
7 9 1
7 7 9
7 7 7
7 7 5
7 7 3
7 7 1
7 5 9
7 5 7
7 5 5
7 5 3
7 5 1
7 3 9
7 3 7
7 3 5
7 3 3
7 3 1
7 1 9
7 1 7
7 1 5
7 1 3
7 1 1
5 9 9
5 9 7
5 9 5
5 9 3
5 9 1
5 7 9
5 7 7
5 7 5
5 7 3
5 7 1
5 5 9
5 5 7
5 5 5
5 5 3
5 5 1
5 3 9
5 3 7
5 3 5
5 3 3
5 3 1
5 1 9
5 1 7
5 1 5
5 1 3
5 1 1
3 9 9
3 9 7
3 9 5
3 9 3
3 9 1
3 7 9
3 7 7
3 7 5
3 7 3
3 7 1
3 5 9
3 5 7
3 5 5
3 5 3
3 5 1
3 3 9
3 3 7
3 3 5
3 3 3
3 3 1
3 1 9
3 1 7
3 1 5
3 1 3
3 1 1
1 9 9
1 9 7
1 9 5
1 9 3
1 9 1
1 7 9
1 7 7
1 7 5
1 7 3
1 7 1
1 5 9
1 5 7
1 5 5
1 5 3
1 5 1
1 3 9
1 3 7
1 3 5
1 3 3
1 3 1
1 1 9
1 1 7
1 1 5
1 1 3
1 1 1
Top
8 楼asp133（）回复于 2006-06-02 13:34:01 得分 0
100多个 三位组合。Top
9 楼s1ihome（My hometown is a beautiful village）回复于 2006-06-02 13:38:14 得分 10
排列组合全忘光了:(
按照楼主想法的话就是5*5*5=125种组合了，你全部输出来就可以了
arr=Array(1,3,5,7,9)
For m=0 to 4
For n=0 to 4
For o=0 to 4
response.Write(Arr(m) & Arr(n) & Arr(o) & "<br />")
i=i+1
Next
Next
Next
response.write iTop
10 楼gjclown（透明姐姐）回复于 2006-06-02 13:44:56 得分 0
<%
dim num
num=13579
dim Arr
dim m,n,o
redim Arr(len(num))
for m=1 to len(num)
Arr(m)=mid(num,m,1)
next
for m=1 to ubound(Arr)
for n=1 to ubound(Arr)
for o=1 to ubound(Arr)
response.Write(Arr(m) & Arr(n) & Arr(o) & "<br />")
next
next
next
%>
有100多个吗。。。我没数。什么叫三组全排？我的结果好像是和你的差不多了Top
11 楼zhengjianchao（）回复于 2006-06-02 13:49:22 得分 0
半分钟 - 广告 - 大优惠
本人出售优惠空间
一M一年一元,什么都支持!想要的加我QQ29492822,说明来意!Top
12 楼INOCracker（大家知）回复于 2006-06-02 15:17:07 得分 0
唔唔~~Top
