بارك الله فى حضرتك ياستاذة مروة ويرحم والديكى

مشكور علي المجهود

العفو تحت امر حضرتك

ربنا يوفقك يا استاذة ويجزيك خير إن شاء الله .

شكرا ربنا يوفقك

جزاك الله خيرا

ممكن حد يحللى الورطه دى
صمم برنامج يعرض الارقام الفرديه بدءا من رقم يدخله المستخدم حتى رقم يدخله المستخدم لاحظ انه يمكن ان يدخله المستخدم رقم البدايه زوجى او صفر

هنا تستخدم داله inputbox لادخال البداية وأخرى للنهاية

ونضع buton على النموذج ثم تكتب فيه البرمجة

التاليه
Dim a, b, c As Integer

("ادخل الرقم الأول")a=inpubox

("ادخل الرقم الأخير")b=inpubox


If a Mod 2 = 0 Or a = 0 Then a = a + 1

For c = a To b Step 2

MsgBox(c)

Next

الاسطوانة لاتعمل

ازاى لا تعمل اية اللى بيحصل بالضبط

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

أنا حملت الاسطوانة وهي تعمل وشيقة في تصميمها

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