Ficha de trabalho numero 2

Private Sub cmddivisao_Click()
resultado.Caption = Val(oper1.Text) / Val(oper2.Text)
End Sub


Private Sub cmdmultiplicar_Click()
resultado.Caption = Val(oper1.Text) * Val(oper2.Text)
End Sub

Private Sub cmdsoma_Click()
resultado.Caption = Val(oper1.Text) + Val(oper2.Text)
End Sub


Private Sub cmdsubtrair_Click()
resultado.Caption = Val(oper1.Text) - Val(oper2.Text)
End Sub



Private Sub cmdsair_Click()
End
End Sub