在窗體上畫一個命令按鈕和一個文本框，並把窗體的KeyPreview設置為True（在激活對象上的控件鍵盤事件之前，優先激活鍵盤事件，即Form優先）然後編寫如下代碼：Dim SaveAll As StringPrivate Sub Command1（）Click（）Text1.Text=Ucase（SaveAll）End SubPrivate Sub Form（）KeyPress（KeyAscii As Integer）SaveAll= SaveAll+Chr（KeyAscii）End Sub程序運行後，在鍵盤上輸入“abcdefg”，單擊命令按鈕，則文本框顯示為（）。

A.abcdefg

B.不顯示任何信息

C.ABCDEFG

D.出錯

正確答案：ABCDEFG