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

7 lines
145 B
VB.net

i=0
On Error GoTo overflow
i = 2147483647 + 1
...
overflow:
Debug.Print "Error: " & Err.Description '-> Error: Overflow