كود التفريق بين الأعداد انكان زوجي ام فردي

اذهب الى الأسفل

default كود التفريق بين الأعداد انكان زوجي ام فردي

مُساهمة من طرف Admin في الخميس أغسطس 21, 2008 10:58 pm

نريد ادخال رقم عن طريق انبت بوتم استخدام كلمه غير لائقه ثم الفحص واخراج النتيجة في رسالة

a = InputBox("insert numper", "#")
If a Mod 2 = 0 Then
MsgBox "زوجي"
Else
MsgBox "فردي"
End If

حيث mod تعني باقي القسمه على العدد الذي يتبعها
وفي هذا المثال يعني باقي قسمه الرقم الذي ادخلناه على الـ 2
فإذا كان صفر فهو زوجي وإلا فهو فردي

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى