水仙花數(shù)是指其個(gè)位、十位和百位3個(gè)數(shù)的立方和等于這個(gè)三位數(shù)本身。求所有的水仙花數(shù)。（java語言編程）？水仙花數(shù)在100-999之間所謂水仙花數(shù)（梅花數(shù)）是指一個(gè)三位整數(shù)（100-999之間）中的百位

水仙花數(shù)是指其個(gè)位、十位和百位3個(gè)數(shù)的立方和等于這個(gè)三位數(shù)本身。求所有的水仙花數(shù)。（java語言編程）？

水仙花數(shù)在100-999之間

所謂水仙花數(shù)（梅花數(shù)）是指一個(gè)三位整數(shù)（100-999之間）中的百位、十位和個(gè)位數(shù)的立方和，等于自身，如153=1^3 5^3^3。程序代碼如下：private sub command1uclick（）dim I as integer，s as integer dim a as integer，B as integer，C as integer print“100到999所有水仙花（也稱梅花數(shù)）：“for I=100到999 a=I100”take數(shù)百B=I10 mod 10”或B=I mod 10010 take tens C=I mod 10”take single digits s=a^3 B^3 C^3 “水仙號根據(jù)s=I判斷，然后打印I end if next iend sub運(yùn)行結(jié)果：100到999所有水仙號（也稱梅花號）：153 370 371 407

實(shí)現(xiàn)水仙號的VB程序代碼如下：private sub command uu Click（）for num=100到999 a=num mod 10 B=num10 mod 10 C=num 100如果a^3 B^3 C^3=num，則打印num next num end sub。具體步驟如下：1。啟動(dòng)VB程序并創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)exe項(xiàng)目。2在窗體上繪制一個(gè)命令按鈕（名稱：command），然后雙擊該命令按鈕進(jìn)入代碼窗口。三。接下來，為command按鈕編寫click事件。click事件的內(nèi)容是上面提供的程序代碼。4按F5運(yùn)行程序，點(diǎn)擊命令按鈕，輸出水仙號為4:153370371407。