作者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/cn.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