方向键ASCII码：上24、下25、左16、右17。

方向键ASCII码：上24、下25、左26、右27。

不过为什么我运行下面这段程序，按了上键，程序还不能结束？？？
CLS
WHILE INKEY$ <> CHR$(24): WEND
PRINT "END"
END

应该需要输入吧？

[quote]应该需要输入吧？[/quote]
我不太懂你的意思.

WHILE INKEY$ <> CHR$(24): WEND 这句就没起作用.
你可以换以下：
如：
DO WHILE INKEY$ = ESC$　
LOOP
? "END"
也许因为是要输入一个CHR$(24)的图形

"也许因为是要输入一个CHR$(24)的图形"这句话是什么意思？？？
还有，我到底应该怎么判断四个方向间呢？？？

有一次，我输入：
[size=2]DO 
  K$=INKEY$
LOOP UNTIL K$<>""
? ASC(K$)
END[/size]
按了上键后，结果输出的是0！

那当然，QB不能直接识别方向键的Ascii码

我这有个程序，是我以前用VB编的，它也不能识别呀
[url]http://upload.programfan.com/upfile/200708142010706.rar[/url]

这些键只能使用扫描码,没有ASCII码
────────────────────────
     Key       Code

     F1          59
     F2          60
     F3          61
     F4          62
     F5          63
     F6          64
     F7          65
     F8          66
     F9          67
     F10         68
     F11        133
     F12        134
     NumLock     69
     Scroll Lock 70
     Home or 7   71
     Up or 8     72
     PgUp or 9   73
     Gray -      74
     Left or 4   75
     Center or 5 76
     Right or 6  77
     Gray +      78
     End or 1    79
     Down or 2   80
     PgDn or 3   81
     Ins or 0    82
     Del or .    83

--------------------------------这些是扫描码,在识别前加chr$(0)

例:
WHILE INKEY$ <> CHR$(0)+chr$(72): WEND
或者是:
[quote]DO 
  K$=INKEY$
LOOP UNTIL K$<>""
? ASC(right$(K$,1))
END[/quote]