برنامج قواسم عدد طبيعي

[صالح حمادي]

السلام عليكم و رحمة الله تعالى و بركاته بعد أن قدمت لكم برنامج لحساب القاسم المشترك الأكبر بطريقتين في نفس البرنامج اليوم نقوم بتقديم برنامج آخر يقوم بحساب جميع قواسم عدد طبيعي و يعطي القاسم المشترك لعددين. بالتوفيق للجميع

أنا في إنتظار ملاحظاتكم القيمة أصدقائي.

Me.l.RowSource = ""
Me.l1.RowSource = ""
Me.l2.RowSource = ""
If Me.x1 > Me.y1 Then
x = Me.x1
Else
x = Me.y1
End If

For i = 1 To x
n = x1 Mod i
m = y1 Mod i
If n = 0 Then
Me.l.AddItem (i)
End If
If m = 0 Then
Me.l1.AddItem (i)
End If
If n = 0 And m = 0 Then
Me.l2.AddItem (i)
Me.pg = i
End If
Next

 

برنامج القواسم.rar