DIM A AS INTEGER, B AS INTEGER, C AS INTEGER, N AS INTEGER, X AS INTEGER,Y AS INTEGER
CLS
FOR I=1 TO 9
FOR J=0 TO 9
FOR K=0 TO 9
X=A*A*A+B*B*B+C*C*C
Y=A*100+B*10+C
IF X=Y THEN 
N=N+1
? "N=";N,X
END  IF
NEXT C
NEXT B
NEXT A
END

上面的帖子nexxt 应该是 KJI
CLS
N=0
FOR I=100 TO 999
A=INT A(A/100)
B=INT AERRE

CLS
N=0 
FOR I=100 TO 999
A=INT (X/100)
B=INT ((X-100*A)/10)
C= X- INT(X/10)*10
IF X=A*A*A+B*B*B+C*C*C THEN
N=N+1
? "N=";N,X
END IF
NEXT I
END