Module Module1 Sub Main() Dim number3 As Double Dim number1, number2 As Integer On Error GoTo error1 number1 = 10 number2 = 0 number3 = number1 / number2 Console.Write(number3) Console.ReadLine() Exit Sub error1: Console.Write("Exist one Error") Console.ReadLine() End Sub End Module
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)