以下是引用VB丶小宇在2015-1-18 09:27:32的发言：


Option Explicit
Dim a As Integer         '定义a 为整型变量
Private Sub Form_Load()
Text1.Text = Text1.Text + a             '将text1文本中的值（此时文本框中的值为String）但是a 是整型变量，所以运行会出现错误。提示类型不匹配
End Sub

所以说，不同的数据类型不能运算。
要想运算，只需在Text1.Text = val(Text1.Text) + a，加一个Val函数就可以了。
Val函数简介：就是将字符串类型的数据转换为数值型数据，如果转换的数据为空，则返回值为0