|

楼主 |
发表于 2021-10-7 10:27
|
显示全部楼层
如下是用来试验因子的程序,发一下代码:
Private Sub Command1_Click()
Dim m, n
m = Trim(Text1)
n = Trim(Text2)
n1 = n
Do While InStr(MCC1(Trim(m), Trim(n)), "/") <> 0 And s15 <= 50
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 <= 50
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"
End If
End If
End Sub
'为了节省时间,仅仅变化末尾2位数字的,可能不行不能分解。 |
|