Лабораторная работа от Иглек К.Р

[code]
Public Class Form1
    Dim Number As Integer
    Dim One As Integer
    Dim Two As Integer
    Dim Answer As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Number = TextBox1.Text
        One = Number * Number - Number + 7
        Two = Number + 2
        Try
            Answer = One / Two
        Catch Answer As System.OverflowException
            MessageBox.Show("Вы попытались поделить значение на НОЛЬ!")
        Catch Number As System.InvalidCastException
            MessageBox.Show("Введите integer ЧИСЛО!")
        Finally
            MessageBox.Show(Answer)
        End Try
    End Sub
End Class

[/code]