放在单击事件里text1.text=""
在窗体或者某一个控件的KeyPress事件中，将这段代码加进去：If MsgBox("是否清除内容", vbQuestion + vbYesNo, "按键清除结果提示") = vbYes Then txt结果.Text = "" End If
