您的位置首页生活百科

vb程序,水仙花数

vb程序,水仙花数

的有关信息介绍如下:

问题补充说明:编一个程序,显示所有的水仙花数。所谓的水仙花数,是指一个3位数,其各位数字立方和等于该数字本身。例如,153是水仙花数,因为153=1^3+5^3+3^3

vb程序,水仙花数

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