100到999的水仙花数是多少
请问用VB语言写出求100到999的水仙花数的代码是什么`
人气:451 ℃ 时间:2019-12-29 16:48:31
解答
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
随便你想要什么地方显示
推荐
猜你喜欢
- 在三角形ABC中,求证 a^2(b+c-a)+b^2(c+a-b)+c^2(a+b-c)
- 如果一个整数,与123这三个数通过加减乘除运算(可添加括号)组成算式,能使结果等于24,那么这个整数就成为
- 【在线等】我之所以如此,或许是因为有某种力量在鞭策着我.鞭策在句中有什么含义?
- 有几头一片牧场,草每天都均速地生长,如果放养24头牛,则6天吃完牧草;如果放养21头牛,则8天吃完牧草,
- 如果关于x的方程x2+2x+a=0的一个实数根的倒数恰是它本身,那么a的值是多少?
- You can't take your computer game to school改为祈使句
- the trip is about two hours.划线about two hours
- 帮忙写一篇关于“ 你为什么喜欢英语”的 英语作文