以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [分享]水仙花数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80243)
--  作者：aduydgd
--  发布时间：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
--  发布时间：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
--  发布时间：2016/1/19 13:32:00
--  
下面的也好简单啊
--  作者：llh0824
--  发布时间：2016/1/19 14:32:00
--  
学习
--  作者：yyzlxc
--  发布时间：2016/1/19 18:09:00
--  
学习
--  作者：czy66ds
--  发布时间：2016/1/21 13:30:00
--  
看看
--  作者：ztmdnzc
--  发布时间：2016/1/21 16:18:00
--  
开眼了
--  作者：mzpc
--  发布时间：2016/8/31 12:30:00
--  
不是很明白，先看看
--  作者：ufsoft_88
--  发布时间：2016/11/24 13:02:00
--  
水仙