也可以这样Rem Qa = WaitKey()Select Case a Case 37 KeyPress "A", 1 Case 38 KeyPress "W", 1Case 39KeyPress "D", 1Case 40KeyPress "S", 1End SelectGoto Q