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

[akoymmf]

بسم الله الرحمن الرحيم
البيان من النوع Integer يسمح بتخزين القيم الموجبو السالبة على المدى المخصص له
لكن السبب هنا من يظهر خارج المدى بسبب ان بداية التكرار القيمهr = واحد ويتوقف عندما تصبح القيمة r اكبر من واحد وها لن يحدث وذلك اننا ننقص 2 كل مرة فيدخل فى تكرار لانهائى حتى يخرج من مدى توع البيان المعلن
ولتجربة ضع مربع الرسالة داخل التكرار

Dim m As Integer
m = 1
Do While m <= 1
m = m - 2
( MsgBox(m)
Loop