|
楼主 |
发表于 2010-1-2 13:33
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
原帖由 lbpp 于 2010-1-2 12:32 发表
呵呵,哪位E文好的做个翻译,这样大家都能做了,呵呵。
刚看了一个问题,求第10001个素数。呵呵,这题要有很好的数学知识才能做啊,象我的数学水平估计做出来的东西要把我的老机累死了。呵呵,这已经完全不是VBA水 ...
这个才算10001,规模很小的:
- Sub Main()
- Dim p As New Collection, i As Long, k, isprime As Boolean
- p.Add 3
- i = 3
- While p.Count < 10001
- i = i + 2
- isprime = True
- For Each k In p
- If i Mod k = 0 Then isprime = False: Exit For
- If k > Sqr(i) Then Exit For
- Next
- If isprime Then p.Add i
- Wend
- MsgBox p(10000)
- End Sub
复制代码 |
|