请教求排列组合的程序该怎么写，谢谢大家！

gzminge

1，求33个数，按3个一组的排列组合；

2，求36个数，按3个一组的排列组合；
3，求80个数，按3个一组的排列组合；
请教程序该怎么写，谢谢大家！






新建 XLS 工作表.zip (6.96 KB, 下载次数: 6)

2024-5-4 23:11 上传

点击文件名下载附件

baofa2

1. Sub test0()
   
2.   Dim ar() As Long, i As Long, j As Long, k As Long, m As Long, n As Long
   
3.   m = 30
   
4.   ReDim ar(1 To WorksheetFunction.Combin(m, 3), 1 To 3)
   
5.   For i = 1 To m - 2
   
6.     For j = i + 1 To m - 1
   
7.       For k = j + 1 To m - 0
   
8.         n = n + 1
   
9.         ar(n, 1) = i
   
10.         ar(n, 2) = j
    
11.         ar(n, 3) = k
    
12.       Next
    
13.     Next
    
14.   Next
    
15.   Range("C1").Resize(n, UBound(ar, 2)) = ar
    
16. End Sub
    

复制代码

x-xx-xx

排列还是组合

chxw68

详见附件。

gwjkkkkk

组合？？？

gzminge

gwjkkkkk 发表于 2024-5-5 10:57
组合？？？

是的，如图中所示，求出所有的排列与组合。
如果是按4个数或者是5个数，怎么写程序？谢谢！

gzminge

x-xx-xx 发表于 2024-5-5 07:45
排列还是组合

是排列和组合，如图中所示，求出所有的排列与组合。
如果是按4个数或者是5个数，怎么写程序？谢谢！

gzminge

chxw68 发表于 2024-5-5 07:58
详见附件。

老师好，如果想要按5个数排组合，是不是把下面的K=3改成K=5 ，这样可以吗？

Sub test()
    Dim r&, i&, c&, j&, m&, n&, k&
    Dim arr, brr(), crr()
    With Worksheets("sheet1")
        For Each y In Array(1, 12, 23)
            r = .Cells(.Rows.count, y).End(xlUp).Row
            arr = .Cells(1, y).Resize(r, 1)
            k = 5
            ReDim brr(1 To 2, 1 To k)
            For j = 1 To UBound(brr, 2)
                brr(1, j) = j
                brr(2, j) = UBound(arr) - k + j
            Next
            s = Application.Combin(UBound(arr), k)
            ReDim crr(1 To s, 1 To k)
            For i = 1 To s
                For j = 1 To UBound(brr, 2)
                    crr(i, j) = arr(brr(1, j), 1)
                Next
                For j = k To 1 Step -1
                    If brr(1, j) < brr(2, j) Then
                        brr(1, j) = brr(1, j) + 1
                        For q = j + 1 To k
                            brr(1, q) = brr(1, q - 1) + 1
                        Next
                        Exit For
                    End If
                Next
            Next
            .Cells(1, y + 2).Resize(UBound(crr), UBound(crr, 2)) = crr
        Next
    End With
End Sub

yjh_27

gzminge 发表于 2024-5-5 14:47
是排列和组合，如图中所示，求出所有的排列与组合。
如果是按4个数或者是5个数，怎么写程序？谢谢！

n取m 自定义函数 随机 组合 排列 分组 分配
https://club.excelhome.net/thread-1526867-1-1.html
(出处: ExcelHome技术论坛)

ArrCP0 自定义函数  

gwjkkkkk

80个4个组合你的xls工作表都放不下。。。