( 9 ) 在窗体上画 1 个命令按和 1 个文本框 , 其名称分别为 Command1 和 Text1 , 然后编写下列事件过程 : Dim SaveAll As String Private Sub Command1_Click( ) Text1.Text=Left(UCase(SaveAll),4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后,在文本框中输入 abcdefg ,单击命令按,则文本框中显示的内容是 【 11 】 。