Построение треугольника из частей отрезка - VB

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

Помогите народ с задачей, последняя осталась
Всего 1 день, я думаю такое не осилю за это время.
Вот задачп:
Отрезок длиной 100 сантиметров делится на две части в случайно выбранной точке. Затем бóльшая из оставшихся частей точно так же де-лится ещё на две части.
Рассчитать длины всех трёх частей.
Проверить, можно ли из полученных частей сложить треугольник (суммы длин всех возможных сочетаний двух любых сторон должны быть больше длины третьей стороны), вывести на форму результат проверки.
Если треугольник можно сложить, то построить изображение тре-угольника (использовать объект PictureBox). Самую длинную сторону треугольника отложить по оси Х от начала координат. Затем рассчитать координаты вершины С по формулам (рис. 1):
cos(β) = (a2 + c2 — b2)/(2 * a * c)) — теорема косинусов;
Xc = a * cos(β);
Yc = a * sin(β) = a * (12 - cos2(β))1/2.
Рис. 1
После этого полученные координаты вершин соединить линиями с помощью графического метода .Line.
Вопросы к заданию
1. Разработать интерфейс пользователя. В отчёте привести список объек-тов интерфейса и их назначение.
2. Привести в отчёте программный код расчёта длин всех частей отрезка с комментариями каждого оператора.
3. Привести в отчёте алгоритм определения самой длинной стороны.
4. В отчёте описать набор используемых в программе переменных и обосновать их тип.
5. Добавить в программу расчет значений всех углов (в градусах) и пло-щади треугольника. В отчёте привести алгоритм расчёта всех углов треугольника.
Спасибо всем кто хочет помочь

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

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

                            <font color="#00AA00">'Use these to change the size and scale of graph</font>
    XScale = <font color="darkblue"><b>10</b></font> <font color="#00AA00">'Scale in pixels per unit</font>
    YScale = <font color="darkblue"><b>1</b></font>
    XMin = -<font color="darkblue"><b>200</b></font> <font color="#00AA00">'Minimum values</font>
    YMin = -<font color="darkblue"><b>100</b></font>
    XMax = <font color="darkblue"><b>200</b></font> <font color="#00AA00">'Maximum value</font>
    YMax = <font color="darkblue"><b>100</b></font>
    
    <font color="#00AA00">'These next lines fit the graph to the graph</font>
    <font color="#00AA00">'area and lets you manually change the picture</font>
    <font color="#00AA00">'box size without affecting the plotting</font>
    <font color="blue">With</font> GraphPaper
        .ScaleHeight = YMax
        .ScaleWidth = XMax
        YMax = YMax + YMin / <font color="darkblue"><b>2</b></font>
        XMax = XMax + XMin / <font color="darkblue"><b>2</b></font>
    <font color="blue">End</font> <font color="blue">With</font>
    GraphPaper.Cls <font color="#00AA00">'Clear all previous graphs</font>
    
    <font color="#00AA00">'This part draws the two axes</font>
    GraphPaper.<font color="blue">Line</font> (<font color="darkblue"><b>0</b></font>, ConvertToYUnits(<font color="darkblue"><b>0</b></font>))-(XMax - XMin, ConvertToYUnits(<font color="darkblue"><b>0</b></font>))    <font color="#00AA00">'X-axis</font>
    GraphPaper.<font color="blue">Line</font> (XMax, YMax - YMin)-(XMax, <font color="darkblue"><b>0</b></font>) 'Y-axis
                        