Exercicio 1 ficha 3

 Ambiente grafico:

Agora vamos ao codigo:

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

                textbox do meio:
                                              Private Sub Oper2_Change()
                                              End Sub

                texbox 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 da media:
                                        Private Sub cmdmedia_Click()

                                        resultado.Caption = (Val(Oper1.Text) + Val(Oper2.Text) + Val(Oper3.Text)) / 3

                                        End Sub

          
            botão de subtração:
                                            Private Sub cmdmenos_Click()
                                            resultado.Caption = Val(Oper1.Text) - (Oper2.Text)
                                            End Sub

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