چجوری میشه ب.م.م دوتا عدد رو محاسبه كرد ؟

[webmasterha]

سلام دوستان . یه سوال داشتم و اونم این بود كه چجوری میشه بزرگترین مقسوم علیه مشترك دوتا عدد رو محاسبه كرد ( منظورم ب.م.م) .

ممنون میشم اگه كمكم كنین . مرسی

 

[Shine]

ب م م فرمولش چیه ؟
جدا من فرمولش رو نمی دونم :weird:
اگه فرمولش رو بگی می تونم بهت کمک کنم :hmm:

 

[m3hrz4d]

توضیح ریاضی ش رو اینجا دادم :http://forum.persiantools.com/showpost.php?p=1330061&postcount=2
اینم کد ویبی ش :

Private Function GCD(ByVal Number1 As Long, ByVal Number2 As Long) As Long
    Dim Temp As Long
    Do While (Number1 Mod Number2 <> 0)
        Temp = Number1
        Number1 = Number2
        Number2 = Temp Mod Number2
    Loop
    GCD = Number2
End Function