用vb做,一个正整输等于其各数字的立方和,则称该数为阿姆斯特朗数（亦称为自恋数）.如407=4³+0³+7³就是一个阿姆斯特朗数.求1000以内的所有阿姆斯特朗数.

Question

用vb做,
一个正整输等于其各数字的立方和,则称该数为阿姆斯特朗数（亦称为自恋数）.如407=4³+0³+7³ 就是一个阿姆斯特朗数.求1000以内的所有阿姆斯特朗数.

Answer 1

循环一下不就可以了?
For i = 100 To 1000
Dim s()
If (i = Mid(i, 1, 1) ^ 3 + Mid(i, 2, 1) ^ 3 + Mid(i, 3, 1) ^ 3) Then
Debug.Print "自恋数：" & i
End If
Next