VB.Net program to check the given number is Armstrong or not using the While loop

Here, we are going to learn how to check the given number is Armstrong or not using the While loop in VB.Net?
Submitted by Nidhi, on December 06, 2020 [Last updated : March 06, 2023]

Check Armstrong Number using While loop in VB.Net

Here, we will read an integer number from the user and then check the given number is Armstrong number or not then print the appropriate message on the console screen.

Program/Source Code:

The source code to check the given number is Armstrong or not using the While loop is given below. The given program is compiled and executed successfully.

VB.Net code to check the given number is Armstrong or not using the While loop

'VB.Net program to check the given number is Armstrong number 
'or not using "While" loop.

Module Module1

    Sub Main()
        Dim number As Integer = 0
        Dim temp As Integer = 0
        Dim remainder As Integer = 0
        Dim result As Integer = 0

        Console.Write("Enter the number: ")
        number = Integer.Parse(Console.ReadLine())

        temp = number
        While (temp > 0)
            remainder = (temp Mod 10)
            result = result + (remainder * remainder * remainder)
            temp = temp \ 10
        End While

        If (number = result) Then
            Console.WriteLine("Number is armstrong")
        Else
            Console.WriteLine("Number is not armstrong")
        End If
    End Sub
    
End Module

Output:

Enter the number: 153
Number is armstrong
Press any key to continue . . .

Explanation:

In the above program, we created a module Module1 that contains a function Main(). In the Main() we created four integer variables number, temp, result and remainder, which are initialized with 0.

Console.Write("Enter the number: ")
number = Integer.Parse(Console.ReadLine())

temp = number
While (temp > 0)
    remainder = (temp Mod 10)
    result = result + (remainder * remainder * remainder)
    temp = temp \ 10
End While

If (number = result) Then
    Console.WriteLine("Number is armstrong")
Else
    Console.WriteLine("Number is not armstrong")
End If

In the above code, we read the integer number from the user and then we divided the number till it becomes zero and find the sum of the cube of each digit. If the resulted number is equivalent to the original number then we print "Number is Armstrong" otherwise we will "Number is not Armstrong" on the console screen.