作者costbook (没$结婚干嘛,有$干嘛结婚)
看板Visual_Basic
标题Re: [VB6 ] 找出范围内的质数，想请各位帮忙缩短...
时间Thu Oct 1 14:06:08 2009
'找出范围内所有整数质数
'VB .NET
Dim nonprimes(0) As Boolean
Sub getAllPrime(ByVal top As Integer)
ReDim nonprimes(top)
Dim value As New MyInt(Of Integer)
nonprimes(0) = True
nonprimes(1) = True
Dim i As Integer = 2
'用筛法标记ｐｒｉｍｅ和ｎｏｎｐｒｉｍｅ
While i <= top / i
'这边用myInt class，速度会比用isPrime() function慢
value.setting(i)
If value.isPrime() Then
For j As Integer = 2 To top / i
If j * i <= top Then
nonprimes(j * i) = True
End If
Next
End If
i += 1
End While
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 120.124.134.62
1F：推 Changsunche:感谢，测试之後若有问题还会在肚上来发问的^W^ 10/01 18:02