Dim SaveAllAs String Private Sub Form_Load() Show Text1. Text = " " Text1. SetFocus End Sub Private SubCommand1_Click() Text1. Text = LCase(SaveAll) + SaveAll End Sub Private Sub Form_KeyPress(KeyAsciiAs Integer) SaveAll = SaveAll +Chr(KeyAscii) End Sub 程序运行后,直接用键盘输入:VB,再单击命令按钮,则文本框中显示的内容为()。 A、vbVB、B、不显示任何信息 C、VB、D、出错