Write a program in vbnet to find Armstrong numbers between 1 and 100?

Answer 1

class Armstrong{ public static void main(String args[]) { int num,rem,qub,sum=0,i; for(i=0; i<=999; i++) { num=i; sum=0; while(num>0) { rem=num%10; qub=rem*rem*rem; sum=sum+qub; num=num/10; } if(sum==i) { System.out.println("Print 1 to 1000 Armstrong Number",sum); } } } }

Answer 2

Private Sub Button1_Click(ByVal sender As System.Object,

ByVal

e As System.EventArgs)

Handles Button1.Click
Dim i, m, n, d As Integer
Dim s As Integer
For i =

1 To 1000
m =

i
n =

m
s =

0


While (n > 0)
d =

n Mod 10
s =

s + (d * d * d)
n =

n / 10

End While



Next
If s =

i Then

ListBox1.Items.Add(i)

End If



End Sub

Answer 3

Cls

input "enter a number"; n

s = n

while n <> 0

a = n mod 10

r = r + a ^ 3

n = fix(n / 10)

wend

if s = r then

print "the given number is armstrong"

else

print "it is not armstrong"

end if

Answer 4

simple Armstrong number