在VB编程中，连续间隔显示图片，并按要求按键盘，记录反应时？

来源：百度知道 编辑：UC知道 时间：2024/05/23 15:38:04
间隔3秒中显示一幅图片(9幅图片),当一幅图出现后，按规定分别要迅速按下键盘“V”、“B”或“M”，并记录从屏幕显示图片到按下键盘的反应时间，可以给个代码吗？非常感谢！！
谢谢大师们。我想让9张图片每张图片出现4次，并按一定的顺序出现（不要连续重复出现），等全部显示完后，再将计算的每张图片按的是哪个键？反应时间是多少？记录在一个数据库中，能否实现？如果能够帮我实现，我可以支付一定报酬的，谢谢各位了？

Dim s As Double
Dim e As Double

Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If

End Sub

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If UCase(Chr(KeyCode)) = "V" Or UCase(Chr(KeyCode)) = "B" Or UCase(Chr(KeyCode)) = "M" Then
e = Timer
Label1.Caption = "响应时间：" & CStr(e - s) & "秒"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Timer1.Enabled = False
Timer1.Interval = 3000
End Sub

Private Sub Timer1_Timer()
Static i
Image1.Picture = ImageList1.ListImages(i + 1).Picture
s = Timer

i = i + 1
If i = 9 Then i = 0
End Sub

工程窗体加入1个Label控件；1个List控件；1个FileListBox控件；1个Image控