Private Sub CommandButton1_Click()

Dim R As Single, L As Single

Dim H As Single, S As Single, V As Single

Dim Pi As Single

'Радиус основания

R = TxtR.Value

'Длина образующей

L = TxtL.Value

'Высота конуса

H = Sqr(L ^ 2 - R ^ 2)

'Общая поверхность

Pi = WorksheetFunction.Pi 'Функция рабочего листа

S = Pi * R ^ 2 + Pi * R * L

'Объём

V = 1 / 3 * Pi * R ^ 2 * H

TxtH.Value = Format(H, "0.00")

TxtS.Value = Format(S, "0.00")

TxtV.Value = Format(V, "0.00")

End Sub

Рис. 6. Разработка формы для вычисления общей поверхности и объёма конуса

6. Дважды щёлкнуть по кнопке Выход и записать в окне кода процедуру.

Private Sub CommandButton2_Click()

Unload Me