8-4.txt

来自「超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲」· 文本 代码 · 共 13 行

【例8.4】建立程序EXAM8-4.PRG，功能是判断输入的一个字符是属于字母、数字或特殊符号（字母、数字之外的符号）。
SET TALK OFF
ACCEPT "请输入一个字符：" TO cVar
DO CASE
CASE UPPER(cVar)<= "Z" .AND. UPPER(cVar)>= "A"
?cVar, "是字母"
CASE cVar<= "9" .AND. cVar>= "0"
?cVar, "是数字"
OTHERWISE
?cVar, "是一个特殊符号"
ENDCASE
SET TALK ON