[حازم المحمدى]

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

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

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار
أولا عدد مرات التكرار سيكون عدد لا نهائى من المرات و لكن ستكون النتيجة فى كل مرة تكرار هى نفس النتيجة و هى الرقم واحد لذلك سيكون عدد مرات التكرار (1) و ذلك حسب القانون
عدد مرات التكرار = ((النهاية - البداية)/الزيادة )+1
= ((3 - 1 ) / 0 ) + 1
= ( 2 / 0 ) + 1 = ليس لها معنى + 1 = 1
ثانيا فى الأداة Label2 لن يتم عرض أى شىء و ذلك لأن الأمر Label2 جاء بعد نهاية التكرار و هذا التكرار غير متوقف لذلك لن يخرج من الحلقة و لن يتم تنفيذ الكود الذى يلى Next
ثالثا و هو ما يحيرنى أن الأداة Label1 يجب أن يكون بها القيمة 1 و لكن عند التنفيذ عملى لم تكن النتيجة كذلك و لكنها ظلت Label1
السؤال الثانى فى الكود التالى

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

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