C# と VB.NET の質問掲示板

コイン投げ機械はひとつあればいいんだからloopの外。
"コインを投げる"操作がloop内にあればいい。
コンソール・アプリだとこんな感じ。

Module CoinToss
  Sub Main()
    Dim X As Integer '目標とする連続表の回数
    Dim Goal As Integer '表が連続した回数
    Dim Flips As Integer 'コイントスの回数 
    Dim RanNum As Integer '0なら表/1なら裏
    Dim MyRandomGenerator As New System.Random

    Goal = 0
    Flips = 0
    X = 4　' --- ココいぢれ
    Do
      Flips = Flips + 1
      RanNum = MyRandomGenerator.Next(2)
      If RanNum = 0 Then
        Goal = Goal + 1
      Else
        Goal = 0
      End If
    Loop While Goal < X
    Console.WriteLine("{0}回投げました。", Flips) ' --- ココいぢれ
  End Sub
End Module