ON KEY(3)GOSUB t            '[color=FF0000]当key(3)被击键时,跳转子过程[/color]
KEY(3)ON                    '[color=FF0000]打开跳转检测开关[/color]
DO                          '[color=FF0000]空循环[/color]
LOOP UNTIL INKEY$<>""       '[color=FF0000]键按了后,一切都结束了[/color]
END                         '[color=FF0000]结束程序[/color]
KEY(3) OFF                  '[color=FF0000]关上有效开关,放在END后面,多余![/color]
t: print "time=";TIME$      '[color=FF0000]子过程[/color]
RETURN                      '[color=FF0000]返回调用[/color]


在空循环中可以检测得到击键事件,
如果不是空循环,
那么我也不知道会在什么位置跳转了,
很多时候都不会及时正确的响应按键事件的.

QB只是面向过程的语言,
不像WIN环境的面向对象面向事件编程,
所以这个响应不一定是准确的,
我就是因为没办法得到准确的跳转条件,
所以我放弃了key on的这些用法,
而改用自定义的按键捕获或检测,
会更有效和准确.