目前难于分解的合数

ysr

'分解3535000647287053716310161223639238642910682574781777736223167的程序
Private Sub Command1_Click()
Dim a, B
a = Trim(Text1)
t = Timer
If Len(a) <= 10 Then
Text2 = fenjieyinzi(Trim(a))
Else
If Len(a) <= 13 Then
Text2 = fenjieyinzi0(Trim(a))
Else
B = zhengchuqy(MBBC(Trim(a)))

If InStr(MCC1(Trim(a), Trim(B)), "/") = 0 Then
Text2 = B & "*" & MCC1(Trim(a), Trim(B))
Else
s1 = 2
c = 2
Do While s1 <= 1048576 And InStr(MCC1(Trim(a), Trim(c)), "/") <> 0

c = zhengchuqy(MBBC(zhengchuqy(MCC(Trim(a), Trim(s1)))))
s1 = s1 * 2
Loop
B1 = zhengchuqy(MBBC(zhengchuqy(MCC(Trim(a), 4))))
If zhengchuqyushu(MCC(Trim(a), 4)) = 1 Then
Do While MBJC(MbC(Trim(B1), MPC1(Trim(B1), 1)), zhengchuqy(MCC(Trim(a), 4))) = -1
B1 = B1 + 1
Loop
Else
Do While MBJC(MbC(MPC1(Trim(B1), 1), MPC1(Trim(B1), 1)), zhengchuqy(MCC(Trim(a), 4))) = -1
B1 = B1 + 1
Loop
End If

Dim sa()
ReDim sa(1 To 10)
sa(1) = 13: sa(2) = 17: sa(3) = 19: sa(4) = 31: sa(5) = 61
sa(6) = 89: sa(7) = 107: sa(8) = 127: sa(9) = 521: sa(10) = 607
a1 = 1 & "/" & 2
sb = 1
s = 0
Do While Len(sb) <= Len(a) And InStr(a1, "/") <> 0 And s < 10
s = Val(s + 1)
sb = jsmssushu(Trim(sa(s)))
a1 = MCC1(Trim(a), Trim(sb))
Loop

If zhengchuqyushu(MCC(Trim(a), 4)) = 1 Then

C1 = zhengchuqy(MBBC(MPC(MbC(Trim(B1), MPC1(Trim(B1), 1)), zhengchuqy(MCC(Trim(a), 4)))))
Else

C1 = zhengchuqy(MBBC(MPC(MbC(MPC1(Trim(B1), 1), MPC1(Trim(B1), 1)), MPC1(zhengchuqy(MCC(Trim(a), 4)), 1))))
End If
If Right(a, 2) Mod 4 = 1 Then
B1 = MPC1(Trim(B1), 1)
Else
B1 = B1
End If

