[الأستاذة / أم أمل]

المشاركة الأصلية كتبت بواسطة almsry

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

هنا تستخدم داله 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