条件指定の繰り返し(Do と While)

この例では、「こんにちは！」と出力してから１秒待つという処理を無限に繰り返します。

Do
    Debug.WriteLine("こんにちは！")
    Task.Delay(1000).Wait() '何もしないで1秒待つ。
Loop

→ Debug.WriteLineが表示される場所

メモ：最初の行を Do While True にしたり、最後の行をLoop While True にしても無限に繰り返します。

これでもできます。

While True
    Debug.WriteLine("こんにちは！")
    Task.Delay(1000).Wait() '何もしないで1秒待つ。
End While

→ Debug.WriteLineが表示される場所

この例は、変数 i が 5 より小さい間処理を繰り返します。

Dim i As Integer
Do While i < 5
    i += 1
    Debug.WriteLine($"現在{i}周目です。")
Loop

→ Debug.WriteLineが表示される場所

実行すると下記の通り出力されます。

現在1周目です。
現在2周目です。
現在3周目です。
現在4周目です。
現在5周目です。

これでもできます。

Dim i As Integer
While i < 5
    i += 1
    Debug.WriteLine($"現在{i}周目です。")
End While

→ Debug.WriteLineが表示される場所

実行すると下記の通り出力されます。

現在1周目です。
現在2周目です。
現在3周目です。
現在4周目です。
現在5周目です。

この例は、変数 i が 5 より小さい間処理を繰り返します。

Dim i As Integer
Do
    i += 1
    Debug.WriteLine($"現在{i}周目です。")
Loop While i < 5

→ Debug.WriteLineが表示される場所

実行すると下記の通り出力されます。

現在1周目です。
現在2周目です。
現在3周目です。
現在4周目です。
現在5周目です。

Dim i As Integer

'条件が False になったときに実行する処理をあらかじめ定義します。
Dim falseOp = Function()
                  Debug.WriteLine("条件が False になったのでループはこれで終わります。")
                  Return False '必ず False を返す必要があります。
              End Function

'While条件で、False時に falseOpで定義した処理を実行するようにします。
Do While If(i < 3, True, falseOp())
    i += 1
    Debug.WriteLine($"現在{i}周目です。")
Loop

→ Debug.WriteLineが表示される場所

メモ：もし、最初から条件が False の場合、ループ本体は実行されず、falseOp の処理だけが実行されます。

実行すると下記の通り出力されます。

現在1周目です。
現在2周目です。
現在3周目です。
条件が False になったのでループはこれで終わります。

この例では、Do ～ Loop文の条件で 変数 i が 10より小さい限り繰り返す指定になっていますが、If 文で条件判断してi が 3 のときループを抜けます。

Dim i As Integer
Do While i < 10
    i += 1
    If i = 3 Then
        Exit Do
    End If

    Debug.WriteLine($"i = {i}")
Loop

Debug.WriteLine("終了")

→ Debug.WriteLineが表示される場所

実行すると下記の通り出力されます。

i = 1
i = 2
終了

While の場合は Exit Do の代わりに Exit Whileを使用します。この例は上記の Do ～ Loop の例と全く同じ結果になります。

Dim i As Integer
While i < 10
    i += 1
    If i = 3 Then
        Exit While
    End If

    Debug.WriteLine($"i = {i}")
End While

Debug.WriteLine("終了")

→ Debug.WriteLineが表示される場所

この例は、摂氏(℃)と華氏(゜F)の対応表を出力します。「華氏が100度を超える」とExit Doして終了します。

Dim c As Double '摂氏。日本で通常使用する温度の単位。℃。
Dim f As Double '華氏。主にアメリカで使用する温度の単位。゜F。

Do
    f = (9.0 / 5.0 * c) + 32 '摂氏(℃)から華氏(゜F)を算出。

    If f > 100 Then
        '華氏が100を超える場合、ループを終了します。
        Debug.WriteLine("Exit Doします。")
        Exit Do
    End If


    ' ,5:0.0 の意味は「5文字分の幅で小数1桁」という書式指定。
    Debug.WriteLine($"{c,5:0.0}℃ ＝ {f,5:0.0}゜F")
    c += 10
Loop

→ Debug.WriteLineが表示される場所

実行すると下記の通り出力されます。(掲載の都合上スペースは省いています)

0.0℃ ＝ 32.0゜F
10.0℃ ＝ 50.0゜F
20.0℃ ＝ 68.0゜F
30.0℃ ＝ 86.0゜F
Exit Doします。

この例では 変数 i が 9999 の場合 Exit Do します。ループの処理がすべて終わった後に Exit Do して終わったのか、Exit Do しないで終わったのかメッセージを出力します。 このまま実行すると i は 9999 にならないので Exit Do は発生しないで終了します。

Dim isBreak As Boolean = False
Dim i As Integer = 0

Do While i < 10
    i += 1
    Debug.WriteLine($"i = {i}")

    If i = 9999 Then '←ここを i == 2 などに変えると、最後のメッセージが出力されなくなります。
        isBreak = True
        Exit Do
    End If
Loop

If Not isBreak Then
    Debug.WriteLine("Exit Doしないでループを終了しました。") '←これが出力されます。
End If

While でも同様です。この例は上記の Do ～ Loop の例と全く同じ結果になります。

Dim isBreak As Boolean = False
Dim i As Integer = 0

While i < 10
    i += 1
    Debug.WriteLine($"i = {i}")

    If i = 9999 Then '←ここを i == 2 などに変えると、最後のメッセージが出力されなくなります。
        isBreak = True
        Exit While
    End If
End While

