素數產生器的演算法【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%>