Найти значения элементов треугольника - VB

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

Задача с разветвленными алгоритмами. Пусть элементами прямоугольного равнобедренного треугольника являются: катет а, гипотенуза b, высота, опущенная из вершины прямого угла на гипотенузу h, площадь S. Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника. Изобразите на форме равнобедренный треугольник, с подписанными элементами и формулы для их расчета. Использовать оператор выбора. пожалуйста, пишите комментарии к задаче)

Решение задачи: «Найти значения элементов треугольника»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Type Triangle
    a As Double
    b As Double
    h As Double
    s As Double
End Type
 
Function CalcTriangle(Nomer As Long, Param As Double) As Triangle
With CalcTriangle
    Select Case Nomer
    Case 1: .a = Param
    Case 2: .a = Param / Sqr(2)
    Case 3: .a = Param * Sqr(2)
    Case 4: .a = Sqr(Param * 2)
    Case Else: Exit Function
    End Select
    .b = .a * Sqr(2)
    .h = .b / 2
    .s = .a * .a / 2
End With
End Function
 
Sub test()
With CalcTriangle(2, 16) 'номер параметра, значение
    MsgBox "Катет " & .a & vbLf & _
        "Гипотенуза " & .b & vbLf & _
        "Высота " & .h & vbLf & _
        "Площадь " & .s
End With
End Sub