如何用Excel表格自动计算出双色球所有的排列组合

Question

如何用Excel表格自动计算出双色球所有的排列组合 发邮箱也可以 别发乱七八糟的东西哈 拜托 [email protected]

Answer 1

Sub musub()

    Dim caseArray(3) As String

    caseArray(0) = "A"

    caseArray(1) = "B"

    caseArray(2) = "C"

    caseArray(3) = "D"

    Dim rowNum As Integer

    For i = 1 To 4

        For j = 1 To 4

            For k = 1 To 4

                For l = 1 To 4

                    rowNum = rowNum + 1

                    Cells(rowNum, 1) = "情形" & CStr(rowNum)

                    Cells(rowNum, 2) = caseArray(i - 1)

                    Cells(rowNum, 3) = caseArray(j - 1)

                    Cells(rowNum, 4) = caseArray(k - 1)

                    Cells(rowNum, 5) = caseArray(l - 1)

                Next l

            Next k

        Next j

    Next i

End Sub

Answer 2

没办法自动，只能自己动手排列。差不多半个月就可以排好。我边上班边排两天把开头为1的所有组合排下来了。后面Excel表格需要开会员我就没继续排了

Answer 3

没必要，实在要排就用软件排吧，比如双色球大赢家就可以，一定要用Excel表格的话，把大赢家结果导入Excel表格吧，非要用Excel表格应该也能做到，但方法很笨的，不提倡

Answer 4

双色球21055期6十1

Answer 5

18698803200种可能，排出来有何意义？追问

就想排出来看到的全面