dim i,a,b,c
for i=100 to 999
a=fix(i/100)
b=i mod 10
c=i-a*100+b*10
if i=a*a*a+b*b*b+c*c*c then
label1.caption=i(显示在标签上)
end if
next i
随便你想要什么地方显示