VB.Net/Language Basics/Overflow
Demonstrating overflows with and without checking
<source lang="vbnet"> 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
</source>