Question

如何用vb制作计算器(只要有加减乘除，三个文本框)?

减乘除都会了，
只有加（Text3.Text=Text1.Text+Text2.Text）
，他总是把两个数拼起来。
求源码。

Answer 1

VB中的textbox里的内容默认是string类型，，如果用+号连接，就会认为是字符型数据做连接运算。如果想要作为数字进行加法，就必须强制转换算成数值型，可以用Val函数来实现转换。以加法为例：
Private Sub Command1_Click() '加

Text3.Text = Val(Text1) + Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""
End Sub
其余几个预算，也是一样的道理。

Answer 2

Private Sub Command1_Click() '加
Text3.Text = Val(Text1) + Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command2_Click() '减
Text3.Text = Val(Text1) - Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click() '乘
Text3.Text = Val(Text1) * Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command4_Click() '除
Text3.Text = Val(Text1) / Val(Text2.Text)
Text1.Text = ""
Text2.Text = ""
End Sub
注：
textbox里的内容是是string类型，参与运算时应该强制转换算成数值型，用Val函数
你这里+号两端都是字符类型数据，在VB中是做连接运算。

Answer 3

Text3.Text = Val(Text1.Text) + Val(Text2.Text)