Допустим у нас есть спичечная коробка и нужно вычислить ее площадь основания, объем и полную площадь поверхности по известным ее размерам. Для начала нам нужен проект с кнопкой(Button1) и 3-мя метками(Label). Разместим их на форме. 
Придумаем имена переменным:
Ширина - ширина,
Толщина - толщина,
Высота - высота,
S_основ - площадь основания,
V - объем,
Периметр - периметр основания,
S_бок - площадь боковой поверхности,
S_полн - полная площадь поверхности.
Поскольку не известно, будут ли исходные данные целыми, объявляем все переменные - Double.
Вот программа:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ширина As Double 'ширина коробки
Dim Толщина As Double 'толщина коробки
Dim Высота As Double 'высота коробки
Dim Периметр As Double 'периметр основания
Dim V As Double 'объем
Dim S_основ As Double 'площадь основания
Dim S_бок As Double 'площадь боковой поверхности
Dim S_полн As Double 'полная площадь поверхности
'Ввод исходных данных
Ширина = InputBox("Введите ширину коробки")
Толщина = InputBox("Введите толщину коробки")
Высота = InputBox("Введите высоту коробки")
'Вычисление результатов
S_основ = Ширина * Толщина
V = S_основ * Высота
Периметр = 2 * Ширина + 2 * Высота
S_бок = Периметр * Высота
S_полн = 2 * S_основ + S_бок
'Отображение результатов
Label1.Text = "Площадь основания = " & S_основ
Label2.Text = "Объем = " & V
Label3.Text = "Полная площадь поверхности = " & S_полн
End Sub
