把窗体的KeyPreview属性设置为True，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAsciiAs Integer)Dim chAs Stringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))PrintChr(KeyAscii+2)End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是
A．A
B
C
D