عاجل للأستاذ أحمد قرنى

[عمر العزونى]

لا يا اخوانى المدرسين الأعزاء السبب ليس كما تظنون .. جربوا هذا الكود Dim r As Integer = 1
Do While r <= 1
r = r - 2
(MsgBox(r
Loop
ستجدود الشرط true إلى ما لا نهاية والنواتج ( -1،-3،-5،-7،-9،-11،.............ليس له نهاية ... فعندما تطلب منه الناتج بعد انتهاء الحلقة التكرارية فلابد أن لا يستطيع إيجاد ناتج فتظهر رسالة الخطأ " أعلى من المستوى"OverFlow أ/ هشام الصياد.. صفط تراب