パチンコ予想ソフト(5)

　皆さん、こんにちは。山本美孝です。

　確変が何回続くのか？をカウントしてみましょう。

---------------------
’Bunshi と Bunbo とKakuhenCountをIntegerとして宣言する。
Dim Bunshi As Integer
Dim Bunbo As Integer
Dim KakuhenCount As Integer

KakuhenCount = 0

Bunbo = 3 ’仮に確変継続率が　2/3 だとすると
Bunsi = 2 ’

　　Do

　　　　Kno = Int(Rnd * Bunbo)
　　　　If Kno ＜＝ Bunsi - 1 Then
　　’＜は半角ですが、タグと誤認識されるので全角としました。
　　　　　　KakuhenCount = KakuhenCount + 1
　　　　Else
　　　　　　Exit Do
　　　　End If

　　Loop

　　MsgBox (KakuhenCount & "連荘する。")

---------------------