Вычисление площади поверхности и длины экватора на основе известного радиуса планет солнечной системы - VB

Формулировка задачи:

1. Напишите программу вычисления площади поверхности и длины экватора на основе известного радиуса планет солнечной системы. Форму планет будем считать шаром. Вычисление площади поверхности и длины экватора оформите отдельными функциями.

Решение задачи: «Вычисление площади поверхности и длины экватора на основе известного радиуса планет солнечной системы»

textual
                            Листинг программы 
                        

                            Sub planet()
Const pi As Single = 3,1415926535
Dim R,S,l as Double
 
R = InputBox("Введите радиус планеты")
'Площадь поверхности
S = 4 * pi * R * R
'Длина экватора
l = 2 * pi * R
 
Print "Площадь поверхности ",S
Print "Длина экватора ", l
End Sub
                        