Question

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.

psdta:toca a ser en visual estudio y en la imagen esta como toca a ser

Answer 1

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 !