用VBA解欧拉计划题目（1）

exc姜 · 发表于 2017-11-1 06:20

好好

上清宫主 · 发表于 2017-11-1 09:48

还是认为先解决数学问题，再用电脑来解决此数学问题：
n = 10000
i = n \ 3
s = 3 * (1 + i) * i / 2 '3的倍数的和
i = n \ 5
s = s + 5 * (1 + i) * i / 2 '5的倍数的和
i = n \ 15
s = s - 15 * (1 + i) * i / 2 '3和5共同的倍数多算了
其它的也有这个感觉：先数学，再编程

香川群子 · 发表于 2017-11-1 10:25

大灰狼1976 发表于 2017-10-31 16:48
我就想知道一下如果需要3个数的倍数（比如3、5、7）时，用下面那种方法应该如何操作。

超过2个倍数就没有意义了。

还不如筛选法把各个倍数过一次，最后遍历一遍统计求和。这样方便。

香川群子 · 发表于 2017-11-1 10:34

grf1973 发表于 2017-10-31 19:23
呃，还得减去多算的3*5*7的倍数。貌似多算了两次。。。。。

应该是，还需要再加上3*5*7的倍数。因为这些数，会在扣除3*5/3*7/5*7时被多扣一次。

grf1973 · 发表于 2017-11-1 10:37

对的。所以三个以上这样做就没意思了，要考虑的因素太多，还不如直接mod判断。

香川群子 · 发表于 2017-11-1 10:37

经验证，还是扣去倍数的算法-2更快。

Sub SpeedCompare()
Dim i&, j&, k&, m&, n&, mySub$, tms#
k = 1 * 10 ^ 3: Debug.Print vbCr; "Run Count: "; Format(k, "#,##0")
n = 50000
For i = 1 To 3
mySub = "test" & i: tms = Timer
For j = 1 To k
Run mySub, n
Next
Debug.Print mySub; Format(Timer - tms, " 0.0000s")
Next
Debug.Print "--End--"
End Sub
Sub test1(n&)
Dim i&, s&
For i = 1 To n
If i Mod 3 = 0 Or i Mod 5 = 0 Or i Mod 7 = 0 Then s = s + i
Next
End Sub
Sub test2(n&)
Dim i&, s&, t&
For i = 3 To n Step 3
s = s + i
Next
For i = 5 To n Step 5
s = s + i
Next
For i = 7 To n Step 7
s = s + i
Next
t = 3 * 5
For i = t To n Step t
s = s - i
Next
t = 3 * 7
For i = t To n Step t
s = s - i
Next
t = 5 * 7
For i = t To n Step t
s = s - i
Next
t = 3 * 5 * 7
For i = t To n Step t
s = s + i
Next
End Sub
Sub test3(n&)
Dim i&, s&
ReDim a(n) As Boolean
For i = 3 To n Step 3
a(i) = True
Next
For i = 5 To n Step 5
a(i) = True
Next
For i = 7 To n Step 7
a(i) = True
Next
For i = 1 To n
If a(i) Then s = s + i
Next
End Sub

复制代码

grf1973 · 发表于 2017-11-1 10:40

呵呵，一个如此简单的题目被大神玩出花来了。对你孜孜追求极致的态度表示崇高的敬意！

grf1973 · 发表于 2017-11-1 10:45

Run mySub, n 不能调用啊

grf1973 · 发表于 2017-11-1 10:59

当n=10^7时，香川的结果如下：
Test1:       27142867857145             0.40625
Test2:       27142867857145             0.1875
Test3:       27142867857145             0.296875
显然第二种方法效率最高。

上清宫主 · 发表于 2017-11-1 11:27

非得要带进沟里去

		自动登录	找回密码
密码			注册

[VBA] 用VBA解欧拉计划题目（1）

浏览过的版块