set talk off
clear
use b01
COPY TO B02
USE B02   
   I=100
   DO WHILE I<=999
   A=INT(I/100)
   B=INT((I-100*A)/10)
   C=I-INT(I/10)*10
   IF I=A^3+B^3+C^3  
     ?I
      append blank
      REPL 水仙花数 WITH I
   ENDIF
   I=I+1   
  enddo
SET TALK ON
RETURN
我现在去掉那些，这样就可以执行回来了

学习VFP的关键，应该是对VFP命令、函数的正确理解，多看多上机操作

什么叫“水仙花数”？

水仙花数就是指一个三位数，其各位数字的立方和等于该数本身，比如：153=1^3+5^+3^3