Dim a, b, c As Single

这个声明不合适，它表示a和b为变体(Variant)，只有c是Single

应该改为：

Dim a As Single, b As Single, c As String

a和b是Single，c是运算符，所以不能是Single了，只能是变体或字符串

由于你本来的声明方式使vb误以为a和b是变体，同时因为a和b来自TextBox，是文本类型，所以默认被当做String

当计算乘除法和减法时，由于String型的数据不接受这几种运算符，经vb辩认，这个变体的内容可以被理解为一个数字，所以可以正常运算，而当计算加法时，由于vb的字符串连接符可以同时使用&和+，所以优先将a和b相连，也就会有1+3=13的情况发生了

经过修改，a和b被声明为Single，所以运算时就会优先使用算术运算符，就可以计算出正确的加法结果了

-------------------------------------------------------

另外，如果保持a和b是变体，可以把其中一个操作数转为数字，也可以得到正确结果，比如只把：

d = a + b

一句改为

d=a+val(b)

这样一来，指定了其中一个操作数是数字时，vb也会优先使用算数运算符+(而不是string连续符+)来运算了

顺便强调一下，前面说过，c As Single是不对的，c是运行符，只能是变体或字符串

-------------------------------------------------------

再另外，你可以试试这样做：

Private Sub Command1_Click()

Dim a As Single, b As Single, c As String

a = Text1。

Text

b = Text3。Text

c = Text2。Text

Text4。Text = Switch(c = "*", a * b, c = "/", a / b, c = "+", a + b, c = "-", a - b)

End Sub

如果不明白Switch为什么可以替换掉Select Case代码段，可以查MSDN

-------------------------------------------------------

再再另外，你还可以这样：

Private Sub Command1_Click()

Dim calc As Object

Set calc = CreateObject("MSScriptControl。

ScriptControl")

calc。Language = "vbscript"

Text4 = calc。

Eval(Text1 & Text2 & Text3)

End Sub

-------------------------------------------------------

当你熟悉越来越多的函数，认识越来越多的对象，你就可以更灵活的写你的代码

互相学习，共同进步，祝你成功。

全部