目前难于分解的合数

ysr

M1277=2^1277-1=有385位，用时0秒2601983048666099770481310081841021384653815561816676201329778087600902014918340074503059860433081046210605403488570251947845891562080866227034976651419330190731032377347305086443295837415395887618239855136922452802923419286887119716740625346109565072933087221327790207134604146257063901166556207972729700461767055550785130256674608872183239507219512717434046725178680177638925792182271

ysr

如下这个乘法程序靠谱但就是速度不快：

Public Function MbC(D1 As String, D2 As String) As String
Dim X, Y ';两数长度
X = Len(D1): Y = Len(D2)
Dim A() As Integer
ReDim A(1 To X + Y, 1 To Y)
Dim I, J, C1, C2, CJ, JW
For J = Y To 1 Step -1 ';D2
JW = 0 ';进位清0
C2 = Mid(D2, J, 1) ';每位数
For I = X To 1 Step -1 ';D1
  C1 = Mid(D1, I, 1) ';每位数
  CJ = C1 * C2 + JW ';计算乘积
  c = I + J: r = Y + 1 - J
  A(c, r) = CJ Mod 10 ';本位
  JW = CJ \ 10 ';进位
Next
A(c - 1, r) = JW
Next
Dim B() As Integer
ReDim B(1 To X + Y)
JW = 0
For I = X + Y To 1 Step -1
Bit = JW
For J = 1 To Y
  Bit = Bit + A(I, J)
Next
B(I) = Bit Mod 10
JW = Bit \ 10
Next
If B(1) > 0 Then
MbC = MbC & B(1)
Else
MbC = MbC
End If
For I = 2 To X + Y
MbC = MbC & B(I)
Next
End Function

ysr

1153103961384478448404925715924378885327554202134226047348028294505040734467336124656452525279797166397567399850900985140768071391715673547272680475009022731025540851253778962537039004520776708021234701340368231774597408929744933116431873027001298810225982471847

ysr

25195908475657893494027183240048398571429282126204032027777137836043662020707595556264018525880784406918290641249515082189298559149176184502808489120072844992687392807287776735971418347270261896375014971824691165077613379859095700097330459748808428401797429100642458691817195118746121515172654632282216869987549182422433637259085141865462043576798423387184774447920739934236584823824281198163815010674810451660377306056201619676256133844143603833904414952634432190114657544454178424020924616515723350778707749817125772467962926386356373289912154831438167899885040445364023527381951378636564391212010397122822120720357
微信图片_20241125075822.jpg
有617位数
微信图片_20241125080226.jpg
就是这个叫”徐晓亚然“男不男女不女的发的吹捧张某某的文章中的图片，说我的回复：不要在那里发民科的思维，现在该文章已经被他她它自己删除了。

ysr

510403509694646909303666150085058441524219464631908759825103305408133948375519280724359572728062183329211990447881362595934399708370182776040325391193687404271476501676502772381162543192963682922861140437321579622737005023441382388492467193981579606777960947713934176435661297896326982349105314020951000812153607932186156873784487912189321475071818527017397045804852316567358203890208019607226640845798401281328036846403795183433303000126189

有441位

ysr

ysr 发表于 2025-8-30 22:57
5104035096946469093036661500850584415242194646319087598251033054081339483755192807243595727280621833 ...

510403509694646909303666150085058441524219464631908759825103305408133948375519280724359572728062183329211990447881362595934399708370182776040325391193687404271476501676502772381162543192963682922861140437321579622737005023441382388492467193981579606777960947713934176435661297896326982349105314020951000812153607932186156873784487912189321475071818527017397045804852316567358203890208019607226640845798401281328036846403795183433303000126189<441位> = 76545051729020975577310162521900618820659871603466655644272117978380005723696097587725184512638784526308634214455061267843403507870735540391292521535824647434568377082591826884769598224146796862139607<200位> * 6668014432879854274079851790721257797144758322315908160396257811764037237817632071521432200871554290742929910593433240445888801654119365080363356052330830046095157579514014558463078285911814024728965016135886601981690748037476461291163902427<241位>

ysr

数论探秘电子书：
https://app.kuhuace.com/player/index.html?id=1404133033337946113

ysr

最多能分解70位的合数的网上分解软件：
https://zh.numberempire.com/numberfactorizer.php

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) <= 15 Then
Text2 = fenjieyinzi0(Trim(a))
Else
B = zhengchuqy(MBBC(Trim(a)))
Print B
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
Print B1
Print C1
jss9 = 3
Do While jss9 <= 100000001 And InStr(MCC1(qdqiandao0(Trim(a)), Trim(jss9)), "/") <> 0
jss9 = jss9 + 2
Loop
If InStr(MCC1(qdqiandao0(Trim(a)), Trim(jss9)), "/") = 0 Then
Text2 = jss9 & "*" & MCC1(qdqiandao0(Trim(a)), Trim(jss9))
Else
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))
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
End If
Text3 = Timer - t & "秒"
End Sub

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

程序需要改进！！

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)))
Print B
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
Print B1
Print C1
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))
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 = Timer - t & "秒"
End Sub

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