编写VB代码，求4位“水仙花数”。即满足这样的条件的数：各位数字的4次方的和等于该数自身。写出程序代码

Answer 1

Dim a() As Integer, i As Integer, j As Integer, k As Integer, sum As Integer
k = -1
For i = 1000 To 9999
j = i
sum = (j \ 1000) ^ 4
j = j Mod 1000
sum = sum + (j \ 100) ^ 4
j = j Mod 100
sum = sum + (j \ 10) ^ 4
j = j Mod 10
sum = sum + j ^ 4
If sum = i Then
k = k + 1
ReDim Preserve a(k)
a(k) = i
End If
Next i

或者：
Dim a() As Integer, i As Integer, j As Integer, s As String, sum As Integer
j = -1
For i = 1000 To 9999
s = CStr(i)
sum = (Val(Mid(s, 1, 1))) ^ 4 + (Val(Mid(s, 2, 1))) ^ 4 + (Val(Mid(s, 3, 1))) ^ 4 + (Val(Mid(s, 4, 1))) ^ 4
If sum = i Then
j = j + 1
ReDim Preserve a(j)
a(j) = i
End If
Next i

结果为：a(0)=1634,a(1)=8208,a(2)=9474

后面自己随便处理找出来的结果了

也可以自定义过程
'a,b>0,<=32767
'Returned()下标为0
Private Sub GetShuixianhuashu(a As Integer, b As Integer, Returned() As Integer)
Dim i As Long, j As Integer, k As Integer, l As Integer, s As String, sum As Long
For i = a To b
s = CStr(i): l = Len(s): sum = 0
For j = 1 To l
sum = sum + (Val(Mid(s, j, 1))) ^ l
Next j
If sum = i Then
k = k + 1
ReDim Preserve Returned(k)
Returned(k) = i
End If
Next i
End Sub

这个过程可以查找1到32767之间的水仙花数
从结果看，有三位的水仙花数和四位的水仙花数（一位的太普通了）

Answer 2

抱歉，我不是你那个行业的，不大清楚。