请教如何将组合数字全部列出的问题！

roych

sxgaobo 发表于 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
    

复制代码

数组类型应该指定为变型，而不是整型。