Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)

Print Chr(KeyCode)

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)

Print Chr(KeyCode+2)

End Sub
最后的Chr(KeyCode+2)是什么意思

把按键值加2，并转成字符