Question

用VB编写：找出所有的“水仙花数”。 “水仙花数”是指一个三位数，其各位数字的立方和等于该数本身

Answer 1

Private Sub Form_Click()

Dim i, j, m, n As Integer

For n = 100 To 999

i = n 100

j = (n Mod 100) 10

m = n Mod 10

If i ^ 3 + j ^ 3 + m ^ 3 = n Then

Print n; "="; i; "^3+"; j; "^3+"; m; "^3"

End If

Next n

End Sub