[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……………………