Exercício 7 ficha 3

Ambiente gráfico:

Agora vamos ao codigo:

Textboxs:

                 texbox para inserir o resultado:
                                                                  Private Sub Oper1_Change()
                                                                  End Sub


Labels:

             laabel onde esta escrito "Digite a  sua altura: ":

                                                                                       Private Sub Label2_Click()

                                                                                       End Sub

         

            label onde aparece o resultado:
                                                                 Private Sub resultado_Click()
                                                                 End Sub

Botões:
            botão onde esta escrito "clique para saber o seu peso ideal":

                                                                                             Private Sub cmdoperacao_Click()

                                                                                             resultado.Caption = (Val(oper1.Text) * 72.2) - 58

                                                                                             End Sub

            

            botão sair:
                                Private Sub cmdsair_Click()
                                End
                                End Sub