Have fun with this VisualBasic Program. Copy and paste the code into the Form_Load Event. It will self-justify. There are no controls required.
Private Sub Form_Load()
Dim a, b, c, d, e, f, g, h, i, X, FLD, XTRA
'PowerBall
FLD = 55
XTRA = 42
a = Format(((((FLD * (FLD - 1)) / (5 * 4 * 3 * 2 * 1)) * ((FLD - 2) * (FLD - 3))) * (FLD - 4)) * XTRA, "#,###,###")
'5+1 1:146,107,968
'
' 55!
'a = --------- * (42) = 146,107,968
' 5!(55-5)!
'
'Jackpot
b = Format((a / (XTRA - 1)), "#,###,###")
'5+0 1:3,563,609
'
' 55! }
'b = --------- * 42 } / (42-1) = 3,563,609
' 5!(55-5)! }
'
'$200,000
'********************************************************************************************************
'********************************************************************************************************
'********************************************************************************************************
X = Format((((FLD * (FLD - 1)) / (5 * 4 * 3 * 2 * 1)) * ((FLD - 2) * (FLD - 3))) * (FLD - 4), "#,###,###")
'5 1:3,478,761
'
' 55!
'X = --------- = 3,478,761 >>> X <<< is a CONSTANT used in c, e, g, h & i below
' 5!(55-5)!
'********************************************************************************************************
'********************************************************************************************************
'********************************************************************************************************
c = Format((X / (5 * 50)) * XTRA, "#,###,###")
'4+1 Note: ^X 1:584,432
'
' 3,478,761
'c = ----------------- * 42 = 584,432
' 5!
' -------- * (55-5)
' 5!(5-4)!
'
'$10,000
d = Format((c / (XTRA - 1)), "#,###,###")
'4+0 Note: ^c 1:14,254
'
' 3,478,761 }
'd = ----------------- * 42 } / (42-1) = 14,254
' 5! }
' -------- * (55-5) }
' 4!(5-4)! }
'
'$100
e = Format(((X / (((5 * 4 * 3) / (3 * 2)) * ((50 * 49) / 2))) * XTRA), "#,###,###")
'3+1 Note: ^X 1:11,927
'
' 3,478,761
'e = -------------------- * 42 = 11,927
' 5! 50!
' -------- * ---------
' 3!(5-3)! 2!(50-2)!
'
'$100
f = Format((e / (XTRA - 1)), "#,###,###")
'3+0 Note: ^e 1:291
'
' 3,478,761 }
'f = -------------------- * 42 } / (42-1) = 291
' 5! 50! }
' -------- * --------- }
' 3!(5-3)! 2!(50-2)! }
'
'$7
g = Format(((X / (((5 * 4) / 2) * (((50 * 49) / 6) * 48))) * XTRA), "#,###,###")
'2+1 Note: ^X 1:745 ((50 * 49 * 48) / 6)
'
' 3,478,761
'g = -------------------- * 42 = 745
' 5! 50!
' -------- * ---------
' 2!(5-2)! 3!(50-3)!
'
'$7
h = Format(((X / ((5 / 1) * (((50 * 49) / 24) * (48 * 47)))) * XTRA), "#,###,###")
'1+1 Note: ^X 1:127 ((50 * 49 * 48 * 47)/24)
'
' 3,478,761
'h = -------------------- * 42 = 127
' 5! 50!
' -------- * ---------
' 1!(5-1)! 4!(50-4)!
'
'$4
i = Format(((X / (((50 * 49) * ((48 * 47) / 120)) * 46)) * XTRA), "#,###,###")
' (50 * 49 * 48 * 47 * 46) / (5 * 4 * 3 * 2)
'0+1 Note: ^X 1:69
'
' 3,478,761
'i = -------------------- * 42 = 69
' 50!
' ---------
' 5!(50-5)!
'
'$3
Stop 'Place cursor over a, b, X, c, d, e, f, g, h & i to view CALCULATED result
End Sub