miguel

Resolver el siguiente ejercicio:
Construir un programa que calcule el indice de mass corporal de una persona {IMC= peso[kg]/ altura [m]} eh indique el estado en el que se encuentra esta persona enfuncion del valor IMC.
Valor de IMC diagnostico.
< 16 criterio de ingreso en hospital
De 16 a 17 infrapeso
De 17 a 18 bajo peso
De 18 a 25 peso normal (saludable)
De 25 a 30 sobrepeso(obesidad grado I)
De 30 a 35 sobrepeso cronico (obesidad grado II)
De 35 a 40 obesidad premorbida (obesidad grado III)
>40 obesidad morbida (obesidad grado IV)

Public Class Form1
Private SubButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MC As Double
MC = Val(TextBox2.Text) / Val((TextBox1.Text) * Val(TextBox1.Text))TextBox3.Text = MC
If MC < 16 Then
Label4.Text = "criterio de ingreso al hospital"
ElseIf MC > 16 And MC 17 And MC 18 And MC 25 And MC 30 And MC 35 And MC 40Then
Label4.Text = "sobrepeso (obesidad grado 4)"


End If
End Sub


End Class







Resolver el siguiente ejercicio:
Construir un programa que calcule elindice de mass corporal de una persona {IMC= peso[kg]/ altura [m]} eh indique el estado en el que se encuentra esta persona en funcion del valor IMC.
Valor de IMC diagnostico.
< 16 criterio deingreso en hospital
De 16 17 infrapeso
De 17 18 bajo peso
De 18 25 peso normal (saludable)
De 25 30 sobrepeso (obesidad grado I)
De 30 35 sobrepeso cronico (obesidad grado II)
De 35 40obesidad premorbida (obesidad grado III)
>40 obesidad morbida (obesidad grado IV)

Private Sub Button1_Click( ….)
Dim IMC As Double
IMC = Val(TextBox2.Text) / Val((TextBox1.Text) * Val(TextBox1.Text))TextBox3.Text = IMC
If IMC < 16 Then
Label4.Text = "criterio de ingreso al hospital"
ElseIf IMC > 16 And IMC 17 And IMC 18 And IMC 25 And IMC 30 And IMC 35 And IMC 40 Then
Label4.Text =...