大整数的快速试除程序

ysr

'代码只发主程序
Private Sub Command1_Click() '大整数的快速试除程序
Dim a1, p
A = Trim(Text1)
jp = Trim(Text2)
t = Timer
a1 = A
p = jp
Print "p4="; p

q = MCC1(Trim(a1), Trim(p))
q1 = Left(q, InStr(q, "/") - 1)
r = Mid(q, InStr(q, "/") + 1)
p2 = p
Do While s <= 5000
s = s + 1
s2 = s2 + 2
a2 = MPC(MbC(Trim(q1), Trim(s2)), Trim(r))
p = MPC1(Trim(p), 2)
q = MCC1(Trim(a2), Trim(p))
If zhengchuqyushu(Trim(q)) = 0 Then
s1 = s1 + 1
q2 = MCC1(Trim(a1), Trim(p))
h = h & a1 & " = " & p & " * " & q2 & vbCrLf
Else
h = h
End If
Loop




Text3 = Text3 & "jp=" & jp & vbCrLf
  
Text3 = Text3 & Timer - t & "秒    " & " h=" & h


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Form1.Cls
End Sub