نموذج اجابة الحاسب صحيح تماما

[lola1eg]

من فضلك افتح ملف وضع في زر واكتب بداخله هذا الكود وشوف الناتج


Dim x, m AsInteger
x = 1
For m = 0 To 7 Step 3
x = x * 2
Next
MsgBox(m)
MsgBox(x)

سوف تظهر قيمة m , x وسوف تجدها 9 و 8 كما هي في نموذج الاجابة

[سيف سالم]

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

من فضلك افتح ملف وضع في زر واكتب بداخله هذا الكود وشوف الناتج


Dim x, m AsInteger
x = 1
For m = 0 To 7 Step 3
x = x * 2
Next
MsgBox(m)
MsgBox(x)

سوف تظهر قيمة m , x وسوف تجدها 9 و 8 كما هي في نموذج الاجابة

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

[momo momo]

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

من فضلك افتح ملف وضع في زر واكتب بداخله هذا الكود وشوف الناتج


Dim x, m AsInteger
x = 1
For m = 0 To 7 Step 3
x = x * 2
Next
MsgBox(m)
MsgBox(x)

سوف تظهر قيمة m , x وسوف تجدها 9 و 8 كما هي في نموذج الاجابة

طيب حضرتك جربى و حطى ال 2 msgbox قبل الNext و شوفى اية الناتج

Dim x, m AsInteger
x = 1
For m = 0 To 7 Step 3
x = x * 2
MsgBox(m)
MsgBox(x)
Next

هنا بقى اسالى الموجة الى وضع الامتحان الطالب يعرف منين ان حضرتك عايز قيمة m قبل او بعد Next؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!!!!!!!!!