设计一个能够完成加、减、乘、除、取余等运算的简单计算器?

& x + y)
   Case ")
    Exit Sub
  End If
  Select Case op
   Case "/ / & x /.Text)
  If y = 0 And (op = ":
    MsgBox (x & " & x * y)
   Case ";/ = " % "" + ":
    MsgBox (x & "-".Text
  y = Val(Text3;%"！" & y & "; "！"所要求的程序已经完成;;;"，取余数用%作运算符:
    MsgBox (x & "除法运算中除数不能为0;*" = ":
    MsgBox (x & " * " & y & "。请采纳; & y & " y)
   Case Else
    MsgBox (" & y & "：
Private Sub Command1_Click()
  x = Val(Text1;%" & x Mod y)
   Case " & x - y)
   Case "; - " = ":
    MsgBox (x & ".Text)
  op = Text2; & y & " = "+" Or op = "未识别的运算符;) Then
    MsgBox (" = "