Question

编程实现简单计算器功能。要求程序运行后，分别输入两个操作数以及运算符（+、-、*、/）后，单击“计算”

Answer 1

Private Sub Command1_Click()

Select Case Text2

 Case "+"

  Text4 = Val(Text1) + Val(Text3)

 Case "-"

  Text4 = Val(Text1) - Val(Text3)

 Case "*"

  Text4 = Val(Text1) * Val(Text3)

 Case "/"

   If Text3 <> 0 Then

    Text4 = Val(Text1) / Val(Text3)

   Else

    MsgBox "被除数不能为0"

   End If

 Case Else

   MsgBox "请在中间填入4则运算符+-*/"

 End Select

End Sub

Answer 2

Private Sub Command1_Click()

a = InputBox("请输入第一个数")
b = InputBox("请输入运算符")
c = InputBox("请输入第二个数")

Select Case b
Case "+"
MsgBox Val(a) + Val(c)
Case "-"
MsgBox Val(a) - Val(c)
Case "*"
MsgBox Val(a) * Val(c)

Case "/"
MsgBox Val(a) / Val(c)
End Select

End Sub

追问

我的问题好像不完整，应该是这样的
编程实现简单计算器功能。要求程序运行后，分别输入两个操作数以及运算符（+、-、*、/）后，单击“计算”按钮，则自动计算出表达式的结果，并显示在运算结果对应的文本框中。
【提示】除数为0时要做适当处理。

追答

Private Sub Command1_Click()

a = Text1
b = Text2
c = Text3

Select Case b
Case "+"
Text4 = Val(a) + Val(c)
Case "-"
Text4 = Val(a) - Val(c)
Case "*"
Text4 = Val(a) * Val(c)
Case "/"
If c = 0 Then
MsgBox "除数不为0"
Else
Text4 = Val(a) / Val(c)
End If
End Select

End Sub