Question

How to use do while loop in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim i As Integer = 0

        Do While i < 10
            Console.WriteLine(i)
            i += 1
        Loop

    End Sub

End Module

' run:
' 
' 0
' 1
' 2
' 3
' 4
' 5
' 6
' 7
' 8
' 9

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim i As Integer = 0, j As Integer = 0

        Do While i < 10 And j < 18
            Console.WriteLine("i = {0} j = {1}", i, j)
            i += 1
            j += 4
        Loop

    End Sub

End Module

' run:
' 
' i = 0 j = 0
' i = 1 j = 4
' i = 2 j = 8
' i = 3 j = 12
' i = 4 j = 16

 

70+ SQL courses for beginners and professionals

Answer 3

Module Module1

    Sub Main()

        Dim random As Random = New Random

        Do While True
            Dim n As Integer = random.Next

            Console.WriteLine(n)

            If n Mod 3 = 0 Then
                Exit Do
            End If
        Loop

    End Sub

End Module

' run:
' 
' 1464287884
' 517100673

 

70+ SQL courses for beginners and professionals