Re: 等比等差，阿姆斯壯數，階層 dan114021 PTT批踢踢實業坊

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

作者: dan114021 ( Superyo) 2014-12-19 07:16:20

※ 引述《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

作者: MOONRAKER (㊣牛鶴鰻毛人) 2014-12-19 09:49:00

Armstrong number, 不是tree。

作者: dan114021 ( Superyo) 2014-12-19 10:30:00

手殘 ...

作者: ClubT (å°å–¬) 2014-12-19 11:39:00

其實有Armstrong tree http://i.imgur.com/C3L6OEv.jpg

作者: MOONRAKER (㊣牛鶴鰻毛人) 2014-12-21 19:11:00

那Armstrong Gun咧

作者: ClubT (å°å–¬) 2014-12-22 09:43:00

樓上應該是說這個對吧 http://i.imgur.com/ZLknurh.jpg

作者: Peruheru (還在想) 2014-12-22 10:09:00

Armstrong's Rifled Breech Loader

作者: fumizuki (矇面加菲獅) 2014-12-22 19:31:00

http://en.wikipedia.org/wiki/Armstrong_Gun

作者: MOONRAKER (㊣牛鶴鰻毛人) 2014-12-24 04:11:00

Neo-Armstrong Cyclone Jet Armstrong Gun

作者: Yaiba (緋心刀刃) 2014-12-27 17:15:00

這樣寫的缺點是效能差如果要算大範圍的話會很久優點是簡單易懂當報告剛剛好...不過變數還是不要I J K L比較好多改幾行效能就會差個十倍不過改的越多就越多人難看懂

作者: dan114021 ( Superyo) 2013-01-05 22:23:00

謝謝Y大指教小弟會在想想看

繼續閱讀

等比等差，阿姆斯壯數，階層as2990430 [VB6 ] 求救VB6與MS SQL連結問題x10837x [VB6 ] [VBA]請問如何append cmd window?erthe [VB6 ][VBA]請問 and 的問題gecer [問題] 建立WinCE7開發環境wheattea Re: [資訊] Line群組分享shen616 [VBA] 資料篩選使用變數?HugoStiglitz [VB6 ] 請問VB6 msgbox可以不用停止程序嗎gecer [VBA ] [VB6]尋找value座落的範圍gecer [VBA ] 一陣列符合行列則將資料放入rinoryouko