VB编程实现从键盘输入一个大写字母，输出该字母及其对应的ASCII码值，同时输出其小

Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii), KeyAscii, LCase(Chr(KeyAscii)), Asc(LCase(Chr(KeyAscii)))
End Sub