[بيدومجدى]

Dim r As Integer = 1

Do While r <= 1

r = r - 2

Loop

MsgBox(r)

ارجو التوضيح والشرح لماذا قيمة R Overflow