一个n位正整数,其各位数的n次方之和等于这个数,称这个数为Armstrong数.例如,153=1^3+5^3+3^3,试编程最好用函数编

Question

一个n位正整数,其各位数的n次方之和等于这个数,称这个数为Armstrong数.例如,153=1^3+5^3+3^3,试编程
最好用函数编

Answer 1

Option Explicit
Private Sub Command1_Click()
Dim n As Integer, p As Integer
For n = 100 To 999
p = n
Call arm(n, p)
If p = n Then
List1.AddItem (n)
End If
Next n
End Sub
Private Function arm(ByVal m As Integer, q As Integer)
m = Mid(CStr(m), 1, 1) ^ 3 + Mid(CStr(m), 2, 1) ^ 3 + Mid(CStr(m), 3, 1) ^ 3
q = m
End Function