Вычислить радиус круга, равновеликого квадрату с заданной длинной стороны - VB

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

1. Вычислить радиус круга, равновеликого квадрату с заданной длинной стороны. 2. Вычислить массу прямого цилиндра по заданным радиусу оснований, высоте и плотности ( размерности исходных параметров выбрать по своему усмотрению) 3. Вычислить длину основания равнобедренного треугольника по заданным боковой стороне и углу при вершине 4. Вычислить время свободного падения тела отпущенного с заданной высоты от поверхности земли (сопротивлением воздуха пренебречь) 5. Рассчитать длину стороны квадрата, периметр которого равен длине окружности заданного радиуса. 6. Рассчитать радиус окружности, длина которой равна периметру квадрата с заданной длинной стороны 7. Создать массив и ввести в него автоматически первые 37 членов геометрической прогрессии с заданными первым членом и знаменателем 8. Сложить почленно два заданных массива, поместив результат в третий массив 9. Расположить на форме графический объект и обеспечить его расположение в любую сторону 10. Расположить на форме графический объект и две полосы продукции и обеспечить изменение месторасположения графического объекта при изменении состояния полос продукции

Решение задачи: «Вычислить радиус круга, равновеликого квадрату с заданной длинной стороны»

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

                            Dim m(1 To 37) As Single
Private Sub Command1_Click()
  m1 = InputBox("Введите первый член геометрической последовательности")
  q = InputBox("Введите знаменатель геометрической прогрессии")
  m(1) = m1
    For i = 1 To 36
        m(i + 1) = m(i) * q
        Print m(i);
    Next i
End Sub
                        