您所在位置：主题：SOS!!!!!如何控制上下左右？
swx
[专家分：20] 发布于 2005-10-22 15:59:00
我要编一个程序，用到了上下左右键，但我不知道上下左右键的按键代码（左键好像是CHR$(0)+CHR$(72)）。
请求，填写完整下列程序：
FOR S = 1 TO 9999999999999999
SELECT CASE INKEY$
CASE ???? '上
LOCATE 2,1:PRINT "UP"
CASE ???? '下
LOCATE 2,1:PRINT "DOWN"
CASE ???? '左
LOCATE 2,1:PRINT "LEFT"
CASE ???? '右
LOCATE 2,1:PRINT "RIGHT"
END SELECT
NEXT S
希望各位大侠赐教！
请求，填写完整下列程序：
FOR S = 1 TO 9999999999999999
SELECT CASE INKEY$
CASE ???? '上
LOCATE 2,1:PRINT "UP"
CASE ???? '下
LOCATE 2,1:PRINT "DOWN"
CASE ???? '左
LOCATE 2,1:PRINT "LEFT"
CASE ???? '右
LOCATE 2,1:PRINT "RIGHT"
END SELECT
NEXT S
希望各位大侠赐教！
