作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/24 06:08:19
根据图 设计一个能够完成加、减、乘、除、取余等运算的简单计算器.
所要求的程序已经完成,取余数用%作运算符.
Private Sub Command1_Click()
x = Val(Text1.Text)
op = Text2.Text
y = Val(Text3.Text)
If y = 0 And (op = "%" Or op = "/") Then
MsgBox ("除法运算中除数不能为0!")
Exit Sub
End If
Select Case op
Case "+":
MsgBox (x & " + " & y & " = " & x + y)
Case "-":
MsgBox (x & " - " & y & " = " & x - y)
Case "*":
MsgBox (x & " * " & y & " = " & x * y)
Case "%":
MsgBox (x & " % " & y & " = " & x Mod y)
Case "/":
MsgBox (x & " / " & y & " = " & x / y)
Case Else
MsgBox ("未识别的运算符!")
End Select
End Su