目前难于分解的合数

ysr

Print "jf= "; jff
jpp = MPC1(Trim(jp), Trim(jff))
jn2 = zhengchuqy(MCC(Trim(jpp), 2))
jqq = zhengchuqy(MCC1(Trim(A), Trim(jpp)))
jx2 = zhengchuqy(MCC(MPC(Trim(jqq), Trim(jpp)), 4))
Print "jff="; jff
Print "jx2="; jx2
jpp1 = MPC1(Trim(jpp), 2)
u = zhengchuqy(MCC1(Trim(d), Trim(jpp))): u1 = zhengchuqy(MCC1(Trim(d), Trim(jpp1)))
b9 = Val(2 * b8 + 1)
ja2 = b9: jb2 = MbC(Trim(jn2), Val(b9))
jc2 = MbC(Trim(jb2), 2): jc2 = mpc2(Trim(jc2), MbC(MbC(Trim(jn2), Trim(jn2)), Val(b9)))
jc2 = mpc2(Trim(jc2), MbC(MPC(Trim(u), Trim(u1)), 2))
jd2 = MbC(MbC(Trim(jb2), Trim(jn2)), 2): jd2 = MPC1(Trim(jd2), MbC(MbC(Trim(jn2), Trim(jn2)), MbC(Trim(u), 2)))
jd2 = mpc2(Trim(jd2), MbC(MbC(Trim(jn2), Trim(jn2)), MbC(Trim(jn2), Val(b9))))
ja2 = Trim(ja2) & String(10, "0"): jb2 = Trim(jb2) & String(10, "0")
jc2 = Trim(jc2) & String(10, "0"): jd2 = Trim(jd2) & String(10, "0")
jff1 = jie3cifc(Trim(jb2), Trim(jc2), Trim(jd2), Trim(ja2), 10)

jff1 = qdfh(Trim(jff1))
jff1 = Mid(Trim(jff1), 1, InStr(jff1, ".") - 5)
jff1 = zhengchuqy(MCC(Trim(jff1), 2))
Print "jff1="; jff1
jpp2 = MPC1(Trim(jpp), Trim(jff1))
jqq2 = zhengchuqy(MCC1(Trim(A), Trim(jpp2)))
jrr2 = zhengchuqyushu(MCC1(Trim(A), Trim(jpp2)))
jn = zhengchuqy(MCC(Trim(jpp2), 2))
jx = zhengchuqy(MCC(MPC(Trim(jqq2), Trim(jpp2)), 4))
b8 = zhengchuqy(MCC1(Trim(jx), Trim(jn)))
a3 = Val(2 * b8 + 1): b3 = mpc2(MbC(Trim(jpp2), Val(a3)), Trim(jqq2)): c3 = jrr2
a3 = Trim(a3) & String(10, "0")
b3 = Trim(b3) & String(10, "0")
c3 = Trim(c3) & String(10, "0")
jff3 = jie2cifc(Trim(a3), Trim(b3), Trim(c3), 10)
jff3 = Mid(Trim(jff3), 1, InStr(jff3, ".") - 1)
jff3 = zhengchuqy(MCC1(Trim(jff3) & "0000000000000000", "5258673105151081437"))
Print "jff3="; jff3
jpp3 = MPC1(Trim(jpp2), Trim(jff3))
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf & "jff3=" & jff3 & vbCrLf

ysr

jff3 = jie2cifc(Trim(a3), Trim(b3), Trim(c3), 10)
jff3 = Mid(Trim(jff3), 1, InStr(jff3, ".") - 1)
jff3 = zhengchuqy(MCC1(Trim(jff3) & "0000000000000000", "5258673105151081437"))
Print "jff3="; jff3
jpp3 = MPC1(Trim(jpp2), Trim(jff3))
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf & "jff3=" & jff3 & vbCrLf
js15 = 0
Do While InStr(MCC1(qdqiandao0(Trim(a)), Trim(jpp3)), "/") <> 0 And Val(js15) <= 109
jpp3 = MPC1(Trim(jpp3), 2)
js15 = Val(js15 + 1)
Loop
If InStr(MCC1(Trim(a), Trim(jpp3)), "/") = 0 Then
jt2 = jt2 & jpp3 & "*" & MCC1(Trim(a), Trim(jpp3)) & "   中间数据jX=" & jx & vbCrLf
End If
jbb = jbb + 1
Loop
If InStr(jt2, "*") > 0 Then
Text2 = jt2
Else

