用VBA求出1000以内的阿姆斯特朗数如果一个正整数等于其各个数字的立方和，则称该数为阿姆斯特朗数。如407就是一个阿姆斯特朗数。求出1000以内的阿姆斯特朗数。

Question

用VBA求出1000以内的阿姆斯特朗数
如果一个正整数等于其各个数字的立方和，则称该数为阿姆斯特朗数。如407就是一个阿姆斯特朗数。求出1000以内的阿姆斯特朗数。

Answer 1

Sub 阿姆斯特朗数()
   For i = 10 To 1000
       For n = 1 To Len(i)
             k = k + Val(Mid(i, n, 1)) ^ Len(i)
       Next
       If k = i Then
         ss = ss & " | " & i
       End If
       k = 0
   Next
   MsgBox Mid(ss, 4)
End Sub

 

看了一下百科，好象不是固定立方的和，三位数是立方，四位就四次方 。一位的数字都没包含