Aula 6 - Mod 5 - Projeto II - Cálculo

 1 form             caption

4 label              caption

4 textbox           text

3 command       caption

*Code "Calcular IMC"***

peso=Val(Text1.Text)

altura=Val(Text1.Text)

imc=peso/(altura*altura)

Text3.Tex=imc

If imc<18.5 Then

(Text4.Text)= Abaixo do peso

Elself imc="Peso normal

Else imc>=25= Acima do peso

Else Text4.Text= Obesidade

End If