对Text1.Text属性赋值:Dim a As IntegerPrivate Sub Command1_Click()a = a + 1Text1.Text = Text1.Text & "这是第" & a & "次点击" & vbCrLfText1.SelStart = Len(Text1.Text)End Sub用 & 连接变量和字符串补充:你要把你的text1的multiline属性设置为true
对Text1.Text属性赋值:Dim a As IntegerPrivate Sub Command1_Click()a = a + 1Text1.Text = Text1.Text & "这是第" & a & "次点击" & vbCrLfText1.SelStart = Len(Text1.Text)End Sub用 & 连接变量和字符串补充:你要把你的text1的multiline属性设置为true