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“水仙花數(shù)根據(jù)s=I判斷，然后打印I end if next iend sub運(yùn)行結(jié)果：100到999所有水仙花數(shù)（也稱梅花數(shù)）：153 370 371 407

1。首先啟動(dòng)VB6.0并創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)exe項(xiàng)目。

2. 在窗體上繪制命令按鈕（名稱：command1），雙擊命令按鈕進(jìn)入代碼窗口。

3. 接下來，讓我們?yōu)閏ommand按鈕編寫click事件。首先，設(shè)置三個(gè)變量a、B、C，然后給這三個(gè)變量賦值。假設(shè)我們判斷150，那么a=150 mod 10，那么a=0。類似地，B=15010 mod 10，所以B=5。等等。如果它等于它自己，那么它就是水仙數(shù)（梅花數(shù)），否則它就不是水仙數(shù)。

4. 接下來，我們可以按F5運(yùn)行測試，單擊命令按鈕，并輸出所需的結(jié)果。