用VB编写程序实现求水仙花数？谢谢啦！

Private Sub Form_Click()
Dim i%, j%, m%, n%
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

或者
Private Sub Form_Click()
Dim i%, j%, m%, n%
n = 100
While n < 1000
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
n = n + 1
Wend
End Sub

dim i%,num%(),k%
k=1
for i=100 to 999
if i=(cint(i/100)^3)+(cint(i/10) mod 10)^3+(i mod 10)^3 then
num(k)=i:k=k+1
end if
next i
（只做参考）

百度问过很多次了，你可以搜一下。