[سيف سالم]

ولو تم تعديل السؤال

dim r as boolean= 1
do while r <=1
r=r-2
loop
msgbox(r)1

الاجابة (0 - 2 - overflow - لا شئ مما سبق )