非常简单啦，没有2楼那么多代码Private Sub Text2_Change()Text1.Text = Text1.Text & Right(Text2.Text, 1)'文本框1的后面连接上文本框2最后输入的字符，也就是最右面的字符End Sub
