|
|
Dim pri(200000000) As Byte
Sub Command1_Click()
pritab
End Sub
Sub pritab()
'用字节位筛法生成16亿以内的素数表
Dim i As Long, j As Long, b(8) As Byte, c As Byte, k As Long, l As Long, t As Double
j = 1
t = Timer
w = Val(Text1)
For i = 0 To 7
b(i) = j
j = j * 2 '位运算值初始化
Next
For i = 0 To w
pri(i) = 170 '先假设所有奇数都是素数
Next
pri(0) = 172 '0,1不是素数，2是素数
i = 3
While i * i <= w
If (pri(Int(i / 8)) And b(i Mod 8)) > 0 Then
j = i * i
While j <= w
If (pri(Int(j / 8)) And b(j Mod 8)) > 0 Then
c = b(j Mod 8) Xor 255
pri(Int(j / 8)) = pri(Int(j / 8)) And c
End If
j = j + i * 2
Wend
End If
i = i + 2
Wend
k = 0
j = 0
For i = 2 To w
If (pri(Int(i / 8)) And b(i Mod 8)) > 0 Then
If i - l = 2 Then j = j + 1: Text3 = Text3 & l & " " & i & vbCrLf
k = k + 1
l = i
End If
Next
Text2 = w & "内的总素数：" & k & ",最大素数：" & l & "，孪生素数对：" & j - 1 & ",用时：" & Timer - t & "秒"
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
|
|
IP卡
狗仔卡
发表于 2026-9-23 09:25
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
楼主