set talk off
clear &&清屏
c=0 &&计数,清零,如果不需要计数,删除此句
for i=0 to 999 &&范围0-999之间循环
g=mod(i,10) &&取个数
s= mod(int(i/10),10) &&取十位
b=int(i/100) &&取百位
if i=b^3+s^3+g^3 &&判断百位、十位和个位的立方和,是否等于原数
i &&如果满足条件,打印
c=c+1 &&计数,满足一次条件,加1 ,与c=0对应,不需要计数,删除此句
endif
endfor
"0-999范围内：该数的值=该数中各位数立方和共计："+alltrim(str(c))+"个"
return