正确的应该是
Private Sub Command1_Click()
a = Text3.Text
Select Case a
Case "+"
Text4.Text = Val(Text1.Text) + Val(Text2.Text)
Case "-"
Text4.Text = Val(Text1.Text) - Val(Text2.Text)
Case "*"
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Case "/"
Text4.Text = Val(Text1.Text) / Val(Text2.Text)
End Select
End Sub
如果你写成
Select Case a
Case a = "+"
因为a=“+”是一个表达式，比如你输入+，那么就是“+”=“+”，返回TRUE，再与a比较，如论如何都不一样，所以就不计算了
