المشاركة الأصلية كتبت بواسطة سامح عبد العظيم (المشاركة 5848171)

ما الخطأ في الكود التالي
dim x as byte= 300

المشاركة الأصلية كتبت بواسطة winter4444 (المشاركة 5848331)

أستاذ أحمد
التكرار يتوقف عند العدد 2 وليس صفر لأن قيمة النهاية 1
صوبني لو أنا خطأ

المشاركة الأصلية كتبت بواسطة winter4444 (المشاركة 5848353)

سامحني استاذ أحمد
أين سيكون مربع الرسالة قبل أم بعد Next لأن ذلك غير موجود بالسؤال

المشاركة الأصلية كتبت بواسطة winter4444 (المشاركة 5848377)

والله أنا تعبتك معايا لكن سؤال الطالب سيكون حول هذه النقطة
Dim M As Integer

For M = 10 To 1 Step -2
MSGBOX (M
Next
في هذه الحالة التكرار يتوقف عند 2

حضرتك فى حالة وجود Msgbox هنا بيبقى عايز ما يغرض داخل مربع الرسالة وليس قيمة العداد لان بردو قيمة العداد هيعرض اخر حاجة داخل مربع الرسالة 2 ويطلع ينقض -2 يبقى صفر فى الحالة دى يخرج من التكرار وينفذ ما بعد next وهنا مش موجود حاجة يبقى خلص الكود ويبقى اخر ما عرض داخل مربع الرسالة 2
ــــــــــــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــ
Dim M As Integer
For M = 10 To 1 Step -2
Next
MSGBOX (M
التكرار هنا يتوقف عند الصفر
سؤالي الطالب سيضع القيمة على أساس أي من الاثنين

المشاركة الأصلية كتبت بواسطة winter4444 (المشاركة 5848989)

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