Question

vb中怎么计算限定时间内按下键盘次数？

vb中怎么计算限定时间内按下键盘次数？如在限定时间内按上下键，一边按一边显示按了多少次，完了之后显示按了多少次

Answer 1

放一下定时器计时就可了。用以限制时间。
然后在KeyDown事件里设置计数

追问

怎样设置计数？

追答

Dim c As Integer
Private Sub Command1_Click()
    c = 60
    Kup = 0
    Kdown = 0
    Command1.Enabled = False
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If Timer1.Enabled Then
        If KeyCode = vbKeyUp Then
            Label3.Caption = Val(Label3.Caption) + 1
        ElseIf KeyCode = vbKeyDown Then
            Label4.Caption = Val(Label4.Caption) + 1
        End If
    End If
End Sub

Private Sub Timer1_Timer()
    c = c - 1
    Label5 = "剩余 " & c & " 秒"
    If c = 0 Then
        MsgBox "时间到!"
        Timer1.Enabled = False
        Command1.Enabled = True
    End If
End Sub

Answer 2

不懂，哎，是我太落后了么？