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

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

---------------------
’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 & "連荘する。")

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

コメント