【資料名稱】：啊哈，解決了雙色球的最后一個(gè)疑問

【資料作者】：aoe1981

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

【資料語(yǔ)言】：中文

【資料格式】：DOC

【資料目錄和簡(jiǎn)介】：

以下代碼，大家可以在Excel中打開VBA編輯器，創(chuàng)建新模塊，復(fù)制粘貼，然后運(yùn)行，便可在工作表sheet1中得到結(jié)果：
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 = "注數(shù)"
Cells(184, 1).Value = "合計(jì)"
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
關(guān)于結(jié)果作一簡(jiǎn)要說明，就是每種和值到底有多少注，這個(gè)結(jié)果網(wǎng)絡(luò)中已然有，我這不算新發(fā)現(xiàn)，現(xiàn)在只是在知其然的基礎(chǔ)上，再知其所以然。事實(shí)上，我以前還是試圖尋找公式的，終是徒勞，其實(shí)根本沒有公式，而靠得是計(jì)算科學(xué)。。。呵呵，與大家共享，見笑于方家了。。。

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