Если можно построить треугольник по данным трем отрезкам, то вычислить его периметр и площадь - VB

Option Explicit
 
Private Sub Form_Load()
Dim a As Double, b As Double, c As Double, h As Double, p As Double, s As Double
    a = CDbl(InputBox("a="))
    b = CDbl(InputBox("b="))
    c = CDbl(InputBox("c="))
    If (a + b > c) And (b + c > a) And (a + c > b) Then
        p = a + b + c: h = p / 2
        s = Sqr(h * (h- a) * (h - b) * (h - c))
        MsgBox "p=" & p & vbNewLine & "s=" & s
    Else
        MsgBox "Невозможно построить"
    End If
End Sub