Module Module1
Sub Main()
Try
Console.WriteLine("Result: ", First())
Catch Except As Exception
Console.WriteLine(Except.StackTrace)
End Try
End Sub
Private Function First() As Integer
First = Second()
End Function
Private Function Second() As Integer
Second = Third()
End Function
Private Function Third() As Integer
Dim A As Integer = 0
Third = 100 Mod A
End Function
End Module
|