求教加法计算器代码怎么写

默认是文本类型，你需要把文本类型转换成数字类型，这样才能进行数字运算。

Private Sub Command1_Click()
Dim a%, b%
a = Text1.Text
b = Text2.Text
Text3.Text = a * b
End Sub

最简单的一招就是 后面再加0.0
+0.0 就OK了。

文本框的数据格式得预先设置为数字。

Text3.text=Cstr(CInt(text1.text)+CInt(text2.text))

text3.text=val(text1.text)+val(text2.text)