Question

How to create an infinite loop in VB.NET

Answer 1

Imports System

Module Program
    Sub Main()
        Console.WriteLine("Starting infinite While loop. Press Q to quit.")

        While True ' infinite loop
            Console.Write("Enter something (Q to quit): ")
            Dim input As String = Console.ReadLine()

            If input.ToUpper() = "Q" Then
                Console.WriteLine("Exiting loop...")
                Exit While
            End If

            Console.WriteLine("You typed: " & input)
        End While ' infinite loop

        Console.WriteLine("Program finished.")
    End Sub
End Module



' run:
'
' Starting infinite While loop. Press Q to quit.
' Enter something (Q to quit): a
' You typed: a
' Enter something (Q to quit): b
' You typed: b
' Enter something (Q to quit): a
' You typed: a
' Enter something (Q to quit): q
' Exiting loop...
' Program finished.
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Module Program
    Sub Main()
        Console.WriteLine("Starting infinite Do Loop. Press X to exit.")

        Do ' infinite loop
            Console.Write("Enter something (X to exit): ")
            Dim input As String = Console.ReadLine()

            If input.ToUpper() = "X" Then
                Console.WriteLine("Breaking out of loop...")
                Exit Do
            End If

            Console.WriteLine("You typed: " & input)
        Loop ' infinite loop

        Console.WriteLine("Program ended.")
    End Sub
End Module



' run:
'
' Starting infinite Do Loop. Press X to exit.
' Enter something (X to exit): a
' You typed: a
' Enter something (X to exit): b
' You typed: b
' Enter something (X to exit): a
' You typed: a
' Enter something (X to exit): X
' Breaking out of loop...
' Program ended.
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System

Module Program
    Sub Main()
        Console.WriteLine("Infinite Do While loop. Type STOP to break.")

        Do While True ' infinite loop
            Console.Write("Enter text (STOP to break): ")
            Dim input As String = Console.ReadLine()

            If input.ToUpper() = "STOP" Then
                Console.WriteLine("Stopping loop...")
                Exit Do
            End If

            Console.WriteLine("Echo: " & input)
        Loop ' infinite loop

        Console.WriteLine("Done.")
    End Sub
End Module



' run:
'
' Infinite Do While loop. Type STOP to break.
' Enter text (STOP to break): a
' Echo: a
' Enter text (STOP to break): b
' Echo: b
' Enter text (STOP to break): a
' Echo: a
' Enter text (STOP to break): STOP
' Stopping loop...
' Done.
'

 

70+ SQL courses for beginners and professionals