[原创]请教一个VB加法问题 — 编程爱好者社区

主题：[原创]请教一个VB加法问题

pottseb [专家分：0] 发布于 2008-04-08 09:27:00

Private Sub Command1_Click()
Dim a, b, v As Single
a = Combo1 + Combo2

Text1.Text = a

End Sub
我这个算法不知道怎么回事，算减，乘，除都对，只有算加法出错，比如11+11=1111，请问是怎么回事，谢谢

沙发

llm9178 [专家分：13400] 发布于 2008-04-08 11:12:00

改为：
a = val(Combo1) + val(Combo2)
因为按你的写法，VB将它们当做字符串处理。

另外最好修改定义：
Dim a As Single, b As Single, v As Single

板凳

tanchuhan [专家分：15140] 发布于 2008-04-08 12:38:00

晕，正牌VB区版主出现了，怪事。

3 楼

老大徒伤悲 [专家分：29120] 发布于 2008-04-08 14:14:00

存在两个问题：
1、Dim a, b, v As Single
a、b是变体变量！v是单精度变量。
2、a = Combo1 + Combo2
Combo1、Combo2是字符串类型，所以+为连接运算，a的结果成为字符串。

4 楼

bcahzvip [专家分：6040] 发布于 2008-04-09 12:48:00

[quote]晕，正牌VB区版主出现了，怪事。[/quote]
是呀，少见的班主出现了。
。。。希望米什么怪事发生。

您尚未登录，请登录后再回复。点此登录或注册