Ficha nº2

Código:

Private Sub cmdsair_Click()

End

End Sub

Private Sub divisao_Click()

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

End Sub

Private Sub multiplicacao_Click()

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

End Sub

Private Sub soma_Click()

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

End Sub

Private Sub subtracao_Click()

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

End Sub