Quickbasicでループを使わないキーを受け入れる

Question

私はQuickBasic 4.5（ゲーム用）内の異なるキーごとに異なるプログラムを開くプログラムで作業しています。残念ながら、複数のINKEY $コマンドをループすると、時間。

これを回避するライブラリ/方法はありますか？このような何かが動作するはず

DO  
IF INKEY$ = "n" GOTO 2000 
IF INKEY$ = "y" GOTO 3000 
IF INKEY$ = "e" GOTO 4000 
LOOP 

Answer 1

：ここ

は私が入れたものです。しかし、私はあなたが変数に保存する方法を学ぶことから始めることをお勧めします。また、BasicではGOTOを必要としません。将来的にプログラムを変更しやすくする方法があります。

DIM KeyPressed AS STRING 

INPUT "Please Enter A Key (y,n,e): ", KeyPressed 

KeyPressed = LCASE$(KeyPressed) 

SELECT CASE KeyPressed 
    CASE "n" 
    GOTO 2000 
    CASE "y" 
    GOTO 3000 
    CASE "e" 
    GOTO 4000 
END SELECT