装修问答

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

& 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 (" = "

郁敏0729 452024-06-12