编写vb:“水仙花数”是指一个3位数,其各位数的立方和等于该数,如153=1^3+5^3+3^3.编写程序,打印出一定要正确的哦打印出去100到1000之间的所有水仙花数

问题描述:

编写vb:“水仙花数”是指一个3位数,其各位数的立方和等于该数,如153=1^3+5^3+3^3.编写程序,打印出
一定要正确的哦
打印出去100到1000之间的所有水仙花数

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
就这四个