اقتباس:
المشاركة الأصلية كتبت بواسطة منى محمد عوض
الكود كما يلى
Dim r As Integer = 1
Do While r <= 1
r = r + 2
Loop
MsgBox(r)
الشرط فى الحالة الأولى صحيح r <= 1 حيث قيمة r=1
فتتغير قيمة r وتزيد بمقدار 2 وتصبح 3 وعند التحقق من الشرط للمرة الثانية يكون الشرط خطا فلا يحدث التكرار وتصبح قيمة r النهائية 3 وتظهر فى مربع الرسالة ويكون الاختيار من بين الاجابات (0-2-overflow)
وتكون الاجابة هى overflowحيث هى قيمة أكبر من 0 أو 2 
|
يا أخت منى هى الاجابة فعلا overflow ولكن ليس للسبب الذى ذكرتيه
لان r=r-2 فيظل الشرط true إلى أن يصل إلى مدى أكبر من مدى النوع integer فيحدث خطـأ من النوع runtime error فيكون الناتج overflow