Aula 06- Projeto II

 Módulo 5 - Projeto II - Cálculo IMC

1 Form               Caption

4 Label               Caption

4 TextBox          Text

3 Command       Caption

peso = Val (Text1.Text)

altura = Val (Text2.Text)

imc = peso / (altura*altura)

Text3.Text = imc

If imc < 18.5 Then

    Text4.Text = "Abaixo do Peso"

ElseIf imc >= 18.5 And imc < 24.99 Then

    Text4.Text = "Peso Normal"

ElseIf imc >= 25 And imc < 29.99 Then

    Text4.Text = "Acima do Peso"

Else

    Text4.Text = "Obesidade"

End If