0
Private Sub Check_Click()
Dim d As Integer
Dim num As Integer
Dim s As Integer
Dim old As Integer
num = Val(Text1.Text)
old = num
s = 0
While num > 0
d = num Mod 10
s = s + (d * d * d)
num = num \ 10
Wend
If old = s Then
Label1.Caption = "Armstrong"
Else
Label1.Caption = "Not armstrong"
End If
End Sub
Still curious? Ask our experts.
Chat with our AI personalities
Judy
Rene
EzraAdd your answer:
Earn +20 pts
How do you write Square program using vb?
write a vb program to find the magic square
Writes a c program to find the sum of all integers between 1 and n?
Write a program to find the number and sum of all integers from 100 to 300 that are divisible by 11
Write a program to find the grade obtained by the students of a class using structure?
Write a program to find the grade obtained by the students of a class
How to write A Java program to print number of digits in a given number?
One way to do this is to convert the number to a String, then use the corresponding String method to find out the length of the String.
To find Armstrong number in java?
/*Program to find whether given no. is Armstrong or not. Example : Input - 153 Output - 1^3 + 5^3 + 3^3 = 153, so it is Armstrong no. */ class Armstrong{ public static void main(String args[]){ int num = Integer.parseInt(args[0]); int n = num; //use to check at last time int check=0,remainder; while(num > 0){ remainder = num % 10; check = check + (int)Math.pow(remainder,3); num = num / 10; } if(check == n) System.out.println(n+" is an Armstrong Number"); else System.out.println(n+" is not a Armstrong Number"); } }
