dim i as intger dim str as string i=1000 a="文本" text1.text=str & cstr(i)'用cstr()转换成文件格式再显式 改成即可： text1.text=a & i 最后一句，用CSTR，其实没有必要的 字符运算符是“&”符号，即连接运算符。字符串连接运算是把两个或多个字符串首尾连接成一个字符串。使用“&”进行字符串连接运算时，“&”运算会自动将两边的非字符串型的数据转换为字符串类型后再进行连接。 使用运算符“+”也可以把两个字符串连接成一个字符串，但只有在“+”连接的两个操作数均为字符串型数据时，连接的结果才仍为字符串。
对Text1.Text属性赋值： Dim a As Integer Private Sub Command1_Click() a = a + 1 Text1.Text = Text1.Text & "这是第" & a & "次点击" & vbCrLf Text1.SelStart = Len(Text1.Text) End Sub 用 & 连接变量和字符串 补充：你要把你的text1的multiline属性设置为true