請教如何將組合數(shù)字全部列出的問題！

sxgaobo

1、2、3,二位組合有12、13、23
1、2、3、4、5，三位的組合有123、124、125、134、135、145、234、235、245、345等
請教！如何用代碼完全正確的列出？

Henry D. Sy

循環(huán)

admin

多個循環(huán)嵌套

sxgaobo

:(:o:(:o:(:o

sxgaobo

這是ChatGPT給的代碼：
Public Sub ListCombinations(n As Integer, m As Integer)
    Dim a() As Integer
    ReDim a(1 To m)
    Combination 1, n, a, 1, m
End Sub
Private Sub Combination(t As Integer, n As Integer, a() As Integer, k As Integer, m As Integer)
    Dim i As Integer
    If k > m Then
        Debug.Print Join(a, " ")
        Exit Sub
    End If
    For i = t To n
        a(k) = i
        Combination i + 1, n, a, k + 1, m
    Next i
End Sub
運行報錯！
       Debug.Print Join(a, " ")
“無效的過程調(diào)用或參數(shù)！”
改MsgBox也不行，請高手幫忙看看如何修改可以嗎？

roych

sxgaobo 發(fā)表于 2023-2-19 17:53
這是ChatGPT給的代碼：
Public Sub ListCombinations(n As Integer, m As Integer)
    Dim a() As Integ ...

修改如下：

1. Public Sub ListCombinations(n As Integer, m As Integer)
   
2.     Dim a() As Variant
   
3.     ReDim a(1 To m)
   
4.     Combination 1, n, a, 1, m
   
5. End Sub
   
6. Private Sub Combination(t As Integer, n As Integer, a() As Variant, k As Integer, m As Integer)
   
7.     Dim i As Integer
   
8.     If k > m Then
   
9.         Debug.Print Join(a, " ")
   
10.         Exit Sub
    
11.     End If
    
12.     For i = t To n
    
13.         a(k) = i
    
14.         Combination i + 1, n, a, k + 1, m
    
15.     Next i
    
16. End Sub
    
17. 
    
18. 
    
19. Sub test()
    
20.     ListCombinations 5, 3
    
21. End Sub
    

復(fù)制代碼

數(shù)組類型應(yīng)該指定為變型，而不是整型。

sxgaobo

roych 發(fā)表于 2023-2-20 04:51
修改如下：
數(shù)組類型應(yīng)該指定為變型，而不是整型。

搞定！謝謝高手出手