If InStr(MCC1(Trim(a), Trim(c)), "/") = 0 Then
Text2 = c & "*" & MCC1(Trim(a), Trim(c))
Else
If InStr(MCC1(Trim(a), MPC1(MbC(MPC(Trim(B1), Trim(C1)), 2), 1)), "/") = 0 Then
Text2 = MPC1(MbC(MPC(Trim(B1), Trim(C1)), 2), 1) & "*" & MCC1(Trim(a), MPC1(MbC(MPC(Trim(B1), Trim(C1)), 2), 1))
Else
If InStr(a1, "/") = 0 Then
Text2 = sb & "*" & a1
Else
d = zhengchuqy(MCC(Trim(a), 4))
Print "b= "; B
jbb = 519
Do While jbb <= 521 And jbb > 500
jn1 = zhengchuqy(MCC1(Trim(a), MPC1(MbC(Trim(jbb), 2), 1)))
jn = zhengchuqy(MBBC(Trim(jn1)))
jn = zhengchuqy(MCC(Trim(jn), 2))
jp = MPC1(MbC(Trim(jn), 2), 1)
Print "jp= "; jp
jq = zhengchuqy(MCC1(Trim(a), Trim(jp)))
jr1 = zhengchuqyushu(MCC1(Trim(a), Trim(jp)))
jr2 = zhengchuqyushu(MCC1(Trim(a), MPC1(Trim(jp), 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(jp), Trim(jf1)))
jp2 = MPC1(Trim(jp), MbC(Trim(jf2), 4))
Print "jp2="; jp2
jp3 = zhengchuqy(MCC(MPC1(Trim(jp), Trim(jp2)), 2))
Print "jp3="; jp3
jx = zhengchuqy(MCC(MPC(Trim(jq), Trim(jp)), 4))
b8 = zhengchuqy(MCC1(Trim(jx), Trim(jn)))
ja = MbC(Trim(b8), 8)
jb1 = MbC(MbC(Trim(b8), Trim(jp)), 2)
If MBJC(Trim(jb1), Trim(jq)) >= 0 Then
jb = MbC(MPC(MbC(MbC(Trim(b8), Trim(jp)), 2), Trim(jq)), 2)
Else
jb = "-" & MbC(MPC(Trim(jq), MbC(MbC(Trim(b8), Trim(jp)), 2)), 2)
End If
jb = mpc2(Trim(jb), Trim(jf1))
jc = MPC(Trim(a), MbC(Trim(jq), Trim(jp)))
ja1 = Trim(ja) & String(10, "0")
jb1 = Trim(jb) & String(10, "0")
jc1 = Trim(jc) & String(10, "0")
jf = jie2cifc(Trim(ja1), Trim(jb1), Trim(jc1), 10)
jff = Mid(Trim(jf), 1, InStr(jf, ".") - 1)
jff = zhengchuqy(MCC(Trim(jff), 4))
Print "jf= "; jf
Print "jf= "; jff
Text3 = Text3 & "jp=" & jp & vbCrLf & "jf=" & jff & vbCrLf
jbb = jbb + 1
Loop
b3 = 1041
Do While b3 >= 1041
b4 = b3 * 853

n1 = zhengchuqy(MCC(Trim(d), Trim(b3)))
n2 = zhengchuqy(MBBC(Trim(n1)))
p1 = MPC1(MbC(Trim(n2), 2), 1)
r = zhengchuqyushu(MCC1(Trim(a), Trim(p1)))
q = zhengchuqy(MCC1(Trim(a), Trim(p1)))
q1 = MCC1(Trim(a), Trim(p1))
If MBJC(Trim(r), 0) = 0 Then
p2 = p1
Text2 = p2 & "*" & q
Else
r9 = p1
Print p1

p4 = r9

p = p4
q1 = MCC1(Trim(a), Trim(p))
q = zhengchuqy(Trim(q1))

B1 = zhengchuqy(MCC1(q & String(Len(p4), "0"), Trim(p)))
b6 = "100057991087214518562694508532"
b7 = "119124090279615294549011141875"
b8 = "99999999513536191490633492"
b4 = mbc2(Trim(B1), Trim(b6), 29)
b5 = mbc2(Trim(B1), Trim(b7), 29)
q5 = mbc2(Trim(p), Trim(b5), Len(p4))
q4 = mbc2(Trim(p), Trim(b4), Len(p4))
p6 = zhengchuqy(MCC1(Trim(a), Trim(q4)))
p7 = zhengchuqy(MCC1(Trim(a), Trim(q5)))
q1 = zhengchuqy(MCC1(Trim(a), Trim(p6)))
q2 = zhengchuqy(MCC1(Trim(a), Trim(p7)))
b9 = mbc2(zhengchuqy(MCC1(q1 & String(29, "0"), Trim(p6))), Trim(b6), 29)
b10 = mbc2(zhengchuqy(MCC1(q2 & String(26, "0"), Trim(p7))), Trim(b8), 26)

p8 = zhengchuqy(MCC1(Trim(a), mbc2(Trim(p6), Trim(b9), 29)))
p9 = zhengchuqy(MCC1(Trim(a), mbc2(Trim(p7), Trim(b10), 26)))
Print B1
Print p6
Print p7
Print p8
Print p9

If zhengchuqyushu(MCC1(Trim(a), Trim(p4))) = 0 Then
Text2 = p4 & "*" & MCC1(Trim(a), Trim(p4))
Else
p5 = p1
Do While Len(p4) >= Len(p5) And zhengchuqyushu(MCC1(Trim(a), Trim(p4))) <> 0 And s12 <= 10
p4 = MPC(Trim(p4), 2)
s12 = s12 + 1
Loop
If zhengchuqyushu(MCC1(Trim(a), Trim(p4))) = 0 Then
Text2 = p4 & "*" & MCC1(Trim(a), Trim(p4))
Else
Dim x, y
x = Len(a) \ 5: y = Len(p4) \ 5
a = String(5 - Len(a) + 5 * x, "0") & a: p4 = String(5 - Len(p4) + 5 * y, "0") & p4
Print a
Dim aa() As String
ReDim aa(5 To 5 * x + 5)
Dim bb() As String
ReDim bb(5 To 5 * y + 5)
Dim i, j, js
For i = 5 To 5 * x + 5 Step 5
aa(i) = Mid(a, i - 4, 5)
Next
For j = 5 To 5 * y + 5 Step 5
bb(j) = Mid(p4, j - 4, 5)
Next
js = MCC1(qdqiandao0(aa(5) & aa(10) & aa(15)), qdqiandao0(bb(5) & bb(10)))
js17 = qdqiandao0(bb(5) & bb(10))
Print js17
s17 = Len(js17)
s19 = 420000
Dim jsc()
ReDim jsc(1 To s19 + 1)
Do While s13 <= s19

s13 = s13 + 1
jsc(s13) = js17

If s13 = 337741 Then
js6 = js17
Print js6
Else
js7 = js17

End If



js17 = Val(js17 - 1)

Loop
If y >= 2 Then
jss = jsc(337741)
For i11 = 3 To y + 1
s19 = i11 * 5
jss = jss & bb(s19)
Next
Else
jss = js6
End If
jss4 = jss
Print r9, jss
If InStr(MCC1(qdqiandao0(Trim(a)), Trim(jss)), "/") = 0 Then
Text2 = jss & "*" & MCC1(qdqiandao0(Trim(a)), Trim(jss))
Else
a = qdqiandao0(Trim(a))
s21 = "9999999951353619149063" '22位的
s22 = "99999999513536191490633492" '26位的
s23 = "999999995135361914906334919" '27位的
q3 = MCC1(Trim(a), Trim(jss))
q4 = zhengchuqy(Trim(q3))
r13 = zhengchuqyushu(Trim(q3))
f7 = "295272111931977014044900 "
f4 = zhengchuqy(MCC1(q4 & String(Len(jss), "0"), Trim(jss)))
f2 = MbC(Trim(f4), Trim(s23))
f2 = Left(f2, Len(f2) - 27)
f6 = f2
b5 = MPC(Trim(q4), mbc2(Trim(f2), Trim(jss), Len(jss)))
b6 = MbC(Trim(r13), Trim(f2))
D1 = MPC(MbC(Trim(b5), Trim(b5)) & String(Len(jss), "0"), MbC(Trim(b6), 4))
D2 = zhengchuqy(MBBC(Trim(D1) & String(Len(jss), "0")))
f1 = zhengchuqy(MCC1(MPC1(Trim(b5) & String(Len(jss), "0"), Trim(D2)) & String(Len(jss) + 10, "0"), MbC(Trim(f2), 2)))
f5 = Len(f1) - Len(jss) - 10
f2 = Mid(f1, 1, f5)
f5 = MbC(Trim(f2), 98)
f5 = Left(f5, Len(f5) - 1)
x4 = mbc2(Trim(f2), Trim(f6), Len(jss))
Print f6
Print f2
Print x4
f3 = "283314068346029014014"
x3 = zhengchuqy(MCC1(MPC(MbC(Trim(q4), Trim(f2)), Trim(r13)), MPC1(Trim(jss), Trim(f2))))
jss = zhengchuqy(MCC1(Trim(a), MPC(Trim(q4), Trim(x3))))
jss1 = MPC1(Trim(jss4), Trim(f2))
jss2 = MPC(Trim(jss4), Trim(f2))
q5 = MPC(MbC(Trim(q4), Trim(q4)), Trim(a))
q6 = zhengchuqy(MBBC(Trim(q5)))
jss3 = MPC(Trim(q4), Trim(q6))
jss5 = zhengchuqy(MCC(Trim(jss4), 2))
jss3 = MPC1(Trim(jss3), Trim(jss5))
If Right(jss, 1) Mod 2 = 0 Then
jss = MPC(Trim(jss), 1)
Else
jss = jss
End If
Print jss
Print jss1
Print jss2
Print jss3
Print jss4
If Right(jss1, 1) Mod 2 = 0 Then
jss1 = MPC(Trim(jss1), 1)
Else
jss1 = jss1
End If
jss8 = jss
Do While InStr(MCC1(qdqiandao0(Trim(a)), Trim(jss)), "/") <> 0 And s15 <= 6000
s15 = s15 + 1
jss = MPC1(Trim(jss), 2)
Loop
If InStr(MCC1(Trim(a), Trim(jss)), "/") = 0 Then
Text2 = jss & "*" & MCC1(Trim(a), Trim(jss)) & "   中间数据X=" & x3
Else
Do While InStr(MCC1(Trim(a), Trim(jss8)), "/") <> 0 And s16 <= 6500
s16 = s16 + 1
jss8 = MPC(Trim(jss8), 2)
Loop
Text2 = jss8 & "*" & MCC1(Trim(a), Trim(jss8))
End If




End If
End If
End If
End If
b3 = b3 - 2
Loop
End If
End If
End If
End If
End If
End If
Text3 = Text3 & Timer - t & "秒    " & jp2
End Sub

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

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
ja2 = Val(4 * b8 - 1)
jb2 = MbC(Trim(jn2), Val(4 * b8))
jb2 = MPC1(Trim(jb2), Val(2 * b8))
jb2 = MPC(Trim(jb2), MbC(Trim(jn2), 2))
jb2 = MPC(Trim(jb2), 2)
jb2 = mpc2(Trim(jb2), MbC(Trim(jx2), 2))
jc2 = MPC(Trim(d), MbC(Trim(jn2), Trim(jn2)))
jc2 = MPC(Trim(jc2), MbC(Trim(jn2), 2))
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 "jff1="; jff1
Text3 = Text3 & "jp=" & jp & vbCrLf & "jf=" & jff1 & 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)))
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