|

楼主 |
发表于 2021-12-28 01:11
|
显示全部楼层
出现负数了,可能不对,明天再说,代码如下:
Private Sub Command1_Click()
'研究某数蔡氏素数的程序
Dim a, b
a = Val(Text1)
a1 = a
q = Val(Text2)
m = Val(2)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
Do While m <= q
Do While InStr(fenjieyinzi1(Val(a)), "*") > 0
a = a + 2
Loop
Do While a <= Val(m)
a = Val(a + 2)
Loop
p1 = a
p2 = Val(m - p1)
p3 = Val(p1 + m)
p4 = Val(p2 + m)
Print p1, p2, p3, p4
If InStr(fenjieyinzi1(Val(p1)), "*") = 0 And InStr(fenjieyinzi1(Val(p2)), "*") = 0 And InStr(fenjieyinzi1(Val(p3)), "*") = 0 And InStr(fenjieyinzi1(Val(p4)), "*") = 0 Then
Text3 = Text3 & "2m=" & m & "p1" & p1 & "p2=" & p2 & "p3=" & p3 & "p4" & p4 & vbCrLf
s = s + 1
Else
m = m + 2
End If
a = a + 2
Loop
Combo1 = "有" & s & "组蔡氏偶数" & Text3
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub |
|