查看键盘按键的AscII码的步骤

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Static i As Integer
Print CStr(KeyCode)
i = i + 1
If (i > 10) Then
i = 0
Me.Cls
End If
End Sub