求助：01-50以10个数字为组合

l595220820

数据量很大，有大神能教会我如何做出所有排列，或者用20个数字5个组合教会我做出所有排列的方法，可以支付报酬，谢谢了。

chaohuahch

最好能上传一个附件。来说明一下。

liulang0808

关键看楼主这20个数字，5个组合具体是有什么要求
如果20个不重复数字，有序组合，最后包含重复数据的话，可以使用5层for循环处理

所以建议楼主上传附件，结合附件说明具体要求

香川群子

liulang0808 发表于 2018-7-19 13:08
关键看楼主这20个数字，5个组合具体是有什么要求
如果20个不重复数字，有序组合，最后包含重复数据的话， ...

50选10的组合结果数=10272278170

即102亿。

这样大数量的组合结果，一般说毫无意义。

楼主属于那种没有数字概念的人。

提出这样的问题基本毫无价值。

输出全部组合结果将占用几个T的硬盘。

liulang0808

香川群子 发表于 2018-7-19 14:32
50选10的组合结果数=10272278170

即102亿。

楼主或许就是想了解思路，然后自己处理吧

zhenghui13

以前看书的时候模仿了一下，不知道是不是楼主想要的。

1. Const A = 10     '原始数据长度
   
2. Const L = 6     '定义排列的个数,
   
3. Const H = 210     'C(4,2)=6!/(3!*(6-3))!=720
   
4. Public Output(), nOut&, mOut&
   
5. Public arrList(), nList&   ',组合数组
   
6. Public arrComb(), iComb&   '原始数组
   
7. '用于解决不重复字符(字母+数字)的组合
   
8. '参考信息:
   
9. 'http://zh.wikipedia.org/wiki/%E7%B5%84%E5%90%88%E6%95%B8%E5%AD%B8
   
10. 'http://outofmemory.cn/code-snippet/4237/c-pailie-zuhe-suanfa
    
11. '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    
12. Sub CombList()
    
13. Dim t
    
14. ReDim arrComb(1 To A)     '总元素数组
    
15. ReDim arrList(1 To L)     '组合元素数组
    
16. ReDim Output(1 To H, 1 To L)   '用于存储组合
    
17. t = Timer
    
18. For iComb = 1 To A
    
19.    arrComb(iComb) = Sheet1.Cells(iComb, 1)   '原始数据读入数组
    
20. Next
    
21. nOut = 0    '初始化
    
22. Combine_2 A, L
    
23. Sheet2.[A1].Resize(nOut, L) = Output()
    
24. Debug.Print Timer - t
    
25. End Sub
    
26. '主程序
    
27. 'm为总元素数
    
28. 'n为组合元素数
    
29. Sub Combine_2(m, n)
    
30. Dim i&  '变量
    
31. If m < n Then Exit Sub  '总元素<组合元素
    
32. If n = 0 Then
    
33.    Exit Sub     '递归出口
    
34. End If
    
35. For i = m To n Step -1
    
36.   arrList(n) = arrComb(i)   '总元素写入组合
    
37.    If n > 1 Then            '判断是否是最后一个元素
    
38.         Combine_2 i - 1, n - 1  '调用递归
    
39.     Else
    
40.      nOut = nOut + 1
    
41.    '-----输出---------------------
    
42.      For mOut = 1 To UBound(arrList)
    
43.        Output(nOut, mOut) = arrList(mOut)
    
44.       Next
    
45.    End If
    
46. Next i
    
47. End Sub

复制代码

香川群子

zhenghui13 发表于 2018-7-19 15:23
以前看书的时候模仿了一下，不知道是不是楼主想要的。

经Stop检验，你代码中有2句是多余的。

If m < n Then Stop: Exit Sub '总元素<组合元素
If n = 0 Then Stop: Exit Sub '递归出口

代码运行时并没有产生Stop，说明这2句If判断不会被触发。

原因很简单，因为你的算法中已经排除了n=0的可能。
并且m当然不会<n

哈哈。

另外，发现你的输出结果，并非字典顺序，（即不是从小到大的自然排序）
而是反过来的。

这个其实可以在输出时纠正过来。
例如，当组合元素都是数字序号时，可以直接改成：
Output(nOut, L - mOut + 1) = A - arrList(mOut) + 1

但如果是文本或不是自然数序号，那就还需转换。

另外一个缺点是：
反复进入进出递归，效率肯定不如内循环。

总的来说，这个算法还是可以达到效果的，而且递归的过程也很简单。

zhenghui13

香川群子 发表于 2018-7-19 17:07
经Stop检验，你代码中有2句是多余的。

If m < n Then Stop: Exit Sub '总元素

谢谢指正，我是看书然后照抄的，实际上有一些还是不太理解。