Exit Do 強制修了 [VB 2010]

H2見出し1

Do Loop のみで繰り返し処理を書くと、繰り返しの終了判定がないので、繰り返し処理を永久に実行して、プログラムが終了しなくなります。繰り返し処理をを抜けるためには、Exit Do を使う必要があります。

Do While Loopや、 Do Until Loop のように繰り返し終了判定があっても、繰り返し処理を途中でを抜けるためには、Exit Do を使います。

Exit do を使うと、直ちに繰り返し処理を終了し、Loop の次からプログラムを実行することができます。

Do Loop と、Exit doを使って、キーボードから入力した数値の合計を求めるプログラムを作成します。0が入力されたら、合計値を表示してプログラムを終了します。

Module Module1

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

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

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

End Module

上の例では、 If inNum = 0 Then で条件判定します。もし、0が入力されたら、Exit Do を実行して、繰り返し処理を抜けます。

これで、繰り返し制御文は修了です。次回からは、配列 について勉強します。

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