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

sxgaobo

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

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, " ")
“无效的过程调用或参数！”
改MsgBox也不行，请高手帮忙看看如何修改可以吗？

sxgaobo

roych 发表于 2023-2-20 04:51
修改如下：
数组类型应该指定为变型，而不是整型。

搞定！谢谢高手出手