Realizar un programa que calcule el indice de masa corporal de una persona (IMC = Peso [kg] / altura ^ 2 [m] , e indique el estado que se encuentra en funcion al valor IMC?

Hola.

Tarea : Realizar un programa que calcule el indice de masa corporal de una persona (IMC = Peso [kg] / altura ^ 2 [m] , e indique el estado que se encuentra en funcion al valor IMC.

En visual Studio.

Solución : Para resolver el ejercicio se utilizo if anidados (van uno dentro de otro), en donde se comparó según el resultado del imc, es decir, se ingreso el peso y altura de la persona para luego hacer el calculo.

Como resultado mostrará el mensaje según la escala de valores del diagnostico.

Código en Visual Studio * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.

Click Dim imc, peso, altura As Double ' variables 'Entrada peso = TextBox1.

Text altura = TextBox2.

Text 'Proceso imc = (peso / (altura * altura)) If imc > 40 Then Label4.

Text = "Obesidad morbida (obesidad)" Else If imc > 35 Then Label4.

Text = "Obesidad premorbida (Obecidad grado III)" Else If imc > 30 Then Label4.

Text = "Sobre peso Cronico (obecidad grado II)" Else If imc > 25 Then Label4.

Text = "Sobre peso (obecidad grado I)" Else If imc > 18 Then Label4.

Text = "Peso Normal" Else If imc > 17 Then Label4.

Text = "Bajo Peso" Else If imc > = 16 Then Label4.

Text = "Intra Peso" Else Label4.

Text = "Criterio de ingreso al hospital" End If End If End If End If End If End If End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.

Click TextBox1.

Text = "" TextBox2.

Text = "" Label4.

Text = "" End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.

Click Me.

Close() End Sub

End Class

Archivo adjunto : * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * https : / / app.

Box. com / s / ndym9icbrv8q71zuynyvesk6tgwbepqp

¡ Saludos !