加入文本框为：Text1，在按钮的clicked事件里写代码：If Len(Text1.Text) > 0 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
