ب.م.م و ک.م.م

[mahdi.manian]

با سلام.

دوستان می خواستم برنامه ای بنویسم که ب.م.م و ک.م.م دو عددی را که میگیره حساب کنه.

کد های اصلیشو نوشتم. ولی کار نمی کنه:

Dim A As Integer, B As Integer, X As Integer, Y As Integer, R As Integer, KMM As Integer
A = InputBox("Adade Aval")
B = InputBox("Adade Dovom")

If A < B Then
C = A
A = B
B = C
End If

X = A
Y = B

Do While R = 0
R = B Mod A

A = B
B = R

Loop

Print "B.M.M ="; B

KMM = (X * Y) / B

Print "K.M.M ="; KMM


ممنون میشم اگه دوستان این کد را کامل کنند.

با تشکر.

[ho3ein.3ven]

سلام . کدت رو به صورت زیر ویرایش کردم :

Private Sub Command1_Click()
Dim A As Integer, B As Integer, X As Integer, Y As Integer, R As Integer, KMM As Integer
Dim BMM
A = InputBox("Adade Aval")
B = InputBox("Adade Dovom")
For i = 1 To Val(IIf(A > B, A, B))
If A Mod i = 0 And B Mod i = 0 Then
BMM = i
End If
Next
For i = 1 To A * B
If i Mod A = 0 And i Mod B = 0 Then
KMM = i
Exit For
End If
Next
Print "B.M.M =" & BMM
Print "K.M.M =" & KMM
End Sub

موفق باشید

[mahdi.manian]

ممنون حل شد.