Private Sub Command1_Click()
For i = 100 To 1000
g = Mid(i,1,1)
s = Mid(i,2,1)
b = Mid(i,3,1)
If i = g * g * g + s * s * s + b * b * b Then
Print i
End If
Next i
End Sub
153
370
371
407
就这四个