100到999的水仙花数是多少

题目

100到999的水仙花数是多少
请问用VB语言写出求100到999的水仙花数的代码是什么`

答案

dim i,a,b,c
for i=100 to 999
a=fix(i/100)
b=i mod 10
c=i-a*100+b*10
if i=a*a*a+b*b*b+c*c*c then
label1.caption=i(显示在标签上)
end if
next i
随便你想要什么地方显示