PTT數位生活區 / Visual_Basic

Re: 等比等差，阿姆斯壯數，階層

看板Visual_Basic作者 ( Superyo)時間10年前 (2014/12/19 07:16), 編輯推噓3(3推 0噓 10→)
留言13則, 6人參與, 最新討論串2/2 (看更多)
※ 引述《as2990430 (as2990430)》之銘言： : 請問有上述公式的vb語言公式嗎 : 做報告要用的 : 先謝謝各位不吝嗇分享 : 整個沒有頭緒 我有以前寫過的阿姆斯壯樹 我用VB.net 阿姆斯壯樹 從3位數開始 下列程式碼是找3位數到4位數 Dim sum As Integer Dim ans As New ArrayList For i = 100 To 9999 sum = 0 For j = 1 To i.ToString.Length sum += Mid(i.ToString, j, 1) ^ i.ToString.Length Next If sum = i Then ans.Add(i) Next 小弟不才 還請高手指點指教 報告還是自己寫比較好XD -- Sent from my Android -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.143.51.47 ※ 文章網址: http://www.ptt.cc/bbs/Visual_Basic/M.1418944582.A.8D0.html
→
12/19 09:49, , 1F
Armstrong number, 不是tree。
12/19 09:49, 1F
→
12/19 10:30, , 2F
手殘 ...
12/19 10:30, 2F
推
12/19 11:39, , 3F
其實有Armstrong tree http://i.imgur.com/C3L6OEv.jpg
12/19 11:39, 3F
→
12/21 19:11, , 4F
那Armstrong Gun咧
12/21 19:11, 4F
→
12/22 09:43, , 5F
樓上應該是說這個對吧 http://i.imgur.com/ZLknurh.jpg
12/22 09:43, 5F
推
12/22 10:09, , 6F
Armstrong's Rifled Breech Loader
12/22 10:09, 6F
→
12/22 19:31, , 7F
12/22 19:31, 7F
→
12/24 04:11, , 8F
Neo-Armstrong Cyclone Jet Armstrong Gun
12/24 04:11, 8F
推
12/27 17:15, , 9F
這樣寫的缺點是效能差 如果要算大範圍的話 會很久
12/27 17:15, 9F
→
12/27 17:15, , 10F
優點是簡單 易懂 當報告剛剛好...
12/27 17:15, 10F
→
12/27 17:16, , 11F
不過變數還是不要I J K L比較好
12/27 17:16, 11F
→
12/27 17:18, , 12F
多改幾行 效能就會差個十倍 不過改的越多 就越多人難看懂
12/27 17:18, 12F
→
01/05 22:23, , 13F
謝謝Y大指教 小弟會在想想看
01/05 22:23, 13F
‣ 更多 dan114021 的文章
文章代碼(AID): #1Kas16ZG (Visual_Basic)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
排序： 最新先 | 最舊先 | 留言數
在新視窗開啟完整討論串 (共2篇)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 dan114021 的文章
文章代碼(AID): #1Kas16ZG (Visual_Basic)