Imports System
Imports System.Data
Imports System.Diagnostics
public class MainClass
Shared Sub Main()
Try
Dim Result As Double = 100 \ CInt("0")
Console.WriteLine(Result)
Catch E As System.DivideByZeroException
Console.WriteLine("Message: " + E.Message)
Dim F As Integer, S As New StackTrace(E)
Console.WriteLine("StackFrame: ")
For f = 0 To S.FrameCount - 1
Console.WriteLine(S.GetFrame(f).ToString())
Next F
End Try
End Sub
End Class
|