[المهدي مصطفى السعيد]

السلام عليكم ورحمة الله وبركاته
اهلا اهلا بالسيد الاستاذ / عاطف مهدي ... كل عام والجميع بالف الف خير
** Dim X As Single=5..... لا يوجد خطأ وسيتم تخزين القيمة 5 في المتغير x
** "Dim X As Single="5 .... أيضا لا يوجد خطأ وعن طريق التحويل الضمني سيقوم باستخلاص القيمة العددية 5 وتخزينها في المتغير x رغم انها بين علامتي تنصيص ... اي يمكن اعتبارها نصا...
** Dim X As Single="Five" ...... خطأ عند التشغيل من النوع Invalid Cast .... وستظهر رسالة عند النشغيل تؤكد ذلك
** - يمكن استخدام علامة الشرطة السفلية (_) كاسم لمتغير فى البرنامج ( خطأ )
** يمكن أن يزيد اسم المتغير عن 200 حرف ( مجربتهاش )
**
Dim X as single
For X = 1 to 10 step 0
MsgBox (X) 000
Next
MsgBox ("Hiiiii " & X)
** يستمر البرنامج في عرض القيمة ( 1 ) باستمرار وبلا نهاية ..
الحالة الثانية
** Dim X as single
For X = 10 to 1 step 0
MsgBox (X) 000
Next
MsgBox ("Hiiiii " & X)
** سيقوم بعرض مربع رسالة به القيمة Hiiiii 10 مرة واحدة وهي الرسالة الموجودة بعد next مما يعني ان المتغير x سيأخذ أول قيمة له وهي 10 ولن يتم تنفيذ التكرار ولا مرة ..
** الحالة الثالثة
**
Dim X as single
For X = 1 to 10
MsgBox (X) 000
Next
MsgBox ("Hiiiii " & X)
** في هذه الحالة سيتم تنفيذ التكرار 10 مرات وبالتالي يعرض القيم من 1 حتى 10 في مربع رسالة وهي الرسالة الموجودة بين For و Next... ثم يتوقف التكرار مع القيمة 11 ليذهب وينفذ الكود الموجود بعد Next وعرض مربع رسالة به Hiiiiii 11...
** الحالة الرابعة
** نفس الحالة الثانية تماما ........ سيقوم بعرض مربع رسالة به القيمة Hiiiii 10 مرة واحدة وهي الرسالة الموجودة بعد next مما يعني ان المتغير x سيأخذ أول قيمة له وهي 10 ولن يتم تنفيذ التكرار ولا مرة ..
شكرا جزيلا يا سادة ...هذا مجرد اجتهاد ..... كل عام وحضراتكم بالف الف خير