求水仙花数

所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如，153是水仙花数，因为 153 = 1^3+5^3+3^3。

一、图片演示:

二、主要代码:

Dim a As Integer, b As Integer, c As Integer, d As Integer

Dim strNumber As String

For a = 1 To 9

For b = 0 To 9

For c = 0 To 9

d = 100 * a + b * 10 + c

If d = a ^ 3 + b ^ 3 + c ^ 3 Then strNumber = strNumber & d & “;”

Next c

Next b

Next a

三、示例下载:

在“了解更多”里下载。