Загрузка данных

Sub
РасчетПлощадиЦилиндра ()
• Объявляем переменные для радиуса (R), высоты (Н) и площади (S)
Dim R As Double, H As Double, S As
Double
Const Pi As Double = 3.14159265
' Ввод данных от пользователя
R = InputBox("Введите радиус основания
цилиндра (R):", "Ввод данных")
H = InputBox ("Введите высоту цилиндра
(H): "
, "Ввод данных")
' Вычисление по формуле S = 2 * Pi * R
*H
S = 2 * Pi * R * H
' Вывод результата с кнопкой ОК и
заголовком
MsgBox
: "Площадь боковой поверхности цилиндра: " & S, vbInformation, "Результат расчета"
End Sub