Programación VB: Encuentra el área y el perímetro de un triángulo basándose en las longitudes de sus tres lados

La circunferencia son los tres sumados

El código al que te refieres primero determina la legalidad del cálculo de la longitud de los tres lados de entrada y luego calcula

Private Sub Command1_Click(Index As Integer)

Dim s Como único

Seleccionar índice de caso

Caso 0 'Calcular

Si a(0) lt;= 0 o a(1) lt;= 0 o a (2) lt;= 0 o_

a(0) a(1) lt;= a(2) o a(0) a(2) lt;= a(1) o a (1 ) a(2) lt; = a(0) then

'Un lado cuya longitud es 0 o un número negativo, o la suma de las longitudes de dos lados cualesquiera es menor o igual a tercer lado, ambos no son triángulos

MsgBox "¡Error de entrada de datos!"

Salir de la subrutina

De lo contrario

a(3) = 0,25 * ((a(0) a(1) a(2))* (a(0) a(1) - a(2))* (a(0) a(2) - a(1)) * ( a(1) a(2) - a(0)))p>Fin de selección

End Sub

Subtexto privado1_Change(Indexar como entero)

If Val(Text1(Index).Text) lt; = 0 Then Text1(Index) = "": Salir Sub 'Desactivar números no positivos

a(Index) = Val(Text1(Index) ).Text ) 'Especifique tres lados

End Sub

'Si tiene alguna pregunta, envíe preguntas y respuestas