VB.Net Tutorial/Statements/Resume

Материал из VB Эксперт
Версия от 12:54, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Resume

Module Module1
    Sub Main()
        On Error GoTo Handler
        Dim i1 As Integer = 0
        Dim i2 As Integer = 128
        Dim intResult As Integer
        intResult = i2 / i1
        Console.WriteLine("Press Enter to continue...")
        Console.ReadLine()
        Exit Sub
Handler:
        Console.WriteLine("An overflow error occurred.")
        Resume Next
    End Sub
End Module
An overflow error occurred.
Press Enter to continue...