您所在位置：主题：窗口模式运行的 QB ,有加速键 <Ctrl>
moz
[专家分：37620] 发布于 2006-04-10 22:01:00
t1# = TIMER
DO
a# = a# + 1
IF TIMER - t1# > 1 THEN
t2# = TIMER
PRINT a# / (t2# - t1#)
a# = 0
t1# = t2#
END IF
LOOP UNTIL INKEY$ = CHR$(27)
DO
a# = a# + 1
IF TIMER - t1# > 1 THEN
t2# = TIMER
PRINT a# / (t2# - t1#)
a# = 0
t1# = t2#
END IF
LOOP UNTIL INKEY$ = CHR$(27)
