حصريا سطوانة شرح منهج الحاسب الالى طبقا للمنهج الجديدتيرم تانى

[almsry]

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

[أحـمد قرنى]

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

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

Dim a , b , c as integer

If a mod b = 0 then

For c = a to b step2

Msgbox ( c )

Next

End if

بس ده لو زوجى

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

المشاركة الأصلية كتبت بواسطة 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