设在窗体上有一个文本框,然后编写如下的事件过程:Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(Shift And Alt) > 0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text="abl" End IfEnd Sub程序运行后,清除文本框中原有内容,如果按Shift+F2键,则在文本框中显示的是