繰り返し処理を最低1回は実行
繰返し制御文 |
---|
For Next |
For Next 入れ子 |
For Step Next |
For Each Next |
Exit For 強制終了 |
Do While Loop |
Do Until Loop |
Do Loop While |
Do Loop Until |
Exit Do 強制終了 |
Do Loop Until は、繰り返し処理後に条件式を判定します。条件を満たしていなければ、さらに繰り返し処理を実行します。
繰り返し処理後に条件式を判定するので、最低1回は繰り返し処理を実行します。
Do ' Do から Loop Until の間を最低1回は実行する ............ ........ ................ Loop Until 条件式
Do Loop Until サンプルプログラム
Do Loop Until を使って、キーボードから入力した整数値を合計します。
合計値が100を超えたら、キーボードからの入力を終了して、合計値を表示するプログラムを作成します。
最初に100超の整数を入力すると、sum がその時点で100超なので、繰り返し処理は終了して、その値が合計値に表示されます
数字以外を入力するとエラー表示して、プログラムが強制終了します。
入力エラーの対応は、キーボードから再入力できるプログラム を参考にしてください。
入力エラー時の再入力プログラム |
---|
ソースリストの枠内をクリックすると全選択できます。
Module Module1 Sub Main() ' 変数の宣言 Dim inStr As String Dim inNum As Integer = 0 Dim sum As Integer = 0 ' Do Loop Until を使って ' 入力値の和が100を超えるまで入力を続ける Dim msg As String = "整数を入力して下さい" Do Console.WriteLine(msg) ' キーボードから入力 inStr = Console.ReadLine() ' 入力した文字列を整数に変換 inNum = Integer.Parse(inStr) ' 入力値を加算 sum = sum + inNum Loop Until sum <= 100 ' 合計値を表示 Console.WriteLine() ' 改行 Console.WriteLine("入力値の合計は") Console.WriteLine(sum) Console.WriteLine("です") End Sub End Module
Do Until では、最初に条件式の判定があり、Do Until の実行前に sum が 100 超の場合には、Do Until ...... Loop の間を1回も実行ぜずにプログラムが進行します。
' Do Untilでは Do Until sum > 100 ............ Loop
次回は、Exit do について学習します。
次回:Exit do |
---|