求12个数选5个数所有组合 要求全部列出来。用word或excel!!

如题所述

汗,字符太长 写不开了
推荐matlab吧
假如 在1-12 的数字中 列出5个的任意组合
只需要 nchoosek(1:12,5)
如果是12个其它项次 就新建A
nchoosek(A,5)
1 2 3 4 5
1 2 3 4 6
1 2 3 4 7
1 2 3 4 8
1 2 3 4 9
1 2 3 4 10
1 2 3 4 11
1 2 3 4 12
1 2 3 5 6
1 2 3 5 7
1 2 3 5 8
1 2 3 5 9
1 2 3 5 10
1 2 3 5 11
1 2 3 5 12
1 2 3 6 7
1 2 3 6 8
1 2 3 6 9
1 2 3 6 10
1 2 3 6 11
1 2 3 6 12
1 2 3 7 8
1 2 3 7 9
1 2 3 7 10
1 2 3 7 11
1 2 3 7 12
1 2 3 8 9
1 2 3 8 10
1 2 3 8 11
1 2 3 8 12
1 2 3 9 10
1 2 3 9 11
1 2 3 9 12
1 2 3 10 11
1 2 3 10 12
1 2 3 11 12
1 2 4 5 6
1 2 4 5 7
1 2 4 5 8
1 2 4 5 9
1 2 4 5 10
1 2 4 5 11
1 2 4 5 12
1 2 4 6 7
1 2 4 6 8
1 2 4 6 9
1 2 4 6 10
1 2 4 6 11
1 2 4 6 12
1 2 4 7 8
1 2 4 7 9
1 2 4 7 10
1 2 4 7 11
1 2 4 7 12
1 2 4 8 9
1 2 4 8 10
1 2 4 8 11
1 2 4 8 12
1 2 4 9 10
1 2 4 9 11
1 2 4 9 12
1 2 4 10 11
1 2 4 10 12
1 2 4 11 12
1 2 5 6 7
1 2 5 6 8
1 2 5 6 9
1 2 5 6 10
1 2 5 6 11
1 2 5 6 12
1 2 5 7 8
1 2 5 7 9
1 2 5 7 10
1 2 5 7 11
1 2 5 7 12
1 2 5 8 9
1 2 5 8 10
1 2 5 8 11
1 2 5 8 12
1 2 5 9 10
1 2 5 9 11
1 2 5 9 12
1 2 5 10 11
1 2 5 10 12
1 2 5 11 12
1 2 6 7 8
1 2 6 7 9
1 2 6 7 10
1 2 6 7 11
1 2 6 7 12
1 2 6 8 9
1 2 6 8 10
1 2 6 8 11
1 2 6 8 12
1 2 6 9 10
1 2 6 9 11
1 2 6 9 12
1 2 6 10 11
1 2 6 10 12
1 2 6 11 12
1 2 7 8 9
1 2 7 8 10
1 2 7 8 11
1 2 7 8 12
1 2 7 9 10
1 2 7 9 11
1 2 7 9 12
1 2 7 10 11
1 2 7 10 12
1 2 7 11 12
1 2 8 9 10
1 2 8 9 11
1 2 8 9 12
1 2 8 10 11
1 2 8 10 12
1 2 8 11 12
1 2 9 10 11
1 2 9 10 12
1 2 9 11 12
1 2 10 11 12
1 3 4 5 6
1 3 4 5 7
1 3 4 5 8
1 3 4 5 9
1 3 4 5 10
1 3 4 5 11
1 3 4 5 12
1 3 4 6 7
1 3 4 6 8
1 3 4 6 9
1 3 4 6 10
1 3 4 6 11
1 3 4 6 12
1 3 4 7 8
1 3 4 7 9
1 3 4 7 10
1 3 4 7 11
1 3 4 7 12
1 3 4 8 9
1 3 4 8 10
1 3 4 8 11
1 3 4 8 12
1 3 4 9 10
1 3 4 9 11
1 3 4 9 12
1 3 4 10 11
1 3 4 10 12
1 3 4 11 12
1 3 5 6 7
1 3 5 6 8
1 3 5 6 9
1 3 5 6 10
1 3 5 6 11
1 3 5 6 12
1 3 5 7 8
1 3 5 7 9
1 3 5 7 10
1 3 5 7 11
1 3 5 7 12
1 3 5 8 9
1 3 5 8 10
1 3 5 8 11
1 3 5 8 12
1 3 5 9 10
1 3 5 9 11
1 3 5 9 12
1 3 5 10 11
1 3 5 10 12
1 3 5 11 12
1 3 6 7 8
1 3 6 7 9
1 3 6 7 10
1 3 6 7 11
1 3 6 7 12
1 3 6 8 9
1 3 6 8 10
1 3 6 8 11
1 3 6 8 12
1 3 6 9 10
1 3 6 9 11
1 3 6 9 12
1 3 6 10 11
1 3 6 10 12
1 3 6 11 12
1 3 7 8 9
1 3 7 8 10
1 3 7 8 11
1 3 7 8 12
1 3 7 9 10
1 3 7 9 11
1 3 7 9 12
1 3 7 10 11
1 3 7 10 12
1 3 7 11 12
1 3 8 9 10
1 3 8 9 11
1 3 8 9 12
1 3 8 10 11
1 3 8 10 12
1 3 8 11 12
1 3 9 10 11
1 3 9 10 12
1 3 9 11 12
1 3 10 11 12
1 4 5 6 7
1 4 5 6 8
1 4 5 6 9
1 4 5 6 10
1 4 5 6 11
1 4 5 6 12
1 4 5 7 8
1 4 5 7 9
1 4 5 7 10
1 4 5 7 11
1 4 5 7 12
1 4 5 8 9
1 4 5 8 10
1 4 5 8 11
1 4 5 8 12
1 4 5 9 10
1 4 5 9 11
1 4 5 9 12
1 4 5 10 11
1 4 5 10 12
1 4 5 11 12
1 4 6 7 8
1 4 6 7 9
1 4 6 7 10
1 4 6 7 11
1 4 6 7 12
1 4 6 8 9
1 4 6 8 10
1 4 6 8 11
1 4 6 8 12
1 4 6 9 10
1 4 6 9 11
1 4 6 9 12
1 4 6 10 11
1 4 6 10 12
1 4 6 11 12
1 4 7 8 9
1 4 7 8 10
1 4 7 8 11
1 4 7 8 12
1 4 7 9 10
1 4 7 9 11
1 4 7 9 12
1 4 7 10 11
1 4 7 10 12
1 4 7 11 12
1 4 8 9 10
1 4 8 9 11
1 4 8 9 12
1 4 8 10 11
1 4 8 10 12
1 4 8 11 12
1 4 9 10 11
1 4 9 10 12
1 4 9 11 12
1 4 10 11 12
1 5 6 7 8
1 5 6 7 9
1 5 6 7 10
1 5 6 7 11
1 5 6 7 12
1 5 6 8 9
1 5 6 8 10
1 5 6 8 11
1 5 6 8 12
1 5 6 9 10
1 5 6 9 11
1 5 6 9 12
1 5 6 10 11
1 5 6 10 12
1 5 6 11 12
1 5 7 8 9
1 5 7 8 10
1 5 7 8 11
1 5 7 8 12
1 5 7 9 10
1 5 7 9 11
1 5 7 9 12
1 5 7 10 11
1 5 7 10 12
1 5 7 11 12
1 5 8 9 10
1 5 8 9 11
1 5 8 9 12
1 5 8 10 11
1 5 8 10 12
1 5 8 11 12
1 5 9 10 11
1 5 9 10 12
1 5 9 11 12
1 5 10 11 12
1 6 7 8 9
1 6 7 8 10
1 6 7 8 11
1 6 7 8 12
1 6 7 9 10
1 6 7 9 11
1 6 7 9 12
1 6 7 10 11
1 6 7 10 12
1 6 7 11 12
1 6 8 9 10
1 6 8 9 11
1 6 8 9 12
1 6 8 10 11
1 6 8 10 12
1 6 8 11 12
1 6 9 10 11
1 6 9 10 12
1 6 9 11 12
1 6 10 11 12
1 7 8 9 10
1 7 8 9 11
1 7 8 9 12
1 7 8 10 11
1 7 8 10 12
1 7 8 11 12
1 7 9 10 11
1 7 9 10 12
1 7 9 11 12
1 7 10 11 12
1 8 9 10 11
1 8 9 10 12
1 8 9 11 12
1 8 10 11 12
1 9 10 11 12
2 3 4 5 6
2 3 4 5 7
2 3 4 5 8
2 3 4 5 9
2 3 4 5 10
2 3 4 5 11
2 3 4 5 12
2 3 4 6 7
2 3 4 6 8
2 3 4 6 9
2 3 4 6 10
2 3 4 6 11
2 3 4 6 12
2 3 4 7 8
2 3 4 7 9
2 3 4 7 10
2 3 4 7 11
2 3 4 7 12
2 3 4 8 9
2 3 4 8 10
2 3 4 8 11
2 3 4 8 12
2 3 4 9 10
2 3 4 9 11
2 3 4 9 12
2 3 4 10 11
2 3 4 10 12
2 3 4 11 12
2 3 5 6 7
2 3 5 6 8
2 3 5 6 9
2 3 5 6 10
2 3 5 6 11
2 3 5 6 12
2 3 5 7 8
2 3 5 7 9
2 3 5 7 10
2 3 5 7 11
2 3 5 7 12
2 3 5 8 9
2 3 5 8 10
2 3 5 8 11
2 3 5 8 12
2 3 5 9 10
2 3 5 9 11
2 3 5 9 12
2 3 5 10 11
2 3 5 10 12
2 3 5 11 12
2 3 6 7 8
2 3 6 7 9
2 3 6 7 10
2 3 6 7 11
2 3 6 7 12
2 3 6 8 9
2 3 6 8 10
2 3 6 8 11
2 3 6 8 12
2 3 6 9 10
2 3 6 9 11
2 3 6 9 12
2 3 6 10 11
2 3 6 10 12
2 3 6 11 12
2 3 7 8 9
2 3 7 8 10
2 3 7 8 11
2 3 7 8 12
2 3 7 9 10
2 3 7 9 11
2 3 7 9 12
2 3 7 10 11
2 3 7 10 12
2 3 7 11 12
2 3 8 9 10
2 3 8 9 11
2 3 8 9 12
2 3 8 10 11
2 3 8 10 12
2 3 8 11 12
2 3 9 10 11
2 3 9 10 12
2 3 9 11 12
2 3 10 11 12
2 4 5 6 7
2 4 5 6 8
2 4 5 6 9
2 4 5 6 10
2 4 5 6 11
2 4 5 6 12
2 4 5 7 8
2 4 5 7 9
2 4 5 7 10
2 4 5 7 11
2 4 5 7 12
2 4 5 8 9
2 4 5 8 10
2 4 5 8 11
2 4 5 8 12
2 4 5 9 10
2 4 5 9 11
2 4 5 9 12
2 4 5 10 11
2 4 5 10 12
2 4 5 11 12
2 4 6 7 8
2 4 6 7 9
2 4 6 7 10
2 4 6 7 11
2 4 6 7 12
2 4 6 8 9
2 4 6 8 10
2 4 6 8 11
2 4 6 8 12
2 4 6 9 10
2 4 6 9 11
2 4 6 9 12
2 4 6 10 11
2 4 6 10 12
2 4 6 11 12
2 4 7 8 9
2 4 7 8 10
2 4 7 8 11
2 4 7 8 12
2 4 7 9 10
2 4 7 9 11
2 4 7 9 12
2 4 7 10 11
2 4 7 10 12
2 4 7 11 12
2 4 8 9 10
2 4 8 9 11
2 4 8 9 12
2 4 8 10 11
2 4 8 10 12
2 4 8 11 12
2 4 9 10 11
2 4 9 10 12
2 4 9 11 12
2 4 10 11 12
2 5 6 7 8
2 5 6 7 9
2 5 6 7 10
2 5 6 7 11
2 5 6 7 12
2 5 6 8 9
2 5 6 8 10
2 5 6 8 11
2 5 6 8 12
2 5 6 9 10
2 5 6 9 11
2 5 6 9 12
2 5 6 10 11
2 5 6 10 12
2 5 6 11 12
2 5 7 8 9
2 5 7 8 10
2 5 7 8 11
2 5 7 8 12
2 5 7 9 10
2 5 7 9 11
2 5 7 9 12
2 5 7 10 11
2 5 7 10 12
2 5 7 11 12
2 5 8 9 10
2 5 8 9 11
2 5 8 9 12
2 5 8 10 11
2 5 8 10 12
2 5 8 11 12
2 5 9 10 11
2 5 9 10 12
2 5 9 11 12
2 5 10 11 12
2 6 7 8 9
2 6 7 8 10
2 6 7 8 11
2 6 7 8 12
2 6 7 9 10
2 6 7 9 11
2 6 7 9 12
2 6 7 10 11
2 6 7 10 12
2 6 7 11 12
2 6 8 9 10
2 6 8 9 11
2 6 8 9 12
2 6 8 10 11
2 6 8 10 12
2 6 8 11 12
2 6 9 10 11
2 6 9 10 12
2 6 9 11 12
2 6 10 11 12
2 7 8 9 10
2 7 8 9 11
2 7 8 9 12
2 7 8 10 11
2 7 8 10 12
2 7 8 11 12
2 7 9 10 11
2 7 9 10 12
2 7 9 11 12
2 7 10 11 12
2 8 9 10 11
2 8 9 10 12
2 8 9 11 12
2 8 10 11 12
2 9 10 11 12
3 4 5 6 7
3 4 5 6 8
3 4 5 6 9
3 4 5 6 10
3 4 5 6 11
3 4 5 6 12
3 4 5 7 8
3 4 5 7 9
3 4 5 7 10
3 4 5 7 11
3 4 5 7 12
3 4 5 8 9
3 4 5 8 10
3 4 5 8 11
3 4 5 8 12
3 4 5 9 10
3 4 5 9 11
3 4 5 9 12
3 4 5 10 11
3 4 5 10 12
3 4 5 11 12
3 4 6 7 8
3 4 6 7 9
3 4 6 7 10
3 4 6 7 11
3 4 6 7 12
3 4 6 8 9
3 4 6 8 10
3 4 6 8 11
3 4 6 8 12
3 4 6 9 10
3 4 6 9 11
3 4 6 9 12
3 4 6 10 11
3 4 6 10 12
3 4 6 11 12
3 4 7 8 9
3 4 7 8 10
3 4 7 8 11
3 4 7 8 12
3 4 7 9 10
3 4 7 9 11
3 4 7 9 12
3 4 7 10 11
3 4 7 10 12
3 4 7 11 12
3 4 8 9 10
3 4 8 9 11
3 4 8 9 12
3 4 8 10 11
3 4 8 10 12
3 4 8 11 12
3 4 9 10 11
3 4 9 10 12
3 4 9 11 12
3 4 10 11 12
3 5 6 7 8
3 5 6 7 9
3 5 6 7 10
3 5 6 7 11
3 5 6 7 12
3 5 6 8 9
3 5 6 8 10
3 5 6 8 11
3 5 6 8 12
3 5 6 9 10
3 5 6 9 11
3 5 6 9 12
3 5 6 10 11
3 5 6 10 12
3 5 6 11 12
3 5 7 8 9
3 5 7 8 10
3 5 7 8 11
3 5 7 8 12
3 5 7 9 10
3 5 7 9 11
3 5 7 9 12
3 5 7 10 11
3 5 7 10 12
3 5 7 11 12
3 5 8 9 10
3 5 8 9 11
3 5 8 9 12
3 5 8 10 11
3 5 8 10 12
3 5 8 11 12
3 5 9 10 11
3 5 9 10 12
3 5 9 11 12
3 5 10 11 12
3 6 7 8 9
3 6 7 8 10
3 6 7 8 11
3 6 7 8 12
3 6 7 9 10
3 6 7 9 11
3 6 7 9 12
3 6 7 10 11
3 6 7 10 12
3 6 7 11 12
3 6 8 9 10
3 6 8 9 11
3 6 8 9 12
3 6 8 10 11
3 6 8 10 12
3 6 8 11 12
3 6 9 10 11
3 6 9 10 12
3 6 9 11 12
3 6 10 11 12
3 7 8 9 10
3 7 8 9 11
3 7 8 9 12
3 7 8 10 11
3 7 8 10 12
3 7 8 11 12
3 7 9 10 11
3 7 9 10 12
3 7 9 11 12
3 7 10 11 12
3 8 9 10 11
3 8 9 10 12
3 8 9 11 12
3 8 10 11 12
3 9 10 11 12
4 5 6 7 8
4 5 6 7 9
4 5 6 7 10
4 5 6 7 11
4 5 6 7 12
4 5 6 8 9
4 5 6 8 10
4 5 6 8 11
4 5 6 8 12
4 5 6 9 10
4 5 6 9 11
4 5 6 9 12
4 5 6 10 11
4 5 6 10 12
4 5 6 11 12
4 5 7 8 9
4 5 7 8 10
4 5 7 8 11
4 5 7 8 12
4 5 7 9 10
4 5 7 9 11
4 5 7 9 12
4 5 7 10 11
4 5 7 10 12
4 5 7 11 12
4 5 8 9 10
4 5 8 9 11
4 5 8 9 12
4 5 8 10 11
4 5 8 10 12
4 5 8 11 12
4 5 9 10 11
4 5 9 10 12
4 5 9 11 12
4 5 10 11 12
4 6 7 8 9
4 6 7 8 10
4 6 7 8 11
4 6 7 8 12
4 6 7 9 10
4 6 7 9 11
4 6 7 9 12
4 6 7 10 11
4 6 7 10 12
4 6 7 11 12
4 6 8 9 10
4 6 8 9 11
4 6 8 9 12
4 6 8 10 11
4 6 8 10 12
4 6 8 11 12
4 6 9 10 11
4 6 9 10 12
4 6 9 11 12
4 6 10 11 12
4 7 8 9 10
4 7 8 9 11
4 7 8 9 12
4 7 8 10 11
4 7 8 10 12
4 7 8 11 12
4 7 9 10 11
4 7 9 10 12
4 7 9 11 12
4 7 10 11 12
4 8 9 10 11
4 8 9 10 12
4 8 9 11 12
4 8 10 11 12
4 9 10 11 12
5 6 7 8 9
5 6 7 8 10
5 6 7 8 11
5 6 7 8 12
5 6 7 9 10
5 6 7 9 11
5 6 7 9 12
5 6 7 10 11
5 6 7 10 12
5 6 7 11 12
5 6 8 9 10
5 6 8 9 11
5 6 8 9 12
5 6 8 10 11
5 6 8 10 12
5 6 8 11 12
5 6 9 10 11
5 6 9 10 12
5 6 9 11 12
5 6 10 11 12
5 7 8 9 10
5 7 8 9 11
5 7 8 9 12
5 7 8 10 11
5 7 8 10 12
5 7 8 11 12
5 7 9 10 11
5 7 9 10 12
5 7 9 11 12
5 7 10 11 12
5 8 9 10 11
5 8 9 10 12
5 8 9 11 12
5 8 10 11 12
5 9 10 11 12
6 7 8 9 10
6 7 8 9 11
6 7 8 9 12
6 7 8 10 11
6 7 8 10 12
6 7 8 11 12
6 7 9 10 11
6 7 9 10 12
6 7 9 11 12
6 7 10 11 12
6 8 9 10 11
6 8 9 10 12
6 8 9 11 12
6 8 10 11 12
6 9 10 11 12
7 8 9 10 11
7 8 9 10 12
7 8 9 11 12
7 8 10 11 12
7 9 10 11 12
8 9 10 11 12
温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-09-15
有792个组合。
第2个回答  2012-09-16
不知道我理解的对不对
新建一个excel工作薄,在工作表名称上点鼠标右键,在弹出的VBA编辑窗口中粘贴下面代码.关闭VBA编辑窗口,回到工作表界面,按ALT+F8选定该宏执行.

