【Access示例】求水仙花数-will.miao
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【Access示例】求水仙花数

发表时间:2019/6/21 8:30:13 评论(1) 浏览(4759)  评论 | 加入收藏 | 复制
   
摘 要:所谓水仙花数,是指一个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

Access软件网交流QQ群(群号:198465573)
 
 相关文章
【Access扫盲知识】被Format转换后的数据类型问题  【麥田  2017/11/13】
【Access基础】求一维数组的最小值的自定义函数  【仙来  2018/8/19】
【Access示例】根据区间获得区间内的数字  【姚泱  2018/8/26】
【Access示例】猜数字游戏  【杨雪  2019/4/13】
【Access源码示例】平均分解数据的示例,零头单独显示为一行,拆...  【金宇  2019/4/28】
【Access示例】生成不重复的随机数  【缪炜  2019/6/14】
【Access示例】求水仙花数  【缪炜  2019/6/21】
常见问答
技术分类
相关资源
文章搜索
关于作者

will.miao

文章分类

文章存档

友情链接