[أحـمد قرنى]

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

الرجا من سيادتكم توضيح اجابة السؤال رقم ب فى السؤال الثالث فى محافظة بنى سويف وهو
اذكر ناتج تنفيذ الكود التالى:
Dim x ,L as integer
L=5
X=1
Do while x <=L
Msgbox (x)
X=x+2
loop
الرجا توضيح الحل ليه x تساوى 1 ، 3 ، 5 وشكرا لسيادتكم

فى البداية أنا محافظة بنى سويف وسؤال ده كان محل جدل عند الطلاب مع انه بسيط

نبدأ الحل هو عايز ناتج تنفيذ البرنامح يعنى عايز اللى هيظهر فى ( msgbox ( x يعنى عايز قيمة x

البداية قيمة x = 1 نبدأ ندخل على الشرط ( x <= l (5 طبعاً انا عندى قيمة x = 1 عينى أقل من 5 بالتالى هنفذ الامر اللى بعد dowhile ألا وهو مربع الرسالة ( msgbox ( x فيقوم بعرض قيمة x = 1
. ثم ينفذ الامر الثانى x = x+2 بالتعويض عن قيمة x=1 تصبح عندى قيمة x فى هذه الحالة x = 3 .

نبدأ نقارن الشرط مرة أخرى ( x <= l (5 فى هذه الحالة قيمة x=3 يعنى أقل من 5 والشرط true يتم تكرار الاوامر مرة أخرى
Msgbox (x فيقوم بعرض قيمة x = 3. ثم تنفيذ الامر x = x+2 بالتعويض عن قيمة x=3 تصبح عندى القيمة الجديدة ل x = 5 .

نبدأ نقارن الشرط مرة أخرى ( x <= l (5 فى هذه الحالة قيمة x=5 يعنى تساوى 5 أذاً قيمة الشرط true يتم تكرار الاوامر مرة أخرى
Msgbox (x فيقوم بعرض قيمة x = 5 . ثم تنفيذ الامر x = x+2 بالتعويض عن قيمة x=5 تصبح عندى القيمة الجديدة ل x = 7 .

نبدأ نقارن الشرط مرة أخرى ( x <= l (5 فى هذه الحالة قيمة x=7 يعنى أكبر من 5 أذاً قيمة الشرط false فى هذه الحالة يتوقف عن التكرار

ونقوم بعض قيم المتغير x التى ظهرت فى مربع الرسالة msgbox (x)
X = 1 , 3 , 5

أرجو تعقيب حضرتك ، وفى انتظار أى أسئلة أخرى