Question

vb 中的数据相加

Private Sub Command1_Click()
a = Val(InputBox("请输入第一个数据"))
b = Val(InputBox("请输入第二个数据"))
c = Val(InputBox("请输入第三个数据"))
d = Val(InputBox("请输入第四个数据"))
s = Val(a + b + c + d)
av = Val((a + b + c + d) / 4)
Label1.Caption = "你刚刚输入的数据的和：" & a + b + c + d & Chr(13) & "你刚输入数据的平均值：" & av

End Sub

这个是对的
但是为什么我改成这样的话s就会字符相加了，而且av的值也是求不出的，希望大家能帮忙下
Private Sub Command1_Click()
a = Val(InputBox("请输入第一个数据"))
b = Val(InputBox("请输入第二个数据"))
c = Val(InputBox("请输入第三个数据"))
d = Val(InputBox("请输入第四个数据"))
s = a + b + c + d ’a，b，c，d 好像已经不是字符了，但是这样加的话怎么还是字符相加
av = (a + b + c + d) / 4 ‘如果上面写成s=val（a+b+c+d）的话，直接用s代替（a + b + c + d)为什么又是不行的
Label1.Caption = "你刚刚输入的数据的和：" & a + b + c + d & Chr(13) & "你刚输入数据的平均值：" & av

End Sub
我知道第二段代码是正确的，我是说我的那个标注说明哪里的问题 大家没有看清楚呵呵

Answer 1

这主要看你是否把a、b、c、d定义为数值类型了，如果你定义的是double、integer、long型，都没有问题，如果你没定义直接使用，默认是varent型或string型，加起来就是字符串。因此你的应该改为：
Private Sub Command1_Click()
dim a,b,c,d as double
a = Val(InputBox("请输入第一个数据"))
b = Val(InputBox("请输入第二个数据"))
c = Val(InputBox("请输入第三个数据"))
d = Val(InputBox("请输入第四个数据"))
s = a + b + c + d
av = (a + b + c + d) / 4
Label1.Caption = "你刚刚输入的数据的和：" & a + b + c + d & Chr(13) & "你刚输入数据的平均值：" & av

Answer 2

第二段代码是正确的，可以执行加和求平均，在vb中+号不会执行连接的，除非在vbscript脚本语言中

Answer 3

我刚试过了，第二段代码相加，还是数字相加，不是字符相加，你是不是看错了？