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