Do While Loop 繰り返し [VB 2010]

条件を満たしていればループ

Do While Loopは、次のような構文になります。

  Do While 条件式
    ............
    .........
    ............

  Loop

条件式には、条件を満たしているか、そうでないかを判定する式を書きます。条件式によく使う比較演算子を表にまとめました。

Do While Loop を使って、キーボードから入力した数値の合計が100を超えるまで、入力を受付けるプログラムを作成します。

キーボードから整数値を入力について はこちら

Module Module1

    Sub Main()
        ' 変数の宣言
        Dim inStr As String
        Dim inNum As Integer = 0
        Dim sum As Integer = 0

        ' 入力値の和が100を超えるまで入力を続ける
        Do While sum <= 100
            Console.WriteLine("整数を入力してください")
            ' キーボードから入力
            inStr = Console.ReadLine()
            ' 入力した文字列を整数に変換
            inNum = Integer.Parse(inStr)
            ' 入力値を加算
            sum = sum + inNum
        Loop

        ' 合計値を表示
        Console.WriteLine()    ' 改行
        Console.WriteLine("お疲れ様でした")
        Console.WriteLine("入力した数値の和は")
        Console.WriteLine(sum)
        Console.WriteLine("です")
    End Sub

End Module

sum <= 100 で条件を判定しています。合計値sumが100以下なら、 DoWhile sum <= 100 の次行から Loop の間の処理が、繰り返し実行されます。

たとえば、最初に150を入力すると、その1回のみで、sumが100を超えるので、すぐに Loop の次の処理に移ります。合計値は 0 のままです。

次回は、Do Until Loop の繰り返しについて学習します。

• Do While 条件式 ... Loop 繰り返し制御文
• Do Until 条件式 ... Loop 繰り返し制御文
• Do ... Loop While 条件式 繰り返し制御文
• Do ... Loop Until 条件式 繰り返し制御文
• Exit Do 繰り返し強制終了