VB编程督阳跑左伟什陆:求水仙花数

问题补充说明：求出"水仙花数" 所谓水仙花数是一个三位数,其各位数字立方和等于该数本身.例如:153是个水仙花数.因为153=1^3+5^3+3^3=153 要用messagebox显示结果. 谢谢 做完后再追加,害怕没人回答^-^

///编程求出所有的“水仙花数”：2006-10-1008有尼只却门华切参:43///

把下面代码复制到代码区，点击窗体触发事件

Privat目好核eSubForm_C汽万杂武正掉lick()

Dima,b,cAsInt裂右引布述害减神八此eger'a(个)b(十)c(百)

Fora=0To9

Forb=0To9

Forc=1To9

Ifa世渐鲁别志^3+b^3+c^3=a+10*b+100*cThen

MsgBox100*c+10*b+a

End车影缺村选If

Nextc

Nextb

Nexta

EndSub

烟花飘飘的空间，里面还有几个例子，你可以脱水门感商看看

http://hi标度利采高离载.baidu.com/yhpp521

标签：VB,督阳,左伟