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
%>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
ASP实现素数计算算法
博客展示了一段ASP代码实现素数计算的算法。通过定义函数CalcPrimes,接收要计算素数的上限值,利用数组标记和循环判断,最终返回指定范围内的素数数组,体现了算法在ASP中的应用。
1110

被折叠的 条评论
为什么被折叠?



