Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Try
CalculateValue()
Catch ex As Exception
Console.WriteLine( "ex.Message:" & ex.Message )
Console.WriteLine( "ex.StackTrace:" & ex.StackTrace )
Console.WriteLine( "ex.ToString:" & ex.ToString )
End Try
End Sub
Shared Private Function CalculateValue() As Integer
Return 1 \ Integer.Parse("0")
End Function
End Class
|