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

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