|

楼主 |
发表于 2021-10-8 09:59
|
显示全部楼层
bu neng fenjie位,用时9448.803秒
Private Sub Command1_Click()
Dim m, n
m = Trim(Text1)
n = Trim(Text2)
t = Timer
n1 = n
n = MPC1(Trim(n), 32400)
n1 = MPC(Trim(n1), 32400)
Do While InStr(MCC1(Trim(m), Trim(n)), "/") <> 0 And s15 <= 5000
s15 = s15 + 1
n = MPC1(Trim(n), 2)
Loop
If InStr(MCC1(Trim(m), Trim(n)), "/") = 0 Then
Text3 = n & "*" & MCC1(Trim(m), Trim(n))
Else
Do While InStr(MCC1(Trim(m), Trim(n1)), "/") <> 0 And s16 <= 5000
s16 = s16 + 1
n1 = MPC(Trim(n1), 2)
Loop
If InStr(MCC1(Trim(m), Trim(n1)), "/") = 0 Then
Text3 = n1 & "*" & MCC1(Trim(m), Trim(n1))
Else
Text3 = "bu neng fenjie" & "位,用时" & Timer - t & "秒"
End If
End If
End Sub |
|