早教吧作业答案频道 -->其他-->
用VBA求出1000以内的阿姆斯特朗数如果一个正整数等于其各个数字的立方和,则称该数为阿姆斯特朗数。如407就是一个阿姆斯特朗数。求出1000以内的阿姆斯特朗数。
题目详情
用VBA求出1000以内的阿姆斯特朗数
如果一个正整数等于其各个数字的立方和,则称该数为阿姆斯特朗数。如407就是一个阿姆斯特朗数。求出1000以内的阿姆斯特朗数。
如果一个正整数等于其各个数字的立方和,则称该数为阿姆斯特朗数。如407就是一个阿姆斯特朗数。求出1000以内的阿姆斯特朗数。
▼优质解答
答案和解析
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
看了一下百科,好象不是固定立方的和,三位数是立方,四位就四次方 。一位的数字都没包含
看了 用VBA求出1000以内的阿...的网友还看了以下:
求一篇汤姆索亚历险记的读后感,要600字左右的,好一点啊!求一篇汤姆索亚历险记的读后感,要600字 2020-07-12 …
C语言模拟考试在线等1、如果一个正整数等于其各个数字的立方和,则该数称为阿姆斯特朗数。如:407= 2020-07-31 …
用vb做,一个正整输等于其各数字的立方和,则称该数为阿姆斯特朗数(亦称为自恋数).如407=4³+ 2020-07-31 …
用VBA求出1000以内的阿姆斯特朗数如果一个正整数等于其各个数字的立方和,则称该数为阿姆斯特朗数 2020-07-31 …
修理收音机时,需要一只一千欧姆的电阻,但手边只有三千欧姆的电阻4只和0.5千欧姆及0.4千欧姆的电阻 2020-11-21 …
英语翻译父亲签名一天,汤姆去上学,第一节是数学课.老师把作业本扔给汤姆,生气的说:“看你写的作业,没 2020-12-02 …
理解并会熟练操作欧姆表,是高中物理学习必须掌握的一种能力.(1)如图所示是一个欧姆表的外部构造示意图 2020-12-03 …
某实验小组用如下器材设计一个欧姆表:A.电流表A(满偏电流为Ig,内阻为Rg)B.电源:电动势为E, 2020-12-07 …
为了测量一个欧姆表的内部电源的电动势,某同学仅利用提供给他的一个量程满足测量要求、内阻约为几千欧的电 2020-12-18 …
(15分)要测量一只欧姆表的电源电动势,某同学仅利用提供给他的一只量程满足测量要求且内阻约为2-3千 2020-12-18 …