一个N位数等于其各个位的数的N次方之和

Module Tester

Sub Main()
For i As Int32 = 0 To 5000
If CheckNumber(i) Then
Console.WriteLine(i)
End If
Next i
End Sub

Function CheckNumber(ByVal n As Int32) As Boolean
Dim exp = GetDigits(n), sum As Int32 = 0
Dim tmp = n
While tmp > 0
sum += System.Math.Pow(tmp Mod 10, exp)
tmp \= 10
End While
Return n = sum
End Function

Function GetDigits(ByVal n As Int32) As Int32
Dim i As Int32 = 0
Do
i = i + 1
n \= 10
Loop While n > 0
Return i
End Function

End Module

水仙花数吗？ 比如153等 可以去百度搜下
http://baike.baidu.com/view/152077.htm
可以用C语言编程

解：设这个四位数为m，四个数之和为n，
显然，1000≤m≤9999
易知：5的4次方=625
6的4次方=1296
7的4次方=2401
8的4次方=4096
9的4次方=6561
10的4次方=10000
可得，n的取值范围是