هام وعاجل الى الاستاذ الفاضل احمد قرنى

[mohamed_salem]

Dim r As Integer = 1
Do While r <= 1
r = r – 2
Loop

( MsgBox(r)
لماذا الاجابة
Overflow

[محمدالصفتى]

لان الحلقه غير منتهيه

[Mr.Ramadan Shoman]

المشاركة الأصلية كتبت بواسطة mohamed_salem

Dim r As Integer = 1
Do While r <= 1
r = r – 2
Loop

( MsgBox(r)
لماذا الاجابة
Overflow

R = Over flow

لأن الشرط(True) حيث R = 1

ولا نهاية للتكرار

و للتوضيح أكثر قم بوضع

(MsgBox(r)) قبل Loop

يظهر لنا نتائج لانهاية لها للجملة

r = r - 2

-1,-3,-5,-7……………………

[mohamed_salem]

شكرا بارك الله فيكم