【VB.NET】条件が成立する間／しない間は処理を繰り返す方法

訪問して頂きありがとうございます。まさふくろーです。

この記事では使用例をもとに、条件が成立する間／しない間は処理を繰り返す方法をご紹介します。

使用例
使用するステートメント
- Do While...Loopステートメント
- Do Until...Loopステートメント
サンプルプログラム：Do While...Loopステートメント
サンプルプログラム：Do Until...Loopステートメント
サンプルプログラム：Exit Do

使用例

画面起動時、コンボボックスには何も設定されていない状態
「実行」ボタンをクリック
コンボボックスに前ゼロ付きの連番を設定する

使用するステートメント

Do While...Loopステートメント

Do While 条件式

処理

Loop

解説	条件式が成立している間（条件式の結果が「True」の間）は処理を繰り返すには、Do While...Loopステートメントを使います。
	この構文では、最初に条件式が評価され、結果が「True」であれば処理が行われます。
	処理後、再び条件式が評価され、結果が「False」になるまで繰り返されます。
	もし、最初から条件式の結果が「False」であれば、Doブロックの処理は一度も行われません。
	条件式の結果にかかわらず、一度はDoブロックの処理を行う場合は、次の書式で記述します。 Do 処理 Loop While 条件式
	Doブロックの処理を何らかの条件により途中で処理を終了する場合は、Exit Doステートメントを使います。

Do Until...Loopステートメント

Do Until 条件式

処理

Loop

解説	条件式が成立していない間（条件式の結果が「False」の間）に処理を繰り返すには、Do Until...Loopステートメントを使います。
	この構文では、最初に条件式が評価され、結果が「False」であれば処理が行われます。
	処理後、再び条件式が評価され、結果が「True」になるまで繰り返されます。
	もし、最初から条件式の結果が「True」であれば、Doブロック内の処理は一度も行われません。
	条件式の結果にかかわらず、一度はDoブロック内の処理を行う場合は、次の書式で記述します。 Do 処理 Loop Until 条件式
	Doブロックの処理を何らかの条件により途中で処理を終了する場合は、Exit Doステートメントを使います。

サンプルプログラム：Do While...Loopステートメント

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.ComboBox1.Items.Clear()

        Dim i As Integer = 1

        Do While i <= 5

            Me.ComboBox1.Items.Add(i.ToString("000"))

            i += 1

        Loop

    End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Me.ComboBox1.Items.Clear()

Dim i As Integer = 1

Do While i <= 5

Me.ComboBox1.Items.Add(i.ToString("000"))

i += 1

Loop

End Sub

End Class

4	コンボボックスの値を初期化
6	インクリメント用の変数「i」を宣言し、初期値 = 1を設定。
8	変数「i」の値が5以下である間、以下処理を繰り返す。
10	変数「i」の値を前ゼロ3桁の文字列に変換し、コンボボックスに値を追加する。
12	変数「i」をインクリメントする。

サンプルプログラム：Do Until...Loopステートメント

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.ComboBox1.Items.Clear()

        Dim i As Integer = 1

        Do Until i > 5

            Me.ComboBox1.Items.Add(i.ToString("000"))

            i += 1

        Loop

    End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Me.ComboBox1.Items.Clear()

Dim i As Integer = 1

Do Until i > 5

Me.ComboBox1.Items.Add(i.ToString("000"))

i += 1

Loop

End Sub

End Class

4	コンボボックスの値を初期化
6	インクリメント用の変数「i」を宣言し、初期値 = 1を設定。
8	変数「i」の値が5を超えるまで、以下処理を繰り返す。
10	変数「i」の値を前ゼロ3桁の文字列に変換し、コンボボックスに値を追加する。
12	変数「i」をインクリメントする。

サンプルプログラム：Exit Do

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.ComboBox1.Items.Clear()

        Dim i As Integer = 1

        Do Until i > 10

            Me.ComboBox1.Items.Add(i.ToString("000"))

            If i = 5 Then
                Exit Do
            End If

            i += 1

        Loop

    End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Me.ComboBox1.Items.Clear()

Dim i As Integer = 1

Do Until i > 10

Me.ComboBox1.Items.Add(i.ToString("000"))

If i = 5 Then

Exit Do

End If

i += 1

Loop

End Sub

End Class

4	コンボボックスの値を初期化
6	インクリメント用の変数「i」を宣言し、初期値 = 1を設定。
8	変数「i」の値が10を超えるまで、以下処理を繰り返す。
10	変数「i」の値を前ゼロ3桁の文字列に変換し、コンボボックスに値を追加する。
12	変数「i」の値が5になったら、
13	処理を終了する。
16	変数「i」をインクリメントする。

最後まで読んでいただき、ありがとうございました！

本のまとめ関連記事はこちら

数あるVisualBasic本の中で評価の高い本８選