ysr

例：分解如下合数：
3535000647287053716310161223639238642910682574781777736223167

程序结果：
58239495598689372889571823011*60697652185136811260490065190197   中间数据 jX=15159886810076365906646711208183

用时：
jpp3=58239495598689372889571822793
jff3=128977639340269339679701
2.925293秒    58246199298643878382582795799

ysr

Print "jf= "; jff
jpp = MPC1(Trim(jp), Trim(jff))
jn2 = zhengchuqy(MCC(Trim(jpp), 2))
jqq = zhengchuqy(MCC1(Trim(a), Trim(jpp)))
jx2 = zhengchuqy(MCC(MPC(Trim(jqq), Trim(jpp)), 4))
Print "jff="; jff
Print "jx2="; jx2
jpp1 = MPC1(Trim(jpp), 2)
u = zhengchuqy(MCC1(Trim(d), Trim(jpp))): u1 = zhengchuqy(MCC1(Trim(d), Trim(jpp1)))
b9 = Val(2 * b8 + 1)
ja2 = b9: jb2 = MbC(Trim(jn2), Val(b9))
jc2 = MbC(Trim(jb2), 2): jc2 = mpc2(Trim(jc2), MbC(MbC(Trim(jn2), Trim(jn2)), Val(b9)))
jc2 = mpc2(Trim(jc2), MbC(MPC(Trim(u), Trim(u1)), 2))
jd2 = MbC(MbC(Trim(jb2), Trim(jn2)), 2): jd2 = MPC1(Trim(jd2), MbC(MbC(Trim(jn2), Trim(jn2)), MbC(Trim(u), 2)))
jd2 = mpc2(Trim(jd2), MbC(MbC(Trim(jn2), Trim(jn2)), MbC(Trim(jn2), Val(b9))))
ja2 = Trim(ja2) & String(10, "0"): jb2 = Trim(jb2) & String(10, "0")
jc2 = Trim(jc2) & String(10, "0"): jd2 = Trim(jd2) & String(10, "0")
jff1 = jie3cifc(Trim(jb2), Trim(jc2), Trim(jd2), Trim(ja2), 10)

jff1 = qdfh(Trim(jff1))
jff1 = Mid(Trim(jff1), 1, InStr(jff1, ".") - 5)
jff1 = zhengchuqy(MCC(Trim(jff1), 2))
Print "jff1="; jff1
jpp2 = MPC1(Trim(jpp), Trim(jff1))
jqq2 = zhengchuqy(MCC1(Trim(a), Trim(jpp2)))
jrr2 = zhengchuqyushu(MCC1(Trim(a), Trim(jpp2)))
jrr3 = zhengchuqyushu(MCC1(Trim(a), MPC1(Trim(jpp2), 2)))
jn = zhengchuqy(MCC(Trim(jpp2), 2))
jx = zhengchuqy(MCC(MPC(Trim(jqq2), Trim(jpp2)), 4))
b8 = zhengchuqy(MCC1(Trim(jx), Trim(jn)))
a3 = Val(2 * b8 + 1): b3 = mpc2(MbC(Trim(jpp2), Val(a3)), Trim(jqq2)): c3 = mpc2(Trim(jrr2), Trim(jrr3))
b3 = mpc3(Trim(b3), Trim(c3))
jff3 = zhengchuqy(MCC1(qdfh(Trim(b3)), Trim(a3)))
Print "jff3="; jff3
jpp3 = MPC1(Trim(jpp2), Trim(jff3))
Text3 = Text3 & "jpp2=" & jpp2 & vbCrLf & "c3=" & c3 & vbCrLf

