|

楼主 |
发表于 2021-12-31 18:47
|
显示全部楼层
本帖最后由 ysr 于 2021-12-31 18:54 编辑
代码如下:
Private Sub Command1_Click()
'研究某数蔡氏素数的程序
Dim a, b
a = Val(Text1)
a1 = a
q = Val(Text2)
m = Val(a)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
Do While a <= q
Do While InStr(fenjieyinzi0(Val(a)), "*") > 0
a = a + 2
Loop
m = a
p1 = 3
p3 = Val(p1 + 16 * m)
Do While InStr(fenjieyinzi0(Val(p3)), "*") > 0 Or InStr(fenjieyinzi0(Val(p1)), "*") > 0
p1 = p1 + 2
p3 = Val(p1 + 16 * m)
Loop
p2 = 3
p4 = Val(p2 + 16 * m)
Do While InStr(fenjieyinzi0(Val(p2)), "*") > 0 Or InStr(fenjieyinzi0(Val(p4)), "*") > 0 Or Val(p3 + p4) < Val(48 * m)
p2 = p2 + 2
p4 = Val(p2 + 16 * m)
Loop
Print m, p1, p2, p3, p4
If Val(48 * m) = Val(p3 + p4) Then
Text3 = Text3 & "R=" & m & " 16R=" & Val(16 * m) & " p1=" & p1 & " p2=" & p2 & " p3=" & p3 & " p4=" & p4 & vbCrLf
s = s + 1
Else
s103 = s103 & m & "/"
s1 = s1 + 1
End If
a = a + 2
Loop
Text4 = s103
Combo1 = q & "内有" & s & "组蔡氏偶数48R,有" & Val(s + s1) & "个不同的偶数: " & Text3
End Sub |
|