Дана длина окружности. Найти радиус R и площадь S круга - VB

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

Дана длина окружности.Найти радиус R и площадь S круга ограниченного этой окружностью учитывая что L=2*Pi*R,S=Pi*R^2.В качестве значение Pi использовать 3,14. Даны два целых числа.Вывести вначале A и B (A<B).Найти произведение всех целых чисел от A до B включительно. Опысать функцию RootsCount(A,B,C) целого типа,определяющую количество корней квадратного уравнения A*x^2+B*x+C=0(A,B,C-вещественные параметры).С её помощью найти количество корней для каждого из трех квадратных уравнений с даннымт коэфицентами.Количество корней определять по значению дискриминант.D=B^2-4AC

Решение задачи: «Дана длина окружности. Найти радиус R и площадь S круга»

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

                            Private Function RootsCount(a As Double, b As Double, c As Double) As Integer
d = b ^ 2 - 4 * a * c
RootsCount = 1 + Sgn(d)
End Function
                        