1樓：匿名使用者
private sub form_click()dim a as long, b as long, c as long, x as long, y as long, z as long, t as long
t = a * 100 + b * 10 + cfor a = 1 to 9
for b = 1 to 9
for c = 1 to 9
z = c ^ 3
y = b ^ 3
x = a ^ 3
if t = x + y + z thenprint a
print b
print c
next c
next b
next a
end sub
2樓：生鏽的鐵絲網
dim a,b,c
for a=1 to 9
for b=0 to 9
for c=0 to 9
if(a^3+b^3+c^3=a*100+b*10+c) thendocument.write a*100+b*10+c&" "
end if
next
next
next
3樓：匿名使用者
當然了，你的程式沒有判斷，而且是在迴圈體外列印，所以跟下面的沒什麼區別
dim a as long, b as long, c as long, x as long, y as long, z as long, t as long
for a = 1 to 9
for b = 1 to 9
for c = 1 to 9
next c
next b
next a
print a
print b
print c
end sub
剛剛水仙花數定義弄錯，我就把計算程式刪了，呵呵
水仙花數的流程圖
4樓：聖宣朗
所謂「水仙花數」是指一個三位數,其各位數字立方和等於該數
本身。例如：153是一個「水仙花數」,因為153=1的三次方＋5的三次方＋3的三次方。
給你舉例說明
求出100至999之間的所有「水仙花數」
找出100--999之間的所有「水仙花數」。所謂「水仙花數」是指一個三個數，其各位數字的立方和等於身。
解此題的關鍵是怎能樣從一個三位數中分離百位數、十位數、個位數。可以這樣做，設該三位數以i代表，由a,b,c三個數字組成。
(1)百位數字a:a=int(i/100).
(2)十位數字b:b=int((i-100*a)/10)
(3)百位數字c:c=i-int(i/10)*10.
具體程式如下：
for i=100 to 999
a=int(i/100)
b=int((i-100*a)/10)
c=i-int(i/10)*10
if i=a*a*a+b*b*b+c*c*c then print i
next 1
end其結果為：153\370/371/407
引用------回答者：吳田田 - 大學士 十六級
5樓：
你應該是要水仙花數源程式吧??
如果是的話,下面這個可以幫你看下:1.
水仙花的詩歌，水仙花的詩歌
水仙花宋 黃庭堅 凌波仙子生塵襪，水上輕盈步微月。是誰招此斷腸魂，種作寒花寄愁絕。含香體素欲傾城，山礬是弟梅是兄。坐對真成被花惱，出門一笑大江橫。水仙花宋 劉邦直 得水能仙天與奇，寒香寂寞動冰肌。仙風道骨今誰有?淡掃蛾眉篸一枝。水仙花宋 楊萬里 韻絕香仍絕，花清月未清。天仙不行地，且借水為名。開處誰...
水仙花的含義，水仙花的寓意是什麼？
產於中國，又叫中國水仙 水仙花簡介 水仙花是中國十大名花之一 福建省花，漳州市花。每當暮冬歲首，百花凋謝 群芳俱寂時，水仙卻冰肌玉骨 亭亭玉立 清香四溢，為人們帶來一片春意，一向被視為吉祥 美好 純潔 高尚的象徵，是 歲朝清供 之佳品。被人們稱為 凌波仙子 水仙鱗莖球經過藝術加工，把人們的情感 水仙...
水仙花的作文，水仙花作文300字
有人喜歡紅色而又豔麗的玫瑰花，有人喜歡芬芳撲鼻的桂花，而我卻喜歡那淡雅的水仙花。水仙花在一盆水和一些小石子裡就能生長。它的生長環境就是這樣簡單。水仙花小的時候是一個小球，慢慢地長葉 開花。小小的花朵綻放出片片白色的花瓣。水仙花美麗極了！有的花剛剛開，除了那白色的花瓣，還露出了裡面黃色的花芯，有的還是...