Помогите написать функцию плиз.Не получается

[Clockgen]

Люди помогите написать функцию,а то совсем не получается.
Вот собственно задание:

Напишите нестанд функцию, которая имеет 4 аргумента стороны треугольника и размерность. В зависимости от значения аргумента размерности данная функция возвращает значение медиан (md=1/2корень(2*b^2+2*c^2-a^2) и т д), при условии, что треугольник существует. Если значение аргумента разрядность принимает другое значение, функция возвращает значение ошибку #число!

Как это можно сделать?

[IgorGO]

скопировать это в модуль

Function Mediana(a As Single, b As Single, c As Single, n As Integer)
  Dim s(3) As Single, max As Integer, i As Integer, sum As Single
  s(1) = a: s(2) = b: s(3) = c
  max = 1
  For i = 2 To 3
    If s(i) > s(max) Then max = i
  Next
  Mediana = "Не треугольник"
  sum = 0
  For i = 1 To 3
    If s(i) <= 0 Then Exit Function
    If i <> max Then sum = sum + s(i)
  Next
  If sum <= s(max) Then Exit Function
  Mediana = "#Число"
  If (n < 1) Or (n > 3) Then Exit Function
  sum = 0
  For i = 1 To 3
    If i <> n Then sum = sum + 2 * s(i) ^ 2
  Next
  Mediana = Sqr(sum - s(n) ^ 2) / 2
End Function

[Clockgen]

Спасибо вы опять меня выручили!