Class Tester
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
Console.WriteLine("number1: {0}" & vbCrLf & _
"number2: {1}", number1, number2)
Console.WriteLine("Sum integers in checked context:")
sum = number1 + number2 ' compute sum
Console.WriteLine("Sum after operation: {0}", sum)
Catch overflowExceptionParameter As OverflowException
Console.WriteLine(overflowExceptionParameter.ToString())
End Try
End Sub
End Class
|