مشاهدة النسخة كاملة : هام وعاجل الى الاستاذ الفاضل احمد قرنى


mohamed_salem
30-04-2015, 07:27 PM
Dim r As Integer = 1
Do While r <= 1
r = r – 2
Loop

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

محمدالصفتى
01-05-2015, 01:06 AM
لان الحلقه غير منتهيه

Mr.Ramadan Shoman
01-05-2015, 05:16 AM
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
01-05-2015, 03:35 PM
شكرا بارك الله فيكم