1日当たり5000G打ち切り（但しボーナスは取り切る）、試行日数10000日
RT増減：-0.1枚/Gで、97.8%

Sub macro()
Randomize
Dim i As Long
Dim rt_gc As Long
Dim gc As Long
Dim total_gc As Long
Dim coin As Double
Dim rd As Long
Dim GOD As Long
Dim BB As Long
Dim MB As Long
Const SIM_GC = 5000 ' 1日あたりG数(ボーナスG含む)
Const SIM_DAY = 10000 ' 試行日数
Const BASE = 30.4 ' 通常時ベース(設定1)
Const RT_ZOUGEN = -0.1 ' RT時の純増減枚数
Const GOD_k = 40 ' 65536 / 1638.4
Const BB_k = 309 ' 65536 / 212.09 (設定1)
Const MB_k = 307 ' 65536 / 213.47 (設定1)

For i = 1 To SIM_DAY
gc = 0
rt_gc = 0
While (gc < SIM_GC)
gc = gc + 1
If rt_gc = 0 Then
coin = coin - 50# / BASE
Else
coin = coin + RT_ZOUGEN
rt_gc = rt_gc - 1
End If
rd = Int(Rnd() * 65536)
If rd < GOD_k Then
GOD = GOD + 1
rt_gc = 700
coin = coin + 203
gc = gc + 17
ElseIf rd < GOD_k + BB_k Then
BB = BB + 1
coin = coin + 155
gc = gc + 13
ElseIf rd < GOD_k + BB_k + MB_k Then
MB = MB + 1
coin = coin + 47
gc = gc + 4
End If
Wend
total_gc = total_gc + gc
Next i
MsgBox Int(coin) & "枚"
MsgBox round((total_gc * 3 + coin) / (total_gc * 3) * 100, 2) & "%"
End Sub