【资料名称】：啊哈，解决了双色球的最后一个疑问

【资料作者】：aoe1981

【资料日期】：2013年1月11日

【资料语言】：中文

【资料格式】：DOC

【资料目录和简介】：

以下代码，大家可以在Excel中打开VBA编辑器，创建新模块，复制粘贴，然后运行，便可在工作表sheet1中得到结果：
Public Sub shuangseqiu()
Dim hq1 As Integer '红球1
Dim hq2 As Integer '红球2
Dim hq3 As Integer '红球3
Dim hq4 As Integer '红球4
Dim hq5 As Integer '红球5
Dim hq6 As Integer '红球6
Dim hezhi As Integer '和值
Dim i As Integer
Sheets("sheet1").Activate
Cells(20, 1).Value = "和值"
For i = 21 To 183
Cells(i, 1).Value = i
Next i
Cells(20, 2).Value = "注数"
Cells(184, 1).Value = "合计"
For hq1 = 1 To 28
For hq2 = hq1 + 1 To 29
For hq3 = hq2 + 1 To 30
For hq4 = hq3 + 1 To 31
For hq5 = hq4 + 1 To 32
For hq6 = hq5 + 1 To 33
hezhi = hq1 + hq2 + hq3 + hq4 + hq5 + hq6
Cells(hezhi, 2).Value = Cells(hezhi, 2).Value + 1
Next hq6
Next hq5
Next hq4
Next hq3
Next hq2
Next hq1
Cells(184, 2).Value = WorksheetFunction.Sum(Range("b21:b183"))
End Sub
关于结果作一简要说明，就是每种和值到底有多少注，这个结果网络中已然有，我这不算新发现，现在只是在知其然的基础上，再知其所以然。事实上，我以前还是试图寻找公式的，终是徒劳，其实根本没有公式，而靠得是计算科学。。。呵呵，与大家共享，见笑于方家了。。。

[ 本帖最后由 aoe1981 于 2013-1-11 22:56 编辑 ]