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
: 请问有上述公式的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 ![]()
" target="_blank" rel="nofollow">
![]()
" target="_blank" rel="nofollow">作者: MOONRAKER (㊣牛鹤鳗毛人) 2014-12-21 19:11:00
那Armstrong Gun咧
作者: ClubT (å°å–¬) 2014-12-22 09:43:00
楼上应该是说这个对吧 ![]()
" target="_blank" rel="nofollow">
![]()
" target="_blank" rel="nofollow">作者: Peruheru (还在想) 2014-12-22 10:09:00
Armstrong's Rifled Breech Loader
作者: fumizuki (蒙面加菲狮) 2014-12-22 19:31:00
作者: 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大指教 小弟会在想想看