【Access示例】求水仙花数

时　间:2019-06-21 08:30:13
作　者:缪炜   ID：24010  城市：江阴
摘　要:所谓水仙花数，是指一个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