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

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

Помогите пожалуйста решить задачки по Visual Basic!) 1. Вычислить радиус круга, равновеликого квадрату с заданной длиной стороны. 2. Вычислить массу прямого цилиндра по заданному радиусу оснований, высоте и плотности (размерности исходных параметров выбрать по своему усмотрению). 3. Вычислить длину основания равнобедренного треугольника по заданной боковой стороне и уг¬лу при вершине. 4. Вычислить время свободного падения тела, отпу¬щенного с заданной высоты от поверхности земли (сопротивлением воздуха, пренебречь). 5. Рассчитать длину стороны, квадрата, периметр ко¬торого равен длине окружности заданного радиу¬са. 6. Рассчитать радиус окружности, длина которой равна периметру квадрата с заданной длиной сто¬роны 8. Создать массив и ввести в него автоматически первые 37 членов геометрической прогрессии с заданным первым членом и знаменателем. 9. Сложить почленно два заданных массива, помес¬тив результат в третий массив. 10. Определить, является ли текущий день выходным или рабочим. 11. Создать массив и обеспечить ввод в него значений посредством окна ввода (InputBox), предотвратив сбой программы, связанный с работой этого оператора. Помогите решить пожалуйста)

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

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

                            Private Sub Form_Load()
Label1 = IIf(DTPicker1.DayOfWeek = 7 Or _
DTPicker1.DayOfWeek = 1, "Выходной", "Рабочий")
If DTPicker1.Month = 1 And (DTPicker1.Day < 6 Or DTPicker1.Day = 7) Or _
DTPicker1.Month = 2 And DTPicker1.Day = 23 Or _
DTPicker1.Month = 3 And DTPicker1.Day = 8 Or _
DTPicker1.Month = 5 And (DTPicker1.Day = 1 Or DTPicker1.Day = 9) Or _
DTPicker1.Month = 6 And DTPicker1.Day = 12 Or _
DTPicker1.Month = 11 And DTPicker1.Day = 4 _
Then Label1 = "Выходной"
End Sub
                        