パチンコ予想ソフト(5)
2005年2月15日 コンピュータ 皆さん、こんにちは。山本美孝です。
確変が何回続くのか?をカウントしてみましょう。
---------------------
’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 & "連荘する。")
---------------------
確変が何回続くのか?をカウントしてみましょう。
---------------------
’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 & "連荘する。")
---------------------
コメント