VB.Net by API/System/DivideByZeroException

Материал из VB Эксперт
Перейти к: навигация, поиск

DivideByZeroException.Message

<source lang="vbnet">

Imports System.IO public class Tester

  public Shared Sub Main
       Dim y As Integer
       Dim x As Integer
       Dim z As Integer
       Try
           x = 1
           y = 0
           z = x / y
       Catch e As DivideByZeroException
           Console.WriteLine("You have attempted to divide by zero!")
           y = 2
           z = x / y
       Catch e As OverflowException
           Console.WriteLine("You have encountered an overflow exception. ")
           y = 2
           z = x / y
       Catch e As System.Data.ConstraintException
           Console.WriteLine("You have encountered a constraint exception. ")
           y = 2
           z = x / y
       Finally
           Console.WriteLine(x & "/" & y & " = " & z)
       End Try
  End Sub
  

End class


 </source>