VB.Net/Language Basics/Overflow — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 12:42, 26 мая 2010
Demonstrating overflows with and without checking
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