Imports System
Imports System.Data
Imports System.IO
public class MainClass
Shared Sub Main()
Dim FileToRead As String = "test.txt"
Dim TestFile As FileStream
Dim Reader As New StreamReader(FileToRead)
Do
Dim I As Integer, S As String
Dim Result As Integer
Try
S = Reader.ReadLine()
I = CInt(S)
Result = 100 \ I
Console.WriteLine(Result)
Catch DivByZero As System.DivideByZeroException
Console.WriteLine("** Divide by zero **")
Catch BadConversion As System.InvalidCastException
Console.WriteLine("** " + S + " is not a number **")
Throw New System.InvalidCastException("My own exception happened here", BadConversion)
Catch OtherErrors As Exception
Throw OtherErrors
End Try
Loop While Reader.Peek <> -1
End Sub
End Class
|
