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

发布时间：2021-03-18 13:45:48

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 ifnext i随便你想要什么地方显示

以上问题属网友观点，不代表本站立场，仅供参考！