作者dan114021 ( Superyo)
看板Visual_Basic
標題Re: 等比等差，阿姆斯壯數，階層
時間Fri Dec 19 07:16:20 2014
※ 引述《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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1418944582.A.8D0.html
1F：→ MOONRAKER: Armstrong number, 不是tree。 12/19 09:49
2F：→ dan114021: 手殘 ... 12/19 10:30
4F：→ MOONRAKER: 那Armstrong Gun咧 12/21 19:11
6F：推 Peruheru: Armstrong's Rifled Breech Loader 12/22 10:09
8F：→ MOONRAKER: Neo-Armstrong Cyclone Jet Armstrong Gun 12/24 04:11
9F：推 Yaiba: 這樣寫的缺點是效能差 如果要算大範圍的話 會很久 12/27 17:15
10F：→ Yaiba: 優點是簡單 易懂 當報告剛剛好... 12/27 17:15
11F：→ Yaiba: 不過變數還是不要I J K L比較好 12/27 17:16
12F：→ Yaiba: 多改幾行 效能就會差個十倍 不過改的越多 就越多人難看懂 12/27 17:18
13F：→ dan114021: 謝謝Y大指教 小弟會在想想看 01/05 22:23