搜索

请大神做个EXCEL宏代码

5组0,1,2,3,4,5,6,7,8,9所有数字组成的10万组合,都有哪些!比如01235,算1个组合!
头像
663 次浏览2023.05.27 提问
20

最新回答(1条回答)

头像
2023.05.27 回答

Sub GenerateCombinations()

    Dim i As Integer, j As Integer, k As Integer

    Dim count As Integer

    For i = 0 To 9

        For j = i + 1 To 9

            For k = j + 1 To 9

                count = count + 1

                Debug.Print i & j & k & " "

                Next k

            Next j

        Next i

        Debug.Print "-------"

    Next i

    MsgBox "Total combinations: " & count

End Sub

抢首赞
置顶