[mohamed_salem]

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

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