Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB: Encuentra el área y el perímetro de un triángulo basándose en las longitudes de sus tres lados

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

Fórmula del área: fórmula s = (1/4)√(a b c)*(a b-c)*(a c-b)*(a c-b)*(b c-a)

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