求版主：

ysr

146376311462001376818807952937与146376311462001376818807972937之间有13对差大于200的素数对:
146376311462001376818807954551/240
146376311462001376818807958337/288
146376311462001376818807958813/246
146376311462001376818807959479/228
146376311462001376818807960139/212
146376311462001376818807960773/582
146376311462001376818807961261/242
146376311462001376818807961721/228
146376311462001376818807965149/210
146376311462001376818807966041/252
146376311462001376818807968191/204
146376311462001376818807968611/224
146376311462001376818807973153/270
用时-61119.932秒

ysr

146376311462001376818807992937与146376311462001376818808012937之间有14对差大于200的素数对:
146376311462001376818807994709/280
146376311462001376818807995623/242
146376311462001376818807995941/318
146376311462001376818807999769/246
146376311462001376818808001471/328
146376311462001376818808003151/204
146376311462001376818808003361/210
146376311462001376818808004243/294
146376311462001376818808005409/242
146376311462001376818808006169/352
146376311462001376818808007351/220
146376311462001376818808010407/398
146376311462001376818808011523/500
146376311462001376818808013053/204
用时19937.457秒

ysr

146376311462001376818808022937与146376311462001376818808032937之间有6对差大于200的素数对:
146376311462001376818808024001/204
146376311462001376818808025897/678
146376311462001376818808026959/228
146376311462001376818808028909/226
146376311462001376818808029829/206
146376311462001376818808030489/240
用时2255.057秒

ysr

146376311461999846452573601637与146376311461999846452573611637之间有6对差大于200的素数对:
146376311461999846452573601951/316
146376311461999846452573602357/228
146376311461999846452573604013/246
146376311461999846452573605317/210
146376311461999846452573606179/406
146376311461999846452573608759/298
用时2173.693秒

ysr

12345678911~12345679111之间的素数有5个：
12345678923  12345678929  12345678949  12345679007  12345679109  

代码如下：

Private Sub Command1_Click()
Dim a, n
n = Trim(Text1)
n3 = n
m = Trim(Text2)
If Right(n, 1) Mod 2 = 0 Then
n = MPC1(Trim(n), 1)
Else
n = n
End If
Do While MBJC(Trim(n), Trim(m)) <= 0
If Len(n) < 11 Then
a1 = fenjieyinzi(Trim(n))
If InStr(a1, "*") = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
Else
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
m1 = m1
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & Space(2) 'Space(2)是输出2个空格
End If
Else
m1 = m1
End If
End If
End If
n = MPC1(Trim(n), 2)
Loop
Text3 = n3 & "~" & m & "之间的素数有" & s & "个：" & vbCrLf & m1
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

ysr

ysr 发表于 2021-2-1 13:34
把这个筛选素数压缩文件传一下，是从Text1 算到Text2的:

如下就是40楼的那个程序的界面图片，不能下载和打开程序的可以参考一下这个图片，复制文中的代码就可以运行了: