|
Private Sub Command1_Click()
Dim a, B, q
Dim t As Double
t = Timer
p1 = 3
q = Val(Text1)
Do While p1 <= q
p2 = Val(p1 + 2310)
p3 = Val(p1 + 4620)
p4 = Val(p1 + 6930)
p5 = Val(p1 + 9240)
p6 = Val(p1 + 11550)
p7 = Val(13 * (p1 + 5775) - 5775)
p8 = Val(13 * (p1 + 5775) - 3465)
p9 = Val(13 * (p1 + 5775) - 1155)
p10 = Val(13 * (p1 + 5775) + 1155)
p11 = Val(13 * (p1 + 5775) + 3465)
p12 = Val(13 * (p1 + 5775) + 5775)
a = fenjieyinzi(Val(p1))
B = fenjieyinzi(Val(p2))
c = fenjieyinzi(Val(p3))
d = fenjieyinzi(Val(p4))
f = fenjieyinzi(Val(p5))
g = fenjieyinzi(Val(p6))
a1 = fenjieyinzi(Val(p7))
B1 = fenjieyinzi(Val(p8))
C1 = fenjieyinzi(Val(p9))
D1 = fenjieyinzi(Val(p10))
f1 = fenjieyinzi(Val(p11))
g1 = fenjieyinzi(Val(p12))
If InStr(a, "*") = 0 And InStr(B, "*") = 0 And InStr(c, "*") = 0 And InStr(d, "*") = 0 And InStr(f, "*") = 0 And InStr(g, "*") = 0 _
And InStr(a1, "*") = 0 And InStr(B1, "*") = 0 And InStr(C1, "*") = 0 And InStr(D1, "*") = 0 And InStr(f1, "*") = 0 And InStr(g1, "*") = 0 Then
s = s + 1
Print p1, p2, p3, p4
Text2 = Text2 & "(" & CStr(p1) & ", " & CStr(p2) & ")和 (" & p3 & "," & p4 & ")" & "和(" & p5 & "," & p6 & ")" & "和(" & CStr(p7) & ", " & CStr(p8) & ")和 (" & p9 & "," & p10 & ")" & "和(" & p11 & "," & p12 & ")" & vbCrLf
Else
s = s
End If
p1 = Val(p1 + 2)
Loop
Combo1 = q & "内有" & s & "组蔡氏差为2310的素数组:" & vbCrLf & Text2 & "用时" & Timer - t & "秒"
End Sub |
|