代码如下：
Public Function tuzis(sa As String) As String 'tuzi shulie
Dim A, B, c
A = Val(sa)
B = 1
B1 = 0
b2 = 1
b3 = 0
Do While B <= A
B1 = b2

s1 = s1 & "/" & Trim(b3)

b2 = b3
b3 = MPC1(Trim(B1), Trim(b2))


B = Val(B + 1)

Loop
tuzis = s1

End Function

Private Sub Command1_Click()
Dim A, B, ak()
A = Val(Text1)
B = tuzis(Val(A))
B1 = ksm2(Val(664))
s105 = Split(B, "/")
   j1 = UBound(s105)
    For k = 1 To j1
      n1 = n1 + 1
       ReDim Preserve ak(1 To n1)
      ak(n1) = s105(n1)
    Next
  For I = 18 To j1 - 3
  A = ak(I)
   B = ak(I + 1)
   c = ak(I + 2)
x = MPC1(MPC1(MbC(Trim(A), Trim(B)), Trim(c)), Trim(B1))
  Y = MPC1(MPC1(MbC(Trim(c), Trim(B)), Trim(A)), Trim(B1))
   z = MPC1(MPC1(MbC(Trim(A), Trim(c)), Trim(B)), Trim(B1))
   X1 = MPC1(Trim(x), 2)
  Y1 = MPC1(Trim(Y), 2)
  z1 = MPC1(Trim(z), 2)
   Do While Val(js) <= 10
   js = Val(js + 1)
   If zhengchuqyushu(MCC(Trim(x), 3)) > 1 Or zhengchuqyushu(MCC(Trim(Y), 3)) > 1 Or zhengchuqyushu(MCC(Trim(z), 3)) > 1 Then
  If nStr(fenjieyinzi0(Trim(x)), "*") = 0 And InStr(fenjieyinzi0(Trim(X1)), "*") = 0 Then
  s = s + 1
  s1 = s1 & "/" & s & " /" & x & "/" & X1 & vbCrLf
  ElseIf InStr(fenjieyinzi0(Trim(Y)), "*") = 0 And InStr(fenjieyinzi0(Trim(Y1)), "*") = 0 Then
  s = s + 1
  s1 = s1 & "/" & s & " /" & Y & "/" & Y1 & vbCrLf
  ElseIf InStr(fenjieyinzi0(Trim(z)), "*") = 0 And InStr(fenjieyinzi0(Trim(z1)), "*") = 0 Then
  s = s + 1
  s1 = s1 & "/" & s & " /" & z & "/" & z1 & vbCrLf
  Else
  s = s
  End If
  End If
  x = MPC1(Trim(x), 2)
  Y = MPC1(Trim(Y), 2)
  z = MPC1(Trim(z), 2)
  X1 = MPC1(Trim(x), 2)
  Y1 = MPC1(Trim(Y), 2)
  z1 = MPC1(Trim(z), 2)
Loop
  Next
  
If s > 0 Then
Text2 = s1
Else
Text2 = "wu  jie"
End If
End Sub

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

End Sub

Private Function ksm2(sa As String) As String '2的快速幂程序
Dim A, B
A = Val(2): B = sa
If B = 1 Then
ksm2 = A
ElseIf B = 0 Then
ksm2 = 1
Else
a1 = A
Do While B > 1
s = Int(Log(B) / Log(2))
s1 = 0
Do While s1 < s
A = MbC(Trim(A), Trim(A))
s1 = s1 + 1
Loop
a2 = A
B = B - 2 ^ s
A = a1
If s2 > 0 Then
a3 = MbC(Trim(a3), Trim(a2))
Else
a3 = a2
End If
s2 = s2 + 1
Loop
If B = 1 Then
ksm2 = MbC(Trim(a3), Trim(a1))
Else
ksm2 = a3
End If
s3 = Len(ksm2)
ksm2 = ksm2
End If


End Function

原理：一个小素数（或者合数）加上一个大偶数（这里采用2^n的偶数）就可以得到巨大的素数或者孪生素数，举例如下：
/1 /73786976357262128867/73786976357262128869（这就是此法得到的一对孪生素数，前面的1是序号，/号算是间隔号）
 
/1/1152921504606885899/1152921504606885901
/2/1152921504606888257/1152921504606888259
/3/1152921504606895097/1152921504606895099（这3对孪生素数也是此法得到的）

