編程100~999中的水仙花數。水仙花數指壹個三位數，它的每位數字立方之和等於該數。

代碼如下

FOR i=100 to 999

a=ALLTRIM(STR(i))

FOR j=1 to 3

k=ALLTRIM(STR(j))

c&k=SUBSTR(a,j,1)

ENDFOR

c=VAL(c1)^3+VAL(c2)^3+VAL(c3)^3

IF c=i

MESSAGEBOX("這個數為："+alltrim(STR(i)))

ENDIF

ENDFOR