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

4 lines
106 B
VB.net

On Error GoTo 0
i = 2147483647 + 1 'Run-time error '6' : Overflow
Debug.Print i