如果一个3位整数等于它的各位数字的立方和，则此数称为“水仙花数”，如153=13+53+33.编制程序求所有水仙花数.（1）程序界面设计（截图）：（2）程序代码：（3）运行结果（截图）：

Question

如果一个3位整数等于它的各位数字的立方和，则此数称为“水仙花数”，如153=13+53+33.编制程序求所有水仙花数.
（1）程序界面设计（截图）：
（2）程序代码：
（3）运行结果（截图）：
我在线等，拜托啦

Answer 1

下面是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编程爱好者.