RosettaCodeData/Task/Integer-overflow/Visual-Basic-.NET/integer-overflow-14.vb
2023-07-01 13:44:08 -04:00

7 lines
236 B
VB.net

Dim i As Integer '32-bit signed integer
Try
i = -2147483647 : i = -(i - 1)
Debug.Print(i)
Catch ex As Exception
Debug.Print("Exception raised : " & ex.Message)
End Try