Armstrong number using function in vb6?

Answer 1

Dim no As Integer, r As Integer, sum As Integer = 0, n As Integer = 0

Console.WriteLine("Enter number" & vbLf)

no = Int32.Parse(Console.ReadLine())

n = no

While n > 0

r = n Mod 10

n = n \ 10

sum += r * r * r

End While

If sum = no Then

Console.WriteLine("{0} is a Amstrong number", no)

Else

Console.WriteLine("{0} is not a Amstrong number", no)

End If

Console.ReadLine()

Answer 2

Create a textbox a label and a button

paste the code on button click.

Dim i, a, b, c, sum As Integer 'Declare variable i,a,b,c,and sum

Label1.ForeColor = &HC000& 'Change the font color of the ouput label

i = Val(Text1.Text) 'Assign text1 value to i

a = i \ 100 'Divide the i value by 100 and take the real part

b = (i Mod 100) \ 10 'Use mod to remove the first number and divide by 10-> take the real part

c = i Mod 10 'Take the last number by use mod.

sum = a * a * a + b * b * b + c * c * c

'START CHECKING

If sum = i Then 'Checks if sum equals to i value

Label1.Caption = i & " is an Armstrong number"

Else

Label1.ForeColor = vbRed 'Change the font color of the ouput label to red!

Label1.Caption = i & " is not an Armstrong number"

End If

rusputin

Answer 3

Dim i, a, b, c, sum As Integer 'Declare variable i,a,b,c,and sum

Label1.ForeColor = &HC000& 'Change the font color of the ouput label

i = Val(Text1.Text) 'Assign text1 value to i

a = i \ 100 'Divide the i value by 100 and take the real part

b = (i Mod 100) \ 10 'Use mod to remove the first number and divide by 10-> take the real part

c = i Mod 10 'Take the last number by use mod.

Sum = a * a * a + b * b * b + c * c * c

'START CHECKING

If sum = i Then 'Checks if sum equals to i value

Label1.Caption = i & " is an armstrong number"

Else

Label1.ForeColor = vbRed 'Change the font color of the ouput label to red!

Label1.Caption = i & " is not an armstrong number"

End If