[زياد_عاطف]

المشاركة الأصلية كتبت بواسطة حازم المحمدى

فى الكود التالى

Dim A As integer
For A = 1 To 3 Step 0
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار

=======================================
فى جملة For Next إذا كانت قيمة البداية للعداد أصغر من قيمة النهاية و كانت قيمة الزيادة التى بعد Step موجبة يتم التكرار طالما أن قيمة العداد أقل من أو تساوى قيمة النهاية ، و يتوقف التكرار إذا أصبحت قيمة العداد أكبر من قيمة النهاية
و فى هذه الحالة السابقة إذا فرضنا أن قيمة الزيادة (0) سيدخل البرنامج فى حلقة تكرارية لا نهائية مصطحبا معه قيمة البداية للعداد
و فى هذا المثال سيدخل البرنامج الحلقة و قيمة العداد1 فيتم طباعة قيمة العداد 1 على الاداة Label1 لمالا نهاية و لن يتم الخروج من الحلقة لذا لن يذهب البرنامج مطلقا للأمر Label2.Text = A و قد يتوقف البرنامج عن الاستجابة
================================================== =
فى جملة For Next إذا كانت قيمة البداية للعداد أكبر من قيمة النهاية و كانت قيمة الزيادة التى بعد Step سالبة يتم التكرار طالما أن قيمة العداد أكبر من أو تساوى قيمة النهاية ، و يتوقف التكرار إذا أصبحت قيمة العداد أصغر من قيمة النهاية
و فى هذه الحالة السابقة إذا فرضنا أن قيمة الزيادة (0) لن يتم التكرار مطلقاً و سيذهب البرنامج لتنفيذ الأمرLabel2.Text = A و هو مصطحب معه قيمة البداية للعداد 1
=================================

عاطف مهدى حسان - معلم أول (أ) كمبيوتر