vb程序,水仙花数
的有关信息介绍如下:问题补充说明:编一个程序,显示所有的水仙花数。所谓的水仙花数,是指一个3位数,其各位数字立方和等于该数字本身。例如,153是水仙花数,因为153=1^3+5^3+3^3
PrivateSubForm_Click()
DimaAsInteger
DimbAsInteger
DimcAsInteger
DimdAsInteger
Ford=100To99市环病修念果飞切清目系9
a=d\100'求出百位数字
b=(d-a*100)\10'求出十位数字
c=dMod10'求应矿初煤标进出个位数字
If(a^3+b^3+c^3)=dThen
Printd
EndIf
Next
EndSub