ysr

Print "jf= "; jff
jpp = MPC1(Trim(jp), Trim(jff))
jn2 = zhengchuqy(MCC(Trim(jpp), 2))
jqq = zhengchuqy(MCC1(Trim(a), Trim(jpp)))
jx2 = zhengchuqy(MCC(MPC(Trim(jqq), Trim(jpp)), 4))
Print "jff="; jff
Print "jx2="; jx2
jpp1 = MPC1(Trim(jpp), 2)
u = zhengchuqy(MCC1(Trim(d), Trim(jpp))): u1 = zhengchuqy(MCC1(Trim(d), Trim(jpp1)))
b9 = Val(2 * b8 + 1)
ja2 = b9: jb2 = MbC(Trim(jn2), Val(b9))
jc2 = MbC(Trim(jb2), 2): jc2 = mpc2(Trim(jc2), MbC(MbC(Trim(jn2), Trim(jn2)), Val(b9)))
jc2 = mpc2(Trim(jc2), MbC(MPC(Trim(u), Trim(u1)), 2))
jd2 = MbC(MbC(Trim(jb2), Trim(jn2)), 2): jd2 = MPC1(Trim(jd2), MbC(MbC(Trim(jn2), Trim(jn2)), MbC(Trim(u), 2)))
jd2 = mpc2(Trim(jd2), MbC(MbC(Trim(jn2), Trim(jn2)), MbC(Trim(jn2), Val(b9))))
ja2 = Trim(ja2) & String(10, "0"): jb2 = Trim(jb2) & String(10, "0")
jc2 = Trim(jc2) & String(10, "0"): jd2 = Trim(jd2) & String(10, "0")
jff1 = jie3cifc(Trim(jb2), Trim(jc2), Trim(jd2), Trim(ja2), 10)

jff1 = qdfh(Trim(jff1))
jff1 = Mid(Trim(jff1), 1, InStr(jff1, ".") - 5)
jff1 = zhengchuqy(MCC(Trim(jff1), 2))
Print "jff1="; jff1
jpp2 = MPC1(Trim(jpp), Trim(jff1))
jqq2 = zhengchuqy(MCC1(Trim(a), Trim(jpp2)))
jrr2 = zhengchuqyushu(MCC1(Trim(a), Trim(jpp2)))
jrr3 = zhengchuqyushu(MCC1(Trim(a), MPC1(Trim(jpp2), 2)))
jn = zhengchuqy(MCC(Trim(jpp2), 2))
jx = zhengchuqy(MCC(MPC(Trim(jqq2), Trim(jpp2)), 4))
b8 = zhengchuqy(MCC1(Trim(jx), Trim(jn)))
a3 = Val(2 * b8 + 1): b3 = mpc2(MbC(Trim(jpp2), Val(a3)), Trim(jqq2))
If MBJC(Trim(jrr2), Trim(jrr3)) >= 0 Then
c3 = mpc2(Trim(jrr2), Trim(jrr3))
Else
c3 = MPC(MPC1(Trim(jpp2), Trim(jrr2)), Trim(jrr3))
End If
b3 = mpc3(Trim(b3), Trim(c3))
jff3 = zhengchuqy(MCC1(qdfh(Trim(b3)), Trim(a3)))
Print "jff3="; jff3
jpp3 = MPC1(Trim(jpp2), Trim(jff3))
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf & "jff3=" & jff3 & vbCrLf

ysr

