Programación VB de computadora de fórmula Helen

Private Sub Form_Click()

Dim a%, b%, c%, p%, s%

a = Val(InputBox("Por favor, introduzca El valor de a"))

b = Val(InputBox("Ingrese el valor de b"))

c = Val(InputBox("Ingrese el valor de c "))

Si a + b > c Y a + c > b Y b + c > a Entonces

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

Imprimir s

Finalizar si