for i=100  to 999
a=imod10
b=i\10mod10
c=i\100mod10
if a*a*a+b*b*b+c*c*c=i then  print  i;
next i
end


或者：
for i=1 to 9
for j=0 to 9
for k=0 to 9
if i*100+j*10+k=i*i*i+j*j*j+k*k*K  then  i*100+j*10+k;
next k
next j
next i
end

for i=100 to 999
j=i:s=0
         while j<>0
               s=s+(i mod 10)^3
               j=j\10
         wend
   if i=s then print i;"是水仙花数"
next i
end

for i= 100 to 999
a=i\100
b=i\10-a*10
c=i mod 10
if a^3+b^3+c^3=i then
print i;
x=1
end if
next i
if x=0 then print "没有水鲜花树！"
end

fvfd