CLEAR          
SET TALK OFF 
DEBUGOUT "下面是100至999之间的所有“水仙花数”！"  &&在调试窗口中输出
FOR I=100 TO 999
  I1=MOD(I,10)           &&个位上的数
  I2=MOD(INT(I/10),10)   &&十位上的数
  I3=INT(I/100)          &&百位上的数
  IF I=I1^3+I2^3+I3^3
    DEBUGOUT I   &&在调试窗口中输出I
    ? I
  ENDIF
ENDFOR
SET TALK ON
RETURN