/1 /76545051729020975577310162521900618820659871603466655644272117978380005723696097587725184512638784526308634214455061267843403507870735540391292521535824647434568377082591826884769598224146796862139607
这个大素数也是此法找到的，兔子数列某3项由蔡氏法构成的数45771991（该数是合数就是45771991=4729*9679不是素数，而是个合数，前面的1是序号）加上个大偶数形成的大素数，大约200位

小数据里面此法得到的素数和孪生素数的概率很高，大数据里面由于程序速度慢搜索范围不能太宽，所以，搜索范围窄的原因还没哟谱找出来大孪生素数，所以，要改进程序，提高速度。

欢迎沟通探讨，共同进步，谢谢您的指导！

这样的数据在其附近的素数和孪生素数是很多的，比如 ：

45771991~45772091之间的素数有8个：（用时1.757813E-02秒）
45772003  45772009  45772033  45772037  45772039  45772057  45772061  45772087  
其中有一对孪生素数就是45772037  45772039

/1 /24917830127/24917830129
/2 /63497664521/63497664523
/3 /24917830277/24917830279

谢谢您！好的，精彩！给你点赞！

谁知道这个出版社是否是正规出版社，如何验证？

说是搞活动呢，活动挺好，可惜咱没有那么多闲钱啊！

由于身体原因，目前我只能干些轻松的活儿，但是工资很低啊！

如果有钱，当今社会，爱好者的成果也还是可以发表一下的！

发一下我的书稿吧，里面也又部分vb代码：

谢谢！就是你说的，我就是无意看到了一个广告好像是本地的，就添了姓名电话了。
结果就收到了好多电话，不是本地的，也有本地的，有的问我出书要求价格啥段位，我说是不超过1万，结果人家直接说出不了就挂了，有的给我讲了流程和规则还有价格啥的，我就没主意了。
经济实力不行，要不早就发表和出版了。
我已经出版了两次了，数量不多没有影响力，仅仅个别朋友主动要了两本都是主动付钱了连邮费都付了。
爱好者没有钱的话真的不容易，更别说和“专家”“大师”联系了。

王元院士那样的谦虚认真事实求是的科学家都去世了，中国还有大师吗？

当初我搞出点儿成果的时候陈景润院士去世了，后来老师说王元院士也是搞数论的数学家，经过联系人家说是已经退休早不搞数学了且有病，很客气的，让我跟其他数学家联系。

当我第一次出书的时候，王元院士去世了，可惜，缅怀前辈德高望重的数学家！

[此贴子已经被作者于2023-6-23 02:14编辑过]

我出版的那两次书号很便宜，才1500元，国际书号，这次他们说那都是免费的书号，没有用上不了书店的书架，那我只有自己留着做纪念了，或者送朋友了。我第一次出版的都是免费送别人了，个别朋友给我发红包了付费了。第二次的没有送人仅仅个别朋友要了两本，也都是付费的。
剩余的自己留着，反正数量不多，将来后代没人看了当废纸卖掉也许可以卖点儿钱，那也算是论文的价值吗？

[此贴子已经被作者于2023-6-23 02:57编辑过]

您说的都很对，谢谢！我自己弄的不好，排版不行尤其数学公式的排版，都是写成通用格式，避免数学符号，避免不了的手写拍成图片了，最认真的一次编辑是申请著作权的时候，专利局的律师认真给我编辑了一下，编辑后版面压缩了不少，减少了很多页，后来我又补充进去一些数据，字体格式和其他的不一致了。

自费出书的，出版的时候印刷厂没有重新编辑，直接印了。

除了文字内容方面的错误，我也不准备改了，经济实力不行，不准备再版了。
如果以后经济条件好了或者出版价格降了或其他机会也许会出版，以上问题需要修改的到时候再改吧！
比如标点符号的英文和中文混用的问题，正规出版社可能人家会重新排版编辑和修改的。内容和文字的错误，我只要发现了会随时修改的。即使没人重视也要留一个满意的版本。

非常感谢朋友的指导！

关于VB代码的问题，您很专业，我是业余的，我的代码收录的理念是只要人家喜欢这个代码只要人家在电子版书稿中复制粘贴过去能够正常运行就好。
缩进格式和注释确实是有问题，好在VB程序中对这方面的要求是很宽泛的，做的不好也不影响程序运行，对我这样的初学者和业余爱好者这一点儿很好。但只要咱懂了，学到了这些知识有空了一定改进。

谢谢朋友，您费心了！欢迎沟通交流，欢迎批评指导！

谢谢朋友长期的关注，以及鼓励和指导！