请教一个问题，谢谢

Question

问题是这样的：求出从0到10000的所有素数，并显示出其运行的开始时间、结束时间、耗用时间。请教各位大侠。

Answer 1

http://vbworld.sxnw.gov.cn/Source/openfile.asp?kind=math&id=8&filename=FindPrime.zip在任何 2 个给定的数字间寻找素数。

Answer 2

Option ExplicitPrivate Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim flag As Boolean
Dim t1,t2t1 = Timer
For i = 10000 To 2 Step -1
flag = False
    For j = 2 To Int(Sqr(i))
        If i Mod j = 0 Then
            flag = True
            Exit For
        Else
            flag = False
        End If
    Next j
    If flag = False Then
        List1.AddItem i
    End If
Next i
t2 = Timer
MsgBox t2 - t1
End Sub