Mega Code Archive
Demonstrating overflows with and without checking
<![CDATA[
Imports System
Public Class MainClass
Shared Sub Main()
Try
Dim number1 As Integer = Int32.MaxValue ' 2,147,483,647
Dim number2 As Integer = Int32.MaxValue ' 2,147,483,647
Dim sum As Integer = 0
' output numbers
Console.WriteLine("number1: {0}" & vbCrLf & _
"number2: {1}", number1, number2)
Console.WriteLine(vbCrLf & _
"Sum integers in checked context:")
sum = number1 + number2 ' compute sum
Console.WriteLine(vbCrLf & _
"Sum after operation: {0}", sum)
' catch overflow exception
Catch overflowExceptionParameter As OverflowException
Console.WriteLine(overflowExceptionParameter.ToString())
End Try
End Sub ' Main
End Class
]]>