test_case.prg

来自「刚才那个的补充」· PRG 代码 · 共 15 行

*****程序功能：显示所按键
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