大家好，我是小曜，我来为大家解答以上问题。求100到499的水仙花数，求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

随便你想要什么地方显示

本文到此讲解完毕了，希望对大家有帮助。