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