没有
qb要想在这方面实现优化需要的代价很大，不如直接换用其他语言运用流来进行指令读入

22222222222222

第一个问题：可以加载一个键盘处理函数
请参考鼠标函数

第二个问题：可以加载一个自己的时钟中断

关于这个问题.....版主:QB45(秋水)曾经研究过:
在QBASIC中我们可以用ON TIMER(N) GOSUB ...来进行时间中断的处理,但N最小也只能1,
再不能小了,我们可以利用改变中断定时向量来改变速度，看下面的一段程序。
'下面是演示程序

SUB ChangeTimer (newcount)
OUT &H43, &H3C

OUT &H40, newcount AND &HFFFF
OUT &H40, (newcount \ 256) AND &HFFFF 'QBASIC中没有位移操作,只能用乘除来实现

END SUB

其中,newcount=1.9318MHz/期望频率
当newcount=&HFFFF时,期望频率=18.2Hz(dos默认频率,也是最低频率)
当程序运行于windows下的DOS窗口时，newcount值不要太低。


DECLARE SUB ChangeTimer (newcount%)

SCREEN 1
DEFINT A-Z
DIM X(6), Y(6)
ChangeTimer &H800
TIMER ON 'Enable timer event trapping.
ON TIMER(3) GOSUB Drawpoly 'Draw a new polygon every
'three seconds.
PRINT "Press any key to end program"
INPUT "Press <RETURN> to start", Test$

DO
LOOP WHILE INKEY$ = "" 'End program if any key pressed.

END

Drawpoly:
CLS 'Erase old polygon.
N = INT(5 * RND + 2) 'N is random number from 2 to 6.
FOR I = 0 TO N
X(I) = INT(RND * 319) 'Get coordinates of vertices of
Y(I) = INT(RND * 199) 'polygon.
NEXT
PSET (X(N), Y(N))
FOR I = 0 TO N
LINE -(X(I), Y(I)), 2 'Draw new polygon.
NEXT
RETURN

SUB ChangeTimer (newcount)
OUT &H43, &H3C
OUT &H40, newcount AND &HFF
OUT &H40, (newcount \ 256) AND &HFF
END SUB

如果你想用QB写点小游戏...的确代码比较长点........
还好你没想写点鼠标控制的游戏...那更要命的.......

Basic没用了(只是当程序员没希望)
哪个企业老板会等你慢慢的编程
学好了QB就赶快转OOP吧,也可以转超OOP概念的JAVA
企业都是用的快速开发
用QB,不但自己不爽,老板也不爽