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

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

双色球纯概率事件，攻略仅供参考，莫迷信。

《双色球Excel全攻略》收录了截至2010年元月3日共980期Excel格式的完整历史号码数据，通过Excel第一次实现了双色球和值、奇偶搭配、质合搭配、三区间分布、连号、重号，以及间距和、AC值、散度、偏度、中心位置、几何图形12个传统指标的自动计算。

书中不但有很多双色球分析指标的创新，还公开了全部实用模型的Excel公式源码。

《双色球Excel全攻略》从实用性出发，贴近实战，通俗易懂，数据详实，图文并茂，既可以作为与光盘文件相配套的完全攻略手册，也可以单独作为广大彩民投注时的参考工具书。

10以上带圈数字的输入方法，目前我所知的只能输入到20，方法如下：

1．菜单栏：插入——符号

2．字体下拉列表中选择“MS Gothic”(MS Mingho；MS Pgothic；MS PMincho亦可)；

3．子集列表中选择“带括号的字母数字”

4．11~20的带圈字就出现在你眼前，插入就行了：）

451254254561241444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444