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
随便你想要什么地方显示
100到999的水仙花数是多少
100到999的水仙花数是多少
请问用VB语言写出求100到999的水仙花数的代码是什么`
请问用VB语言写出求100到999的水仙花数的代码是什么`
其他人气:795 ℃时间:2019-12-29 16:48:31
优质解答
我来回答
类似推荐
猜你喜欢
- 1在三角形ABC中,求证 a^2(b+c-a)+b^2(c+a-b)+c^2(a+b-c)
- 2如果一个整数,与123这三个数通过加减乘除运算(可添加括号)组成算式,能使结果等于24,那么这个整数就成为
- 3【在线等】我之所以如此,或许是因为有某种力量在鞭策着我.鞭策在句中有什么含义?
- 4有几头一片牧场,草每天都均速地生长,如果放养24头牛,则6天吃完牧草;如果放养21头牛,则8天吃完牧草,
- 5如果关于x的方程x2+2x+a=0的一个实数根的倒数恰是它本身,那么a的值是多少?
- 6You can't take your computer game to school改为祈使句
- 7the trip is about two hours.划线about two hours
- 8帮忙写一篇关于“ 你为什么喜欢英语”的 英语作文
- 9一个1000匝的线圈,0.4秒内穿过每匝线圈的磁通量都从0.01韦伯均匀增加到0.09韦伯,求线圈中的感应电动势,如果线圈的电阻是10欧,当它跟90欧的电热器串联组成闭合电路时,通过电热器的电流是多大?
- 10酵母菌比乳酸菌高等,复杂,主要是因为酵母菌细胞具有( ) A.细胞壁 B.细胞膜 C.成形细胞核 D.遗传物质