Write a program to find Armstrong number in visual basic 10?

Answer 1

An Armstrong number (or narcissistic number) for a given number of digits is a number that is equal to the sum of its own digits raised to the power of the number of digits. Here’s a simple Visual Basic 10 program that checks for Armstrong numbers:

Module ArmstrongNumber
    Sub Main()
        Dim num As Integer
        Dim sum As Integer = 0
        Console.Write("Enter a number: ")
        num = Convert.ToInt32(Console.ReadLine())
        Dim temp As Integer = num
        Dim digits As Integer = num.ToString().Length

        While temp > 0
            Dim digit As Integer = temp Mod 10
            sum += Math.Pow(digit, digits)
            temp \= 10
        End While

        If sum = num Then
            Console.WriteLine(num & " is an Armstrong number.")
        Else
            Console.WriteLine(num & " is not an Armstrong number.")
        End If
    End Sub
End Module

This program takes a number as input, calculates the sum of its digits raised to the power of the number of digits, and checks if the sum equals the original number.