vb 彩牛概率统计for Excel
彩牛统计牛牛概率
主要计算牛一到牛牛和炸弹无牛在excel表中统计列举的牌型概率。代码如下，顺便了解了下vb这门古老的语言。唯一感想就是自动对其功能很强。突然吹使我再温习下代码之美，要把代码写好，写规范啊。路途遥远啊。
顺便附上excel表下载地址：http://download.csdn.net/download/huyonghong2012/10209715
Dim n0, n1, n2, n3, n4, n5, n6, n7, n8, n9, nn, nz As Double
Dim m, n, i, j, r1, r2, r3, r, c, color, zd, cc As Long
Public Function getType(row) As Integer
c = 0
zd = 0
For r1 = 1 To 5 Step 1
For r2 = 2 To 5 Step 1
For r3 = 3 To 5 Step 1
If r1 < r2 And r2 < r3 Then
If (Cells(row, r1 + 1) + Cells(row, r2 + 1) + Cells(row, r3 + 1)) Mod 10 <> 0 Then
Else
c = 1
End If
End If
Next r3
Next r2
Next r1
If (Cells(row, 2) = Cells(row, 3) And Cells(row, 3) = Cells(row, 4) And Cells(row, 4) = Cells(row, 5)) Or (Cells(row, 2) = Cells(row, 3) And Cells(row, 3) = Cells(row, 4) And Cells(row, 4) = Cells(row, 6)) Or (Cells(row, 2) = Cells(row, 3) And Cells(row, 3) = Cells(row, 5) And Cells(row, 5) = Cells(row, 6)) Or (Cells(row, 2) = Cells(row, 4) And Cells(row, 4) = Cells(row, 5) And Cells(row, 5) = Cells(row, 6)) Or (Cells(row, 3) = Cells(row, 4) And Cells(row, 4) = Cells(row, 5) And Cells(row, 5) = Cells(row, 6)) Then
zd = 1
Else
zd = 0
End If
If zd = 1 Then
getType = 11
Else
If c = 0 Then
getType = 0
Else
If (Cells(row, 2) + Cells(row, 3) + Cells(row, 4) + Cells(row, 5) + Cells(row, 6)) Mod 10 <> 0 Then
getType = (Cells(row, 2) + Cells(row, 3) + Cells(row, 4) + Cells(row, 5) + Cells(row, 6)) Mod 10
Else
getType = 10
End If
End If
End If
End Function
Public Function setColor(row, color)
For r1 = 1 To 5 Step 1
Cells(row, r1 + 1).Interior.color = color
'RGB(255, 255, 255)
Next r1
End Function
Public Function clear()
Range("h2") = ""
Range("h3") = ""
Range("i2") = ""
Range("i3") = ""
Range("j2") = ""
Range("j3") = ""
n3 = n3 + 1
Range("k2") = ""
Range("k3") = ""
Range("l2") = ""
Range("l3") = ""
Range("m2") = ""
Range("m3") = ""
Range("n2") = ""
Range("n3") = ""
Range("o2") = ""
Range("o3") = ""
Range("p2") = ""
Range("p3") = ""
Range("q2") = ""
Range("q3") = ""
Range("r2") = ""
Range("r3") = ""
Range("s2") = ""
Range("s3") = ""
Range("g2") = ""
Range("g3") = ""
End Function
Sub calculate()
n0 = 0
n1 = 0
n2 = 0
n3 = 0
n4 = 0
n5 = 0
n6 = 0
n7 = 0
n8 = 0
n9 = 0
nn = 0
nz = 0
cc = clear()
'Range("t3") = (Cells(1, 2) + Cells(1, 3) + Cells(1, 4) + Cells(1, 5) + Cells(1, 6)) Mod 10
m = Range("t2")
For j = 1 To m Step 1
n = getType(j)
Select Case n
Case 0
n0 = n0 + 1
Range("h2") = n0 / m
Range("h3") = n0
color = setColor(j, RGB(0, 0, 255))
Case 1
n1 = n1 + 1
Range("i2") = n1 / m
Range("i3") = n1
Case 2
n2 = n2 + 1
Range("j2") = n2 / m
Range("j3") = n2
Case 3
n3 = n3 + 1
Range("k2") = n3 / m
Range("k3") = n3
Case 4
n4 = n4 + 1
Range("l2") = n4 / m
Range("l3") = n4
Case 5
n5 = n5 + 1
Range("m2") = n5 / m
Range("m3") = n5
Case 6
n6 = n6 + 1
Range("n2") = n6 / m
Range("n3") = n6
Case 7
n7 = n7 + 1
Range("o2") = n7 / m
Range("o3") = n7
Case 8
n8 = n8 + 1
Range("p2") = n8 / m
Range("p3") = n8
Case 9
n9 = n9 + 1
Range("q2") = n9 / m
Range("q3") = n9
Case 10
nn = nn + 1
Range("r2") = nn / m
Range("r3") = nn
color = setColor(j, RGB(0, 255, 0))
Case 11
nz = nz + 1
Range("s2") = nz / m
Range("s3") = nz
color = setColor(j, RGB(255, 0, 0))
End Select
Next j
Range("g2") = (n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + nn + nz - 1) / m
Range("g3") = (n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + nn + nz - 1)
End Sub