Как вычислить радиус окружности, описанной около треугольника со сторонам а, b, c - VB

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

*С помощью VBA вычислить радиус окружности, описанной около треугольника со сторонам * а, b, c. Использовать формулы для расчета периметра, площади и радиуса. Для вычисления площади использовать встроенную функцию Sqr, которая вычисляет квадратный корень числа. Исходные данные вводить через диалог с пользователем, используя функцию InputBox, а результат вывести с использованием MsgBox. * * * * * * * * 1) a=2,75; *b=4,75; *c=3,65; * * * *ответ: 2,383 2) a=3; *b=4; *c=5; * * * * * * * *ответ: 2,5 3) a=10; *b=8; *c=6; * * * * * * * *ответ: 5,00

Решение задачи: «Как вычислить радиус окружности, описанной около треугольника со сторонам а, b, c»

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

                                Dim a As Double, b As Double, c As Double
    Dim r As Double, Per As Double, p  As Double, S As Double
    a = InputBox("a = ", , 2.75)
    b = InputBox("b = ", , 4.75)
    c = InputBox("c = ", , 3.65)
    Per = a + b + c
    p = Per / 2
    S = Sqr(p * (p - a) * (p - b) * (p - c))
    r = (a * b * c) / (4 * S)
    MsgBox r
                        