求大神帮忙编程，把VB语言发给我：水仙花数是指一个n(n>=3)位数，每一位数字的n次幂的和正好等于这个数本身。如，153是一水仙花数，因为153=1的3次方+5的3次方+3的3次方。VB编程计算（E-mail

Question

求大神帮忙编程，把VB语言发给我：
水仙花数是指一个n(n>=3)位数，每一位数字的n次幂的和正好等于这个数本身。如， 153是一水仙花数，因为153=1的3次方+5的3次方+3的3次方。VB编程计算（E-mail递交），要求如下：
（1）找出所有三位数的水仙花数；
（2）找出所有四位数的水仙花数；
（3）找出所有五位数的水仙花数；

Answer 1

给你一个（1）的答案，其他它相似的：
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
For i = 100 To 999
a = i \ 100
b = (i Mod 100) \ 10
c = i Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Print "i ="; i; "="; a; "^3 + "; b; "^ 3 + "; c; " ^ 3 = "; a ^ 3; "+"; b ^ 3; "+"; c ^ 3; "="; i
End If
Next i