素数生成器的算法【ASP Edtion】

 1<%
 2    Function CalcPrimes(intPrimeUBound)
 3      'intPrimeUBound 是要计算素数的上限值
 4       Dim i, j
 5       Dim strTmp
 6       Dim bitArray
 7
 8       Redim bitArray(intPrimeUBound + 1)
 9
10       For i = 0 To intPrimeUBound
11         bitArray(i) = 1
12       Next
13       
14       For i = 2 To CInt(Sqr(intPrimeUBound))
15         If 1 = bitArray(i) Then           
16           j = i
17           While j*i <= intPrimeUBound
18             bitArray(i*j) = 0
19             j = j + 1
20           Wend
21         End If
22       Next
23
24       For i = 2 To intPrimeUBound
25         If 1 = bitArray(i) Then
26           strTmp = strTmp & CStr(i) & ","
27         End If
28       Next
29       
30       If strTmp <> "" Then
31         strTmp = Left(strTmp, Len(strTmp) - 1)
32         CalcPrimes = Split(strTmp, ",")
33       Else
34         CalcPrimes = ""
35       End If
36       
37    End Function
38%>