排列规则1:(792种组合)
每次从12个数中随机顺序选5个数,数字不重复,每个数的顺序不可变
代码如下:
Sub my12选5()
Dim arr, brr()
Dim i&, j&, k&, l&, m&, x&
a = CLng(12 * 11 * 10 * 9) * 8 / (5 * 4 * 3 * 2 * 1)
ReDim brr(1 To a, 1 To 5)
InNum = InputBox("请输入12个数(以,隔开)", "输入", "1,2,3,4,5,6,7,8,9,10,11,12")
If InNum = "" Then Exit Sub
arr = Split(InNum, ",")
For i = 0 To UBound(arr)
For j = i + 1 To UBound(arr)
For k = j + 1 To UBound(arr)
For l = k + 1 To UBound(arr)
For m = l + 1 To UBound(arr)
x = x + 1
brr(x, 1) = arr(i)
brr(x, 2) = arr(j)
brr(x, 3) = arr(k)
brr(x, 4) = arr(l)
brr(x, 5) = arr(m)
Next
Next
Next
Next
Next
[a1].Resize(a, 5) = brr
End Sub

排列规则2:(120种组合)

12 个数中随机选出5个不重复的数,然后排列出这5个数的所有不重复的组合.(每个数顺序可变)
代码如下:
Sub My12to5()
Dim arr(), tarr(1 To 5)
Set dic = CreateObject("Scripting.Dictionary")
Set d = CreateObject("Scripting.Dictionary")
Set ndic = CreateObject("Scripting.Dictionary")
InNum = InputBox("请输入12个数(以,隔开)", "输入", "1,2,3,4,5,6,7,8,9,10,11,12")
If InNum = "" Then Exit Sub
arr1 = Split(InNum, ",")
Do
x = Int(Rnd() * 11 + 1)
ndic(arr1(x)) = ndic(arr1(x)) + 1
Loop While ndic.Count < 5
rndarr = ndic.keys
For n1 = 0 To 4
tarr(1) = n1
For n2 = 0 To 4
tarr(2) = n2
For n3 = 0 To 4
tarr(3) = n3
For n4 = 0 To 4
tarr(4) = n4
For n5 = 0 To 4
tarr(5) = n5
For i = 1 To 5
d(tarr(i)) = d(tarr(i)) + 1
If d.Count = 5 Then
k = Join(d.keys, ",")
dic(k) = dic(k) + 1
d.RemoveAll
End If
Next i, n5, n4, n3, n2, n1
For Each p In dic.keys
h = h + 1
narr = Split(p, ",")
Range("A" & h).Resize(1, 5) = Array(rndarr(narr(0)), rndarr(narr(1)), rndarr(narr(2)), rndarr(narr(3)), rndarr(narr(4)))
Next
End Sub
第3个回答  2012-09-15
你这个要vba,我前两天刚给一个人写了个ExcelVBA,十几个数选6个的,有兴趣要吗
相似回答