編寫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
就這四個