Print "jf= "; jff
jpp = MPC1(Trim(jp), Trim(jff))
jn2 = zhengchuqy(MCC(Trim(jpp), 2))
jqq = zhengchuqy(MCC1(Trim(a), Trim(jpp)))
jx2 = zhengchuqy(MCC(MPC(Trim(jqq), Trim(jpp)), 4))
Print "jff="; jff
Print "jx2="; jx2
jpp1 = MPC1(Trim(jpp), 2)
u = zhengchuqy(MCC1(Trim(d), Trim(jpp))): u1 = zhengchuqy(MCC1(Trim(d), Trim(jpp1)))
b9 = Val(2 * b8 + 1)
ja2 = b9: jb2 = MbC(Trim(jn2), Val(b9))
jc2 = MbC(Trim(jb2), 2): jc2 = mpc2(Trim(jc2), MbC(MbC(Trim(jn2), Trim(jn2)), Val(b9)))
jc2 = mpc2(Trim(jc2), MbC(MPC(Trim(u), Trim(u1)), 2))
jd2 = MbC(MbC(Trim(jb2), Trim(jn2)), 2): jd2 = MPC1(Trim(jd2), MbC(MbC(Trim(jn2), Trim(jn2)), MbC(Trim(u), 2)))
jd2 = mpc2(Trim(jd2), MbC(MbC(Trim(jn2), Trim(jn2)), MbC(Trim(jn2), Val(b9))))
ja2 = Trim(ja2) & String(10, "0"): jb2 = Trim(jb2) & String(10, "0")
jc2 = Trim(jc2) & String(10, "0"): jd2 = Trim(jd2) & String(10, "0")
jff1 = jie3cifc(Trim(jb2), Trim(jc2), Trim(jd2), Trim(ja2), 10)

jff1 = qdfh(Trim(jff1))
jff1 = Mid(Trim(jff1), 1, InStr(jff1, ".") - 5)
jff1 = zhengchuqy(MCC(Trim(jff1), 2))
Print "jff1="; jff1
jpp2 = MPC1(Trim(jpp), Trim(jff1))
jqq2 = zhengchuqy(MCC1(Trim(a), Trim(jpp2)))
jrr2 = zhengchuqyushu(MCC1(Trim(a), Trim(jpp2)))
jrr3 = zhengchuqyushu(MCC1(Trim(a), MPC1(Trim(jpp2), 2)))
jn = zhengchuqy(MCC(Trim(jpp2), 2))
jx = zhengchuqy(MCC(MPC(Trim(jqq2), Trim(jpp2)), 4))
b8 = zhengchuqy(MCC1(Trim(jx), Trim(jn)))
a3 = 1
If zhengchuqyushu(MCC(Trim(a), 4)) = 3 Then
b3 = MPC1(MbC(Trim(jx), 2), 2)
Else
b3 = MPC1(MbC(Trim(jx), 2), 1)
End If

c3 = mpc2(Trim(jx), Trim(d))
a3 = Trim(a3) & String(10, "0"): b3 = Trim(b3) & String(10, "0"): c3 = Trim(c3) & String(10, "0")
jff3 = jie2cifc(Trim(a3), Trim(b3), Trim(c3), 10)
jff3 = Mid(Trim(jff3), 1, InStr(jff3, ".") - 1)
Print "jff3="; jff3
jpp3 = MPC1(MbC(Trim(jff3), 2), 1)
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf & "jff3=" & jff3 & vbCrLf

ysr

jff3 = jie2cifc(Trim(a3), Trim(b3), Trim(c3), 10)
jff3 = Mid(Trim(jff3), 1, InStr(jff3, ".") - 1)
jff3 = zhengchuqy(MCC1(Trim(jff3) & "0000000000000000", "5258673105151081437"))
Print "jff3="; jff3
jpp3 = MPC1(Trim(jpp2), Trim(jff3))
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf & "jff3=" & jff3 & vbCrLf
a1 = a
p = jpp3

q = MCC1(Trim(a1), Trim(p))
q1 = Left(q, InStr(q, "/") - 1)
r = Mid(q, InStr(q, "/") + 1)
p2 = p

