|

楼主 |
发表于 2021-8-1 21:13
|
显示全部楼层
代码如下:
Private Sub Command1_Click() '求素数的程序
Dim a, b
a = Val(Text1)
a1 = a
q = Val(Text2)
ts = Timer
m = Sqr(q)
t = Trim(Text4)
s = 0
Do While Val(3 * a) <= m
B1 = Val(a * 30 + 17)
B2 = Val(a * 30 + 7)
C1 = fenjieyinzi0(Val(B1))
C2 = fenjieyinzi0(Val(B2))
If InStr(C1, "*") = 0 Then
s = s + 1
Print B1, B2
Text3 = Text3 & "/" & B1 & vbCrLf
Else
s = s
End If
a = a + 1
Loop
a = a
s1 = s
Do While Val(3 * a) <= q
B1 = Val(a * 30 + 17)
B2 = Val(a * 30 + 7)
C1 = fenjieyinzi0(Val(B1))
C2 = fenjieyinzi0(Val(B2))
If InStr(C1, "*") = 0 Then
s1 = s1 + 1
Print B1, B2
Text3 = Text3 & "/" & B1 & vbCrLf
Else
s1 = s1
End If
a = a + 1
Loop
Combo1 = a1 & "与" & q & "之间有*30+17为素数的" & s1 & "个: (用时" & Timer - ts & "秒)" & vbCrLf & Text3
End Sub
|
|