导读 Dim a As Integer, b As Integer, c As Integer a=1 b=0 c=0 do while a
Dim a As Integer, b As Integer, c As Integer a=1 b=0 c=0 do while a<10 do while b<10 do while c<10 if a*a*a+b*b*b+c*c*c=a*100+b*10+c then print a*100+b*10+c end if c=c+1 loop b=b+1 loop a=a+1 loo。