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

7 lines
145 B
VB.net
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
i=0
On Error GoTo overflow
i = 2147483647 + 1
...
overflow:
Debug.Print "Error: " & Err.Description '-> Error: Overflow