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

# もちっとマシなタイトルつけてください。「質問です」って、んなこたわかってます。

> 今回はDo While　を使って　コイン連続で投げて　Ｘ回　表が連続でるまでに
> 何回投げる必要があるかどうかを算出するプログラムを作ろうとしてるのですが
> どうすればよいかまったくわかりません

いや、いぃとこまで来てるやん。

Dim X As Integer 目標とする連続表の回数
Dim Goal As Integer 表が連続した回数
Dim Flips As Integer コイントスの回数 
Dim RanNum As Integer 0なら表/1なら裏

Goal = 0
Flips = 0
Do
  Flips = Flips + 1
  RanNum = コインを投げる ' Do-loopの中でコインを投げないと表/裏ばっか出ちゃうよー
  If RanNumが表
    Goal = Goal + 1
  Else
    Goal = 0
  End If
While Goal < X
Flipを表示する

...こんなとこかしら。
TextBox.Textは文字列だから数と比較しちゃダメよ。

コイン投げ機械はひとつあればいいんだから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