ficha de trabalho numero 3 exercicio 2

Private Sub cmdquociente_Click()
Label1.Caption = Val(oper1.Text) \ Val(oper2.Text)
End Sub

Private Sub cmdresto_Click()
Label2.Caption = Val(oper1.Text) Mod Val(oper2.Text)
End Sub

Private Sub cmdsair_Click()
End
End Sub