早教吧作业答案频道 -->数学-->
用vb做,一个正整输等于其各数字的立方和,则称该数为阿姆斯特朗数（亦称为自恋数）.如407=4³+0³+7³就是一个阿姆斯特朗数.求1000以内的所有阿姆斯特朗数.
题目详情
用vb做,
一个正整输等于其各数字的立方和,则称该数为阿姆斯特朗数（亦称为自恋数）.如407=4³+0³+7³ 就是一个阿姆斯特朗数.求1000以内的所有阿姆斯特朗数.
一个正整输等于其各数字的立方和,则称该数为阿姆斯特朗数（亦称为自恋数）.如407=4³+0³+7³ 就是一个阿姆斯特朗数.求1000以内的所有阿姆斯特朗数.
▼优质解答
答案和解析
循环一下不就可以了?
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
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
看了 用vb做,一个正整输等于其各...的网友还看了以下：
光明食品店只有一台不等臂的天平和一只1kg的砝码,王阿姨想买2kg的糖果,售货员先将砝码放在左盘, 2020-05-13 …
过抛物线的一条弦的中点作平行于抛物线的轴的平行线,交抛物线于一点,称以该点及弦的端点为顶点的三角形 2020-05-13 …
小悦、冬冬、阿奇三人去称体重，由于秤出了点问题，只能准确称出60千克与90千克之间的重量，因此他们 2020-05-16 …
国王怀疑工匠在金冠中掺了银子,于是请阿基米德来检验,条件是不对金冠有任何损坏.阿基米德先称出金冠重 2020-07-05 …
《阿长与<山海经>》中的“阿长”是对本人的（）A.尊称B.蔑称C.昵称D.一般称呼 2020-07-07 …
小明郊游发现一块外形不规则的石头,为了测定它的密度,小明称出石头和一个称满水的容器的质量分别为0. 2020-07-24 …
如果一个正整数等于组成该数的各个数字的立方和，则称该数为水仙花数，亦称阿姆斯特朗数。如407=43 2020-07-31 …
用VBA求出1000以内的阿姆斯特朗数如果一个正整数等于其各个数字的立方和，则称该数为阿姆斯特朗数 2020-07-31 …
用VBA求100到1000的阿姆斯特朗数，我哪里错了如果一个正整数等于其各个数字的立方和，则称该数为 2020-11-01 …
阅读阿根廷相关材料，回答下列问题．材料一阿根廷简图材料二阿根廷是世界粮食和肉类重要生产国和出口国，素 2020-12-17 …