为何不能将求出的“100-999间所有水仙花数”填入表中?
题目要求:将求出的“100-999间所有水仙花数”填入表b02中,b02中只有一个“水仙花数”字段我写的这个代码感觉是对的,为何几个水仙花数的值加不进表里去,已经用了append blank?求解答,谢谢!
set talk off
clear
USE B02
P=1
do while not eof()
GO P
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
append blank
REPL 水仙花数 WITH I
ENDIF
I=I+1
ENDDO
P=P+1
enddo
SET TALK ON
RETURN