怎么把1,2,3,4,5,6,7,8两两一组,分成四组的所有结果列出来

来源：百度知道 编辑：UC知道 时间：2024/05/26 14:26:23
如题,我想得到这八个数的所有分组情况
如:1,2;3,4;5,6;7,8
1,3;2,4;5,6;7,8
......
只要能得出分组的所有结果,不介意用形式表示
求一段VB代码

谢谢各位大侠
我要的不是Cmn或Pmn的结果

而是Cm2 * C(m-2)2 * ... C2(2)/P(m/2)(m/2)的结果

注:Pmn和Amn是一样的,全排列的意思,各个地方表示方法不太一样

这里的就是C8(2)*C6(2)*C4(2)*C2(2)/P4(4)的具体结果

就是先分组,然后再消除顺序,得出一个没有重复的各种不同的分组情况列表

粘贴进去就可以用 但组合太多有些卡 应该还可以跟简便
由于时间关系没来的及精简语言 望见谅 不过绝对正确
Private Sub Command1_Click()
For a = 1 To 8
For b = 1 To 8
For c = 1 To 8
For d = 1 To 8
For e = 1 To 8
For f = 1 To 8
For g = 1 To 8
For h = 1 To 8
If a <> b And a <> c And a <> d And a <> e And a <> f And a <> g And g <> h And b <> a And b <> c And b <> d And b <> e And b <> f And b <> g And b <> h And c <> a And c <> b And c <> d And c <> e And c <> f And c <> g And c <> h And d <> a And d <> b And d <> c And d <> e And d <> f And d <> g And d <> h And e <> a And e <> b And e <> c And e <> d And e <> f And e <> g And e <> h And f <> a And f <> b And f <> c And f <> d And f <> e And f <> g And f <> h And g <> a And g <