Question

vb中怎么设置检测敲击键盘上的次数

是键盘上有按键按下，都要统计额，标签显示次数
只需要统计次数即可，不用管是那个按键被按下

Answer 1

如果想用VB自身来完成，可以使用下面的代码，但是这段代码的功能有缺陷——有些按键会被系统优先捕获，而导致程序无法检测到，例如“PrtSc SysRq”键。
Dim x As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
x = x + 1

Label1.Caption = x
End Sub
如果用KeyPress事件则只能捕获到字母、数字等常规按键的动作，而很多控制键都无法捕获，例如"Caps Lock"键。

如果想捕获键盘上所有按键的动作，那只能调用API完成。参考《钩子函数捕捉键盘消息》http://wenku.baidu.com/view/337a22d376eeaeaad1f3308d.html

当然还可以通过VB来访问硬件IO来做判断，但是VB本身不支持直接访问硬件IO，还是要通过第三方的DLL完成，因此从编程的角度来看，这个方法和调用API并无二致。参考：http://www.codesky.net/article/200310/6668.html

Answer 2

Private Sub Form_KeyPress(KeyAscii As Integer)
Label1.Caption = Label1.Caption + 1
End Sub