Ficha3-2

Private Sub Cmdigual_Click()
Resultado.Caption = Val(oper1.Text) / Val(oper2.Text)
Resultado2.Caption = Val(oper1.Text) Mod Val(oper2.Text)
End Sub

Private Sub cmdsair_Click()
End
End Sub