Private Sub divisor(fz As Long , fm As Long ) |
Dim min As Integer , k As Integer |
If fm < fz Then min = fz Else min = fm |
For k = 2 To min |
Do While fz Mod k = 0 And fm Mod k = 0 |
fz = fz / k |
fm = fm / k |
Loop |
Next k |
End Sub |
by: 发表于:2017-11-27 11:26:05 顶(0) | 踩(0) 回复
??
回复评论