s = 0
s2 = 0
Do While Val(s) <= 300 And InStr(Trim(q), "/") <> 0
s = Val(s + 1)
s2 = Val(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
jpp3 = p
If InStr(Trim(h), "*") > 0 Then
jt2 = jt2 & jpp3 & "*" & MCC1(Trim(a), Trim(jpp3)) & "   中间数据jX=" & jx & vbCrLf
End If
jbb = jbb + 1
Loop
If InStr(jt2, "*") > 0 Then
Text2 = jt2
Else

ysr

jc2 = mpc2(Trim(jc2), MbC(MbC(Trim(jx2), Trim(jn2)), 2))
jc2 = mpc2(Trim(jc2), Trim(jx2))
ja2 = Trim(ja2) & String(10, "0")
jb2 = Trim(jb2) & String(10, "0")
jc2 = Trim(jc2) & String(10, "0")
jff1 = jie2cifc(Trim(ja2), Trim(jb2), Trim(jc2), 10)
Print "jf= "; jff
jpp = MPC1(Trim(jp), Trim(jff))
jn2 = zhengchuqy(MCC(Trim(jpp), 2))
jqq = zhengchuqy(MCC1(Trim(a), Trim(jpp)))
jx2 = zhengchuqy(MCC(MPC(Trim(jqq), Trim(jpp)), 4))
Print "jff="; jff
Print "jx2="; jx2
jpp1 = MPC1(Trim(jpp), 2)
jr1 = zhengchuqyushu(MCC1(Trim(a), Trim(jpp)))
jr2 = zhengchuqyushu(MCC1(Trim(a), MPC1(Trim(jpp), 2)))
If MBJC(Trim(jr2), Trim(jr1)) >= 0 Then
jf1 = MPC(Trim(jr2), Trim(jr1))
Else
jf1 = MPC(Trim(jr1), Trim(jr2))
End If
jf2 = zhengchuqy(MCC1(Trim(jpp), Trim(jf1)))
jpp2 = MPC1(Trim(jpp), MbC(Trim(jf2), 4))

Text3 = Text3 & "jpp2=" & jpp2 & vbCrLf

ysr

Print "jff1="; jff1
jpp2 = MPC1(Trim(jpp), Trim(jff1))
jqq2 = zhengchuqy(MCC1(Trim(A), Trim(jpp2)))
jrr2 = zhengchuqyushu(MCC1(Trim(A), Trim(jpp2)))
jn = zhengchuqy(MCC(Trim(jpp2), 2))
jx = zhengchuqy(MCC(MPC(Trim(jqq2), Trim(jpp2)), 4))
b8 = zhengchuqy(MCC1(Trim(jx), Trim(jn)))
h = MPC(Trim(jx), MbC(Trim(ff1), Val(b8)))
h = MPC(Trim(h), zhengchuqy(MCC(MPC(zhengchuqy(MCC1(Trim(A), Trim(jpp2))), Trim(jpp2)), 4)))
jqq3 = MPC(Trim(A), MbC(Trim(jqq2), Trim(jpp2)))
jqq3 = MPC1(Trim(jqq3), MbC(Trim(jpp2), Trim(h)))
jpp3 = zhengchuqy(MCC1(Trim(A), Trim(jqq3)))
Print "jpp3="; jpp3
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf & "jff3=" & MPC(Trim(jpp3), Trim(jpp2)) & vbCrLf

ysr

Print "jff1="; jff1
jpp2 = MPC1(Trim(jpp), Trim(jff1))
jqq2 = zhengchuqy(MCC1(Trim(A), Trim(jpp2)))
jrr2 = zhengchuqyushu(MCC1(Trim(A), Trim(jpp2)))
jn = zhengchuqy(MCC(Trim(jpp2), 2))
jx = zhengchuqy(MCC(MPC(Trim(jqq2), Trim(jpp2)), 4))
b8 = zhengchuqy(MCC1(Trim(jx), Trim(jn)))
h = MPC(Trim(jx), MbC(Trim(ff1), Val(b8)))
h = MPC(Trim(h), zhengchuqy(MCC(MPC(zhengchuqy(MCC1(Trim(A), Trim(jpp2))), Trim(jpp2)), 4)))
jpp3 = zhengchuqy(MCC1(Trim(A), MPC1(Trim(jqq2), MbC(Trim(h), 4))))
Print "jpp3="; jpp3
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf & "jff3=" & MPC(Trim(jpp3), Trim(jpp2)) & vbCrLf