Foxtable(狐表)用户栏目专家坐堂 → [分享]水仙花数


  共有2575人关注过本帖树形打印复制链接

主题:[分享]水仙花数

帅哥哟,离线,有人找我吗?
aduydgd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
[分享]水仙花数  发帖心情 Post By:2016/1/19 11:23:00 [只看该作者]

水仙花数
说明:水仙花数是指一个 n 位数 ( n≥3 ),它的每个位上的数字的 n 次幂之和等于它本身。(例如:1^3 + 5^3 + 3^3 = 153)
三位的水仙花数共有4个:153,370,371,407
四位的水仙花数共有3个:1634,8208,9474
五位的水仙花数共有3个:54748,92727,93084
六位的水仙花数只有1个:548834
七位的水仙花数共有4个:1741725,4210818,9800817,9926315
八位的水仙花数共有3个:24678050,24678051,88593477

 


以下内容只有回复后才可以浏览


 回到顶部
帅哥哟,离线,有人找我吗?
ybil
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:521 积分:4910 威望:0 精华:7 注册:2008/9/2 22:22:00
  发帖心情 Post By:2016/1/19 12:51:00 [只看该作者]

這個通用點:

Dim n1,n2,n3,i ,sum2 As Integer
Dim  s1 As String

For n1 = 100 To 9999
    s1= n1
    i = s1.Length-1
    sum2=0
    
    For n2 = 0 To i
        n3 = s1.substring(n2,1)
        sum2+= n3^(i+1)
    Next n2

    If sum2 = n1  Then  Output.Show(n1)

Next  n1

 回到顶部
帅哥哟,离线,有人找我吗?
aduydgd
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
  发帖心情 Post By:2016/1/19 13:32:00 [只看该作者]

下面的也好简单啊

 回到顶部
帅哥哟,离线,有人找我吗?
llh0824
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:226 积分:1655 威望:0 精华:0 注册:2015/11/26 16:03:00
  发帖心情 Post By:2016/1/19 14:32:00 [只看该作者]

学习

 回到顶部
帅哥哟,离线,有人找我吗?
yyzlxc
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2016/1/19 18:09:00 [只看该作者]

学习

 回到顶部
帅哥哟,离线,有人找我吗?
czy66ds
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1684 积分:16374 威望:0 精华:0 注册:2013/7/31 13:03:00
  发帖心情 Post By:2016/1/21 13:30:00 [只看该作者]

看看

 回到顶部
帅哥哟,离线,有人找我吗?
ztmdnzc
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:501 积分:4167 威望:0 精华:0 注册:2013/1/18 13:34:00
  发帖心情 Post By:2016/1/21 16:18:00 [只看该作者]

开眼了

 回到顶部
帅哥哟,离线,有人找我吗?
xuanxiao
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:640 积分:5407 威望:0 精华:0 注册:2014/8/27 11:12:00
  发帖心情 Post By:2016/1/21 16:20:00 [只看该作者]

用户已经被屏蔽

 回到顶部
帅哥哟,离线,有人找我吗?
mzpc
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:99 积分:614 威望:0 精华:0 注册:2014/5/28 12:11:00
  发帖心情 Post By:2016/8/31 12:30:00 [只看该作者]

不是很明白,先看看

 回到顶部
美女呀,离线,留言给我吧!
ufsoft_88
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:846 威望:0 精华:0 注册:2016/5/12 11:26:00
  发帖心情 Post By:2016/11/24 13:02:00 [只看该作者]

水仙

 回到顶部