Вычислить угол треугольника

[rocksan654]

Вычислить угол образованный медианой и биссектрисой треугольника
A ( x1 , x2 , .. . , xn ) ,
B ( y1 , y2 , . .. , yn ) и C ( z1 , z 2 , .. . , z n ) опущенными из вершины А.

Помогите задать данные для задачи на листе в excel или через код, чтоб потом производить расчет и сделать вывод в какой нибудь Msgbox.

Function Ugol(a, b, c, Optional grad)
 
Const RAD2GRAD = 57.2957795130823 'градусов в радиане, 180/atn(1)/4
Dim lb&, ub&, i&, labl#, lacl#
  lb = LBound(a): ub = UBound(a)
  ReDim ab#(lb To ub), ac#(lb To ub), bi#(lb To ub), md#(lb To ub)
  For i = lb To ub
    ab(i) = b(i) - a(i): ac(i) = c(i) - a(i)
  Next
  With WorksheetFunction
    labl = Sqr(.SumSq(ab))
    lacl = Sqr(.SumSq(ac))
    For i = lb To ub
      bi(i) = ab(i) / labl + ac(i) / lacl: md(i) = (ab(i) + ac(i)) / 2
    Next
    Ugol = .Acos(.SumProduct(bi, md) / Sqr(.SumSq(bi) * .SumSq(md)))
  End With
  If grad Then Ugol = Ugol * RAD2GRAD
End Function

[Казанский]

откуда ноги растут: http://www.cyberforum.ru/vba/thread2322943.html
Возьмите уже методичку да прочитайте там про Msgbox!