如果一个3位整数等于它的各位数字的立方和,则此数称为“水仙花数”,如153=13+53+33.编制

如果一个3位整数等于它的各位数字的立方和,则此数称为“水仙花数”,如153=13+53+33.编制程序求所有水仙花数.
(1)程序界面设计(截图):

(2)程序代码:

(3)运行结果(截图):

下面是Excel下的宏.其他程序你参照改编.
Sub Sxh()
Dim s1, s2, s3, m, n As Integer
m = 1
n = 1
For i = 101 To 999 Step 1
s1 = Val(Mid(i, 1, 1))
s2 = Val(Mid(i, 2, 1))
s3 = Val(Mid(i, 3, 1))
If i = s1 * s1 * s1 + s2 * s2 * s2 + s3 * s3 * s3 Then
Sheet1.Cells(m, n).Value = i
Sheet1.Cells(m, n + 1).Value = s1
Sheet1.Cells(m, n + 2).Value = s2
Sheet1.Cells(m, n + 3).Value = s3
m = m + 1
End If
Next
End Sub

运行结果共4个
153
370
371
407

本人是VB编程爱好者.追问

还有其他的么,

这好像不是VB

有没有简单一点的呢

拜托

温馨提示:内容为网友见解,仅供参考
无其他回答

...则此数称为“水仙花数”,如153=13+53+33.编制
运行结果共4个 153 370 371 407 本人是VB编程爱好者.

...则这个三位数就称为是水仙花数。如:153=13+53+33,
153=1^3+5^3+3^3 370=3^3+7^3+0^3 371=3^3+7^3+1^3 407=4^3+0^3+7^3

...如153就是一个水仙花数,153 = 13 + 53 + 33
153 = 1^3 + 5^3 + 3^3。370 = 3^3 + 7^3 + 0^3。371 = 3^3 + 7^3 + 1^3。407 = 4^3 + 0^3 + 7^3。

...则这个三位数就称为是水仙花数.如:153=13+53+33,所以
运行结果共4个 153 370 371 407 本人是VB编程爱好者.

...水仙花就是其中最迷人的代表,数学上有个水仙花数是这样定义的...
【问题描述】春天是鲜花的季节,水仙花就是其中最迷人的代表,数学上有个水仙花数是这样定义的:“水仙花数”是指一个三位数,它的各位数字的立方和等于其本身,比如:153=13+53+33。... 【问题描述】春天是鲜花的季节,水仙花就是其中最迷人的代表,数学上有个水仙花数是这样定义的: “水仙花数”是指一个三位数,它...

什么是阿姆斯特朗数?
阿姆斯特朗数也就是俗称的水仙花数,是指一个三位数,其各位数字的立方和等于该数本身。例如:153=13+53+33,所以 153 就是一个水仙花数。求出所有的水仙花数。算法思想 对于阿姆斯特朗数问题,根据水仙花数的定义,需要分离出个位数、十位数和百位数。然后按其性质进行计算并判断,满足条件则打印输出,...

水仙花数的定义是什么?
“水仙花数”是指一个三位数,它的各位数字的立方和等于其本身,比如:153=13+53+3^3。 现在要求输出所有在m和n范围内的水仙花数。输入数据有多组,每组占一行,包括两个整数m和n(100 ≤ m ≤ n ≤ 999)。对于每个测试实例,要求输出所有在给定范围内的水仙花数,就是说,输出的水仙花数必须...

水仙花数有哪些
水仙花数是指一个三位数,其各位数字的立方和等于该数本身。例如,153是一个水仙花数,因为13+53+33=153。那么,水仙花数有哪些呢?首先,我们可以列出所有的三位数,即从100到999。然后,对于每个数,我们可以计算其各位数字的立方和,如果等于该数本身,则该数就是一个水仙花数。经过计算,我们可以...

如何编程实现水仙花?
C语言具体实现水仙花过程如下:一、问题描述:输出所有的“水仙花数”,所谓的“水仙花数”是指一个三位数其各位数字的立方和等于该数本身,例如153是“水仙花数”,因为:153 = 13 + 53 + 33。二、问题分析:根据“水仙花数”的定义,判断一个数是否为“水仙花数”,最重要的是要把给出的三位数的...

“水仙花数”有名字来历吗?
因为水仙花的中心像一个杯子装着三个心(不知道是雄蕊还是雌蕊,很显眼的那种)而水仙花数是指一个三位数,各位上的数字三次方和与原数相等 这种数字很美,花也很美,就给这种数字取这样一个名字了!

相似回答