15 Program to print 1 to 50 even-odd numbers Using While Loop in VB.NET

Code:

Module Module1
    Sub Main()

        Dim num, even(100), odd(100), e, o As Integer

        Console.WriteLine(" Even Odd  Number From 1 to 50 = ")

        e = -1
        o = -1
        num = 1

            While num <= 50

                If num Mod 2 = 0 Then
                e += 1
                even(e) = num
            Else
                o += 1
                odd(o) = num

            End If
            num += 1
        End While

            Console.WriteLine(" Even Numbers:  ")
            While e >= 0

                Console.WriteLine(" " & even(e))
                e -= 1
            End While

            Console.WriteLine(" Odd Numbers:  ")
        While o >= 0

            Console.WriteLine(" " & odd(o))
                o -= 1
        End While

        Console.ReadKey()

    End Sub

End Module

Output:  

• Tweet
• Share
• Share
• Share

Related Post