我用QB给你写一个程序吧.
CLS
FOR i=100 TO 999
a=i\100
b=(i-a*100)\10
c=i MOD 10
m=a^3+b^3+c^3
IF m=i THEN PRINT i;
NEXT i
END
运行后的结果是153370371407