Программирование функций, Программирование процедур, рекурсивную подпрограммa - VB

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

1 (Программирование функций)

Вычислить площадь правильного шестиугольника со стороной a, используя подпрограмму вычисления площади треугольника.

2 (Программирование процедур)

Два натуральных числа называются «дружественными», если каждое из них равно сумме всех делителей (кроме его самого) другого (например, числа 220 и 284). Найти все пары «дружественных чисел», которые не больше данного числа N.

3 ( Решите задачу, используя рекурсивную подпрограмму: )

Описать рекурсивную логическую функцию Simm(S, J), проверяющую, является ли симметричной часть строки S, начинающаяся г-м и кончающаяся -;-м ее элементами. ' ' Помогите с решением данных задач. Если не трудно начиная с дим (вб 2008 тоже не плохо бы )) Спасибо.

Решение задачи: «Программирование функций, Программирование процедур, рекурсивную подпрограммa»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Single
        a = InputBox("A")
        MsgBox(area(a) * 6)
    End Sub
    Public Function area(ByVal a As Single) As Double
        area = (Math.Sqrt(3) / 4) * a ^ 2
    End Function