Exercicio 2 ficha 3

Ambiente graficio:

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 quociente:
                                                  Private Sub cmdquociente_Click()

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

                                                  End Sub

      
            botão do resto:
                                            Private Sub cmdresto_Click()

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

                                            End Sub

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