快速找大素数的vb程序

ysr

Private Sub Command1_Click() '快速找素数
Dim A, B
A = Text1: B = Text2
ts = Timer
m = ksm2(Val(A))
p = 3

Do While p <= Val(B)
c = fenjieyinzi(Val(p))
If InStr(c, "*") = 0 Then
m1 = MPC1(MbC(Trim(m), 2), 1)
p1 = MPC(MPC1(MbC(Trim(m), Trim(m)), Trim(m)), MbC(Trim(m1), Val(p)))
C1 = fenjieyinzi0(Trim(p1))
If InStr(C1, "*") = 0 Then
s1 = s1 + 1
s = s & p1 & vbCrLf
End If
End If

p = p + 2
Loop
If s1 > 0 Then
Text3 = s
Else
Text3 = "wu   jie"
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""

End Sub