VB編程水仙花數(shù)？所謂水仙數(shù)（梅花數(shù)）是指百、十、一的三位數(shù)整數(shù)（100到999）的立方和，如153=1^3 5^3^3。程序代碼如下：private sub command1uclick（）dim

VB編程水仙花數(shù)？

所謂水仙數(shù)（梅花數(shù)）是指百、十、一的三位數(shù)整數(shù)（100到999）的立方和，如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“水仙號(hào)根據(jù)s=I判斷，然后打印I end if next iend子運(yùn)行結(jié)果：100到999所有水仙號(hào)（也稱梅花號(hào)）：153 370 371 407

打印所有水仙號(hào)。所謂水仙數(shù)是指一個(gè)三位數(shù)的數(shù)，每一位數(shù)的立方和等于這個(gè)數(shù)本身。例如：153是一個(gè)“水仙數(shù)”，因?yàn)?53=1到三次方+5到三次方+3到三次方。

1. 程序分析：用for循環(huán)控制100-999個(gè)數(shù)字，每個(gè)數(shù)字分解成位、十位和百位。

源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：as（n=100N）for（n=100N

！[int，J，J，K，N，K，N

printf（水花是水花數(shù)的數(shù)字，它是水花數(shù)的數(shù)字，水花數(shù)的數(shù)字是水花數(shù)的數(shù)字，這個(gè)數(shù)字是這個(gè)數(shù)字的數(shù)字，J，J，K，N，K，N

！]（源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼：源代碼包括

2。注意

把n除以100得到n的個(gè)數(shù)Hun。

將（n-i*100）除以10（或先將n除以10，然后將n/10 ?；┑玫絥的數(shù)字10。

取n到10的余數(shù)，得到n的位數(shù)ind。

找出這三個(gè)數(shù)的立方和是否等于自身。如果是的話，數(shù)字就是水仙數(shù)字。