Exercicio 3 ficha 3

Ambiente grafico:

Agora vamos ao codigo:

Textboxs:
                 texbox da direita:
                                                         Private Sub Oper1_Change()
                                                         End Sub

                textbox da esquerda:
                                                         Private Sub Oper2_Change()
                                                         End Sub

Labels:
            label onde está escrito "Resultado:":
                                                                           Private Sub Label1_Click()
                                                                           End Sub
         
            label onde aparece o resultado:
                                                                 Private Sub resultado_Click()
                                                                 End Sub

Botões:
            botão do perimetro:
                                                Private Sub cmdperimetro_Click()

                                                resultado.Caption = (Val(oper1.Text) * 2) + (Val(oper2.Text) * 2)

                                                End Sub  

      
            botão da area:
                                            Private Sub cmdarea_Click()

                                            resultado.Caption = Val(oper1.Text) * Val(oper2.Text)

                                            End Sub

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