Question

How to break the outer loop in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        For i As Integer = 0 To 6 - 1
            Console.WriteLine("i)" & i)

            For j As Integer = 0 To 4 - 1
                Console.Write("j)" & j & " ")

                If i = 3 Then
                    GoTo OuterLoop
                End If
            Next

            Console.WriteLine("")
        Next

OuterLoop:
Console.WriteLine(Environment.NewLine & "Exited the loops")
    End Sub
End Class



' run:
'
' i)0
' j)0 j)1 j)2 j)3 
' i)1
' j)0 j)1 j)2 j)3 
' i)2
' j)0 j)1 j)2 j)3 
' i)3
' j)0 
' Exited the loops
' 
 

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Class Program
	Public Shared Sub Main(ByVal args As String())
        Dim breakOuter As Boolean = False

        For i As Integer = 0 To 6 - 1
            Console.WriteLine("i)" & i)
            For j As Integer = 0 To 4 - 1
                Console.Write("j)" & j & " ")
                If i = 3 Then
                    breakOuter = True
                    Exit For
                End If
            Next

            Console.WriteLine("")
            If breakOuter Then Exit For
        Next
    End Sub
End Class



' run:
'
' i)0
' j)0 j)1 j)2 j)3 
' i)1
' j)0 j)1 j)2 j)3 
' i)2
' j)0 j)1 j)2 j)3 
' i)3
' j)0 
' 

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System

Public Class Program
    Public Shared Sub NestedLoops()
        For i As Integer = 0 To 6 - 1
            Console.WriteLine("i)" & i)

            For j As Integer = 0 To 4 - 1
                Console.Write("j)" & j & " ")

                If i = 3 Then
                    Return
                End If
            Next

            Console.WriteLine("")
        Next
    End Sub

    Public Shared Sub Main(ByVal args As String())
        NestedLoops()
    End Sub
End Class



' run:
'
' i)0
' j)0 j)1 j)2 j)3 
' i)1
' j)0 j)1 j)2 j)3 
' i)2
' j)0 j)1 j)2 j)3 
' i)3
' j)0 
' 
 

 

70+ SQL courses for beginners and professionals