【单选题】

把窗体的KeyPreview属性设置为True，然后编写如下事件过程

Private Sub Form_KeyPress(KeyAsciiAs Integer)
Dim chAs String
ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(ch))
PrintChr(KeyAscii+2)
End Sub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是
A
B
C
D