|
代码如下:
Private Sub Command1_Click() '求由2个孪生素数对组成的4生素数组的程序
Dim A, B
A = Trim(Text1)
a1 = A
aq = Trim(Text2)
aq1 = Trim(Text5)
aq2 = Trim(Text6)
aq3 = 9
q = 1100000
m = Sqr(q)
t = Val(Text4)
t1 = t
ts = Timer
s = 0
Do While t <= m
B2 = MPC(MbC(Trim(A), Trim(t)), 1)
b3 = MPC1(Trim(B2), 2)
b4 = MPC(MbC(Trim(aq), Trim(t)), 1)
b5 = MPC1(Trim(b4), 2)
b6 = MPC(MbC(Trim(aq1), Trim(t)), 1)
b7 = MPC1(Trim(b6), 2)
b8 = MPC(MbC(Trim(aq2), Trim(t)), 1)
b9 = MPC1(Trim(b8), 2)
b10 = MPC(MbC(Trim(aq3), Trim(t)), 1)
b11 = MPC1(Trim(b10), 2)
C10 = fenjieyinzi0(Trim(b10))
C11 = fenjieyinzi0(Trim(b11))
C8 = fenjieyinzi0(Trim(b8))
C9 = fenjieyinzi0(Trim(b9))
C6 = fenjieyinzi0(Trim(b6))
C7 = fenjieyinzi0(Trim(b7))
C4 = fenjieyinzi0(Trim(b4))
C5 = fenjieyinzi0(Trim(b5))
C2 = fenjieyinzi0(Trim(B2))
C3 = fenjieyinzi0(Trim(b3))
If InStr(C1, "*") = 0 And InStr(C2, "*") = 0 And InStr(C8, "*") = 0 And InStr(C9, "*") = 0 And InStr(C3, "*") = 0 And InStr(C10, "*") = 0 And InStr(C11, "*") = 0 And InStr(C4, "*") = 0 And InStr(C5, "*") = 0 And InStr(C6, "*") = 0 And InStr(C7, "*") = 0 Then
s = s + 1
Print B2
Text3 = Text3 & "/" & b10 & "/" & b8 & "/" & b6 & "/" & b4 & "/" & B2 & "/" & b3 & "/" & t & vbCrLf
Else
s = s
End If
t = Val(t + 1)
Loop
s1 = s
Do While t <= q
B2 = MPC(MbC(Trim(A), Trim(t)), 1)
b3 = MPC1(Trim(B2), 2)
b4 = MPC(MbC(Trim(aq), Trim(t)), 1)
b5 = MPC1(Trim(b4), 2)
b6 = MPC(MbC(Trim(aq1), Trim(t)), 1)
b7 = MPC1(Trim(b6), 2)
b8 = MPC(MbC(Trim(aq2), Trim(t)), 1)
b9 = MPC1(Trim(b8), 2)
b10 = MPC(MbC(Trim(aq3), Trim(t)), 1)
b11 = MPC1(Trim(b10), 2)
C10 = fenjieyinzi0(Trim(b10))
C11 = fenjieyinzi0(Trim(b11))
C8 = fenjieyinzi0(Trim(b8))
C9 = fenjieyinzi0(Trim(b9))
C6 = fenjieyinzi0(Trim(b6))
C7 = fenjieyinzi0(Trim(b7))
C4 = fenjieyinzi0(Trim(b4))
C5 = fenjieyinzi0(Trim(b5))
C2 = fenjieyinzi0(Trim(B2))
C3 = fenjieyinzi0(Trim(b3))
If InStr(C1, "*") = 0 And InStr(C2, "*") = 0 And InStr(C3, "*") = 0 And InStr(C10, "*") = 0 And InStr(C11, "*") = 0 And InStr(C8, "*") = 0 And InStr(C9, "*") = 0 And InStr(C4, "*") = 0 And InStr(C5, "*") = 0 And InStr(C6, "*") = 0 And InStr(C7, "*") = 0 Then
s1 = s1 + 1
Print B1, B2
Text3 = Text3 & "/" & b10 & "/" & b8 & "/" & b6 & "/" & b4 & "/" & B2 & "/" & b3 & "/" & t & vbCrLf
Else
s1 = s1
End If
t = Val(t + 1)
Loop
Combo1 = "a=" & a1 & "b=" & aq & "c=" & aq1 & "d=" & aq2 & "e=" & aq3 & "而" & t1 & "与" & q & "之间的素数打头有" & s1 & "组10生素数对: (用时" & Timer - ts & "秒)b2=" & vbCrLf & Text3
End Sub |
|