Question

How to use Try Catch Finally in VB.NET

Answer 1

Imports System
Imports System.IO

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim x As Integer = 3
        Dim y As Integer = 1
        Dim n As Integer
 
        Try
            n = x \ y
            Console.WriteLine("n = {0}", n)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Console.WriteLine("Stack Trace: " & vbCrLf & ex.StackTrace)
        Finally
            Console.WriteLine("Finally")
        End Try
    End Sub
End Class

 
 
 
' run:
'
' n = 3
' Finally4
'

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.IO

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim x As Integer = 3
        Dim y As Integer = 0
        Dim n As Integer
 
        Try
            n = x \ y
            Console.WriteLine("n = {0}", n)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Console.WriteLine("Stack Trace: " & vbCrLf & ex.StackTrace)
        Finally
            Console.WriteLine("Finally")
        End Try
    End Sub
End Class

 
 
 
' run:
'
' Attempted to divide by zero.
' Stack Trace: 
'   at Program.Main (System.String[] args) [0x00011] in <d181028a9d974f559230f36deae1feca>:0 
' Finally
'
'

70+ SQL courses for beginners and professionals