示例下载:
点击下载此附件
图片演示:
主要代码:
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