|
|
楼主 |
发表于 2025-5-24 00:16
|
显示全部楼层
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 p2 Mod 4 <> 0 And j2 >= 2 And j3 >= 2 Then
If p1 Mod 6 <> 0 And p2 Mod 10 <> 0 Then
s = s
Else
s = s + 1
If s Mod 5 = 0 Then
t = t & " " & x & vbCrLf
Else
t = t & " " & x
End If
End If
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 |
|
IP卡
狗仔卡
显身卡