کد پیدا کردن مضرب مشترک بین 2عدد

[karem2074]

با سلام
دوستان من به یک کد نیاز دارم که 2داده رو دریافت کنه و مضرب مشترکشون رو نمایش بده.

مثلا: عدد 10 و 20 رو وارد کردم مضرب مشترکشون که 2میشه رو برام نمایش بده.

ممنون میشم سریع پاسخ بدین.

با تشکر

[mr-adler]

سلام
دو جور مضرب مشترک داریم. ک م م & ب م م (یادش بخیر اون روزا:ناراحت:)
کدوم رو منظورتون هست؟البته من هنوز به این مسئله فکر نکردم و مطمئن نیستم جواب رو بدونم . اما به هر حال مشخص کردن این نکته به پاسخ دهنده کمک میکنه.

[kitcat_m18]

آفرين بر تو mr-adler ايشالا کم کم برنامه نويسي خوبي ميشي :لبخندساده:

[just4froum]

با سلام

خوب عزيزان ايشون كه خودشون مثال زدن ب.م.م 20 و 10 ميشه 10 ولي ك.م.م 20 و 10 ميشه همون 20.

اگه بتونم تا شب برات كدشو ميزارم.

[just4froum]

بفرماييد:

دوتا text و يك button قرار بده و ك زير را براش بنويس :
تذكر : اين كد ب.م.م 2 عدد رو بدست مياره كه به روشي مشابه ميتوني براي هر تعداد عدد كه ميخواي بنويسي.

Private Sub Command1_Click()
Dim First As Long
Dim Second As Long
Dim smaller As Long
Dim BMM As Long
Dim x As Long
First = CLng(Text1.Text)
Second = CLng(Text2.Text)
If First <= Second Then
smaller = First
ElseIf Second < First Then
smaller = Second
End If

For x = 2 To smaller
If First Mod x = 0 Then
If Second Mod x = 0 Then
BMM = x
End If
End If
Next x
MsgBox BMM
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If (KeyAscii < vbKey0 Xor KeyAscii > vbKey9) And KeyAscii <> 8 Then KeyAscii = 0
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < vbKey0 Xor KeyAscii > vbKey9) And KeyAscii <> 8 Then KeyAscii = 0
End Sub




موفق باشيد

[mr-adler]

سلام
77231
برنامه نمایش مضارب مشترک دو عدد + ب م م
فاقد سورس(فکر نکنم با مسائلی که توسط دوستان مطرح شد دیگه نیازی به ارائه سورس باشه اما اگه کسی خواست بگه بزارم )
البته یه ایراداتی داره که به امید خدا رفعشون خواهم کرد....

[arenaw]

با اجازه جناب just4froum یکم کد ایشون رو خلاصه کردم که واسه افراد مبتدی راحت تر باشه

Dim First&, Second&, smaller&, BMM&, x&
First = CLng(InputBox(""))
Second = CLng(InputBox(""))
smaller = iif(First <= Second, First, Second)
For x = 2 To smaller
If First Mod x = 0 and Second Mod x = 0 Then BMM = x
Next x
MsgBox BMM