提供800个题目大家做做

pst168 · 发表于 2009-12-30 19:25

这个不行。

Eric_f765 · 发表于 2009-12-30 21:45

谢谢版主了，我正要学习一下呢！

xueyuan · 发表于 2009-12-31 11:30

进来学习下。看看能做几个

feiyu0820 · 发表于 2009-12-31 14:04

没看见么。。。。

hyhhh · 发表于 2009-12-31 21:58

看明了七楼的.直接列等式多好,不必VBA了

theday63 · 发表于 2010-1-1 00:35

俺英文看不懂，请版主做个中文的。

mountaincat · 发表于 2010-1-2 07:34

it's great! thank you!

nationldb · 发表于 2010-1-2 11:02

收藏了，对学习VBA帮助大啊！

lbpp · 发表于 2010-1-2 12:32

呵呵，哪位E文好的做个翻译，这样大家都能做了，呵呵。

刚看了一个问题，求第10001个素数。呵呵，这题要有很好的数学知识才能做啊，象我的数学水平估计做出来的东西要把我的老机累死了。呵呵，这已经完全不是VBA水平的范畴了，而是数据结构的范畴了。

[ 本帖最后由 lbpp 于 2010-1-2 12:36 编辑 ]

northwolves · 发表于 2010-1-2 13:33

原帖由 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

复制代码

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

[推荐] 提供800个题目大家做做