Access专家课堂周年庆
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【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


Access软件网QQ交流群 (群号:86789465)       access源码网店

最新评论 查看更多评论(1)

2019/6/21 8:39:44宏鹏
涨知识啦,原来还有这样的名称! 水仙花数只是自幂数的一种,严格来说3位数的3次幂数才称为水仙花数。 附:其他位数的自幂数名字 一位自幂数:独身数 两位自幂数:没有 三位自幂数:水仙花数 四位自幂数:四叶玫瑰数 五位自幂数:五角星数 六位自幂数:六合数 七位自幂数:北斗七星数 八位自幂数:八仙数 九位自幂数:九九重阳数 十位自幂数:十全十美数

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

最新帖子

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助