Чтобы вычислить площадь и периметр прямоугольника достаточно всего лишь знать как они считаются 
Напомню, что площадь - это длина, умноженная на ширину, а периметр - сумма длин сторон прямоугольника. Обозначим через а - длину, через b - ширину, через S - площадь, через р - периметр прямоугольника. Создадим 2 кнопки и метку. Вот программа: Dim a, b, S, p As Double
____________________________________________________________________________
Private Sub Площадь_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Площадь.Click
a = InputBox("Введите длину прямоугольника")
b = InputBox("Введите ширину прямоугольника")
S = a * b
Label2.Text = "Площадь прямоугольника = " & S
End Sub
____________________________________________________________________________
Private Sub Периметр_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Периметр.Click
a = InputBox("Введите длину прямоугольника")
b = InputBox("Введите ширину прямоугольника")
p = a + a + b + b
Label2.Text = "Периметр прямоугольника = " & p
End Sub
Почему мы объявили переменные типа As Double, а не, например, Integer? Да хотя бы потому, что не во всех задачах длина и ширина прямоугольника являются целыми числами Напомню, что Double - десятичная дробь двойной точности.
Ну вот пожалуй и всё.
