Вычислить площадь круга и длины окружности при известном радиусе в visual basic for application. С использованием inputBox и MsgBox

Предыдущий
вопрос Следующий
вопрос

Для вычисления площади круга и длины окружности при известном радиусе в Visual Basic for Applications с использованием InputBox и MsgBox можно написать следующий код:

Sub CalculateCircleProperties()
Dim radius As Double
Dim area As Double
Dim circumference As Double
radius = InputBox("Введите радиус круга:")
' Площадь круга
area = 3.14159 * radius * radius
' Длина окружности
circumference = 2 * 3.14159 * radius
MsgBox "Площадь круга: " & Format(area, "0.00") & vbCrLf & "Длина окружности: " & Format(circumference, "0.00")
End Sub

При запуске данной процедуры пользователю будет предложено ввести радиус круга с помощью InputBox. После ввода значения будет произведен расчет площади круга и длины окружности, и результаты будут отображены с помощью MsgBox.