RosettaCodeData/Task/Integer-overflow/Visual-Basic/integer-overflow-2.vb

5 lines
98 B
VB.net

i=0
On Error Resume Next
i = 2147483647 + 1
Debug.Print i 'i=0