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

[dan114021 ( Superyo)]

※ 引述《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
→ MOONRAKER: Armstrong number, 不是tree。
→ dan114021: 手殘 ...
推 ClubT: 其實有Armstrong tree http://i.imgur.com/C3L6OEv.jpg
→ MOONRAKER: 那Armstrong Gun咧
→ ClubT: 樓上應該是說這個對吧 http://i.imgur.com/ZLknurh.jpg
推 Peruheru:  Armstrong's Rifled Breech Loader
→ fumizuki: http://en.wikipedia.org/wiki/Armstrong_Gun
→ MOONRAKER: Neo-Armstrong Cyclone Jet Armstrong Gun
推 Yaiba: 這樣寫的缺點是效能差 如果要算大範圍的話 會很久
→ Yaiba: 優點是簡單 易懂 當報告剛剛好...
→ Yaiba: 不過變數還是不要I J K L比較好
→ Yaiba: 多改幾行 效能就會差個十倍 不過改的越多 就越多人難看懂
→ dan114021: 謝謝Y大指教 小弟會在想想看