VB高手帮帮忙题目做一个袖珍计算
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的字符串连接符可以同时使...全部
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
-------------------------------------------------------
当你熟悉越来越多的函数,认识越来越多的对象,你就可以更灵活的写你的代码
互相学习,共同进步,祝你成功。收起