If Not isBreak Then
    Debug.WriteLine("Exit Whileしないでループを終了しました。") '←これが出力されます。
End If

If 文で条件判断して2周目と3周目であれば処理を中断して次の周を開始します。

Dim i As Integer = 0
Do While i < 5
    i += 1

    Debug.WriteLine($"i = {i} 開始")

    If i = 1 OrElse i = 2 Then
        Continue Do
    End If

    Debug.WriteLine($"i = {i} 終了")
Loop

→ Debug.WriteLineが表示される場所

実行すると下記の通り出力されます。

i = 1 開始
i = 2 開始
i = 3 開始
i = 3 終了
i = 4 開始
i = 4 終了
i = 5 開始
i = 5 終了

While でも同様です。この例は上記の Do ～ Loop の例と全く同じ結果になります。

Dim i As Integer = 0
While i < 5
    i += 1

    Debug.WriteLine($"i = {i} 開始")

    If i = 1 OrElse i = 2 Then
        Continue While
    End If

    Debug.WriteLine($"i = {i} 終了")
End While

→ Debug.WriteLineが表示される場所

この例は、摂氏(℃)と華氏(゜F)の対応表を出力します。華氏が整数になる場合にだけ出力します。華氏が100度より下である限り繰り返します。

Dim c As Double '摂氏。日本で通常使用する温度の単位。℃。
Dim f As Double '華氏。主にアメリカで使用する温度の単位。゜F。

Do
    f = (9.0 / 5.0 * c) + 32 '摂氏(℃)から華氏(゜F)を算出。

    If f >= 100 Then
        '華氏が100以上になった場合、ループを終了します。
        Exit Do
    End If

    c += 1

    If f - Math.Truncate(f) <> 0 Then
        '小数部が 0 出ない場合、何もせず次の繰り返しにジャンプします。
        Continue Do
    End If

    ' ,5:0.0 の意味は「5文字分の幅で小数1桁」という書式指定。
    Debug.WriteLine($"{c - 1,5:0.0}℃ ＝ {f,5:0.0}゜F")
Loop

→ Debug.WriteLineが表示される場所

実行すると下記の通り出力されます。(掲載の都合上スペースは省いています)

0.0℃ ＝ 32.0゜F
5.0℃ ＝ 41.0゜F
10.0℃ ＝ 50.0゜F
15.0℃ ＝ 59.0゜F
20.0℃ ＝ 68.0゜F
25.0℃ ＝ 77.0゜F
30.0℃ ＝ 86.0゜F
35.0℃ ＝ 95.0゜F

この例は、変数 i が 5 になるまで処理を繰り返します。

Dim i As Integer
Do Until i = 5
    i += 1
    Debug.WriteLine($"現在{i}周目です。")
Loop

→ Debug.WriteLineが表示される場所

実行すると下記の通り出力されます。

現在1周目です。
現在2周目です。
現在3周目です。
現在4周目です。
現在5周目です。

この例は、変数 i が 5 になるまで処理を繰り返します。

Dim i As Integer
Do
    i += 1
    Debug.WriteLine($"現在{i}周目です。")
Loop Until i = 5

→ Debug.WriteLineが表示される場所

実行すると下記の通り出力されます。

現在1周目です。
現在2周目です。
現在3周目です。
現在4周目です。
現在5周目です。

Dim i As Integer
Do While i < 5
    i += 1
    Debug.WriteLine($"現在{i}周目です。")
Loop

→ Debug.WriteLineが表示される場所

メモ：この例のように単純に回数を指定して繰り返すには For の方が適しています。

実行すると下記の通り出力されます。

現在1周目です。
現在2周目です。
現在3周目です。
現在4周目です。
現在5周目です。

これでもできます。

Dim i As Integer
Do
    i += 1
    Debug.WriteLine($"現在{i}周目です。")
Loop While i < 5

→ Debug.WriteLineが表示される場所

メモ：この例のように単純に回数を指定して繰り返すには For の方が適しています。

これでもできます。

Dim i As Integer
While i < 5
    i += 1
    Debug.WriteLine($"現在{i}周目です。")
End While

→ Debug.WriteLineが表示される場所

メモ：この例のように単純に回数を指定して繰り返すには For の方が適しています。

次の例は、1～6のランダムな数値を生成します。6が生成されると何もせず終了します。

Dim i As Integer

Dim assign = Function(ByRef v As Integer, value As Integer)
                 v = value
                 Return value
             End Function

Do While assign(i, Random.Shared.Next(1, 7)) <= 5
    Debug.WriteLine(i)
Loop

→ Debug.WriteLineが表示される場所

メモ：C#の代入演算子 = は代入した値を返しますが、VBの代入演算子 = は何も値を返さないので、VBでは代入と条件判断を組み合わせて記述することができません。この例では、代入を実行し、代入した値を返す関数を 変数 assign で定義することでC#の代入演算子を同じことを実現しています。しかし、この方式はサンプルを見てわかるように少しトリッキーです。ここまでして代入と条件判断を組み合わせる必要はないはずなので、このサンプルは参考程度にご活用ください。

条件を最後に判断しても同様ですが、この例では、最初に必ず 0 が出力されます。

Dim i As Integer

Dim assign = Function(ByRef v As Integer, value As Integer)
                 v = value
                 Return value
             End Function

Do
    Debug.WriteLine(i)
Loop While assign(i, Random.Shared.Next(1, 7)) <= 5

→ Debug.WriteLineが表示される場所

この表は言語に用意されている機能を表現しています。「不可」となっている部分の多くはロジックを自作することで実現は可能です。