|

楼主 |
发表于 2025-5-23 13:14
|
显示全部楼层
代码如下:
Private Sub Command1_Click()
Dim x, p
x = Val(Text1)
X1 = Val(Text2)
X2 = x
Do While x <= X1
p = fenjieyinzi(Val(x))
If InStr(Trim(p), "*") = 0 Then
s2 = s2 + 1
p1 = x - 1: p2 = x + 1: p3 = fenjieyinzi0(Val(p1)): p4 = fenjieyinzi0(Val(p2))
j = Split(p3, "*"): j2 = UBound(j): j1 = Split(p4, "*"): j3 = UBound(j1)
If p1 Mod 4 = 0 And p1 Mod 6 <> 0 And p2 Mod 10 <> 0 And p2 Mod 4 <> 0 And j2 >= 2 And j3 >= 2 Then
s = s + 1
t = t & x & " s=" & s
t = t & " p1=" & p3 & " p1有" & j2 & "个*号, p2=" & p4 & vbCrLf
Else
s = s
End If
Else
x = x
End If
x = x + 2
Loop
If s > 0 Then
Text3 = "在" & X2 & " 与 " & X1 & "之间的素数个数有:" & s2 & "个,其间可能的梅森指数p有 " & s & " 个:" & vbCrLf & t
Else
Text3 = "wu jie"
End If
End Sub |
|