test_case.prg

刚才那个的补充

*****程序功能：显示所按键
CLEAR
WAIT WINDOWS "请按键" TO cKey	
DO CASE
	CASE BETWEEN(cKey,"0","9")
		? "按的键为数字键"+cKey
	CASE BETWEEN(cKey,"a","z") or BETWEEN(cKey,"A","B")
 		? "按的键是字母键"+cKey
 	CASE cKey=SPACE（0）
 		? "按的键为空格键！"
  	CASE cKey=CHR(13)
		? "按的键为回车键！"
	OTHERWISE	
		? "按的键不是数字键、字母键、空格键、回车键！"
ENDCASE