Visual Basicでネストされたループから抜ける方法 - GoTo文の利用

Visual Basicでネストされたループのいちばん深いところから抜け出す場合には、goto文を利用します。

書式

"GoTo ラベル名"から"ラベル名:"にジャンプします。

コード例

下記の例では、Exit Whileでは中のループを抜け出す動作であり、ループ全体から抜ける場合はGoTo文を使って抜けます。

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  Dim i As Integer
  Dim j As Integer

  For i = 0 To 10 Step 1
    j = 0
    While True
      TextBox1.Text += String.Format("({0:d},{1:d}) ", i, j)
      If i * j = 25 Then GoTo ExitLoop
      j += 1
      If 12 < j Then Exit While
    End While
  Next

ExitLoop:
  TextBox1.Text += Chr(13) + Chr(10) + "Complete"
End Sub

実行結果

著者

Penta

iPentecのメインプログラマー
C#, ASP.NET の開発がメイン、少し前まではDelphiを愛用