如题所述
第1个回答 2013-05-29
clear
accept "请输入字符:" to a
do case
case ISLOWER(a)
?"该字符是小写字母。"
case ISUPPER(a)
?"该字符是大写字母。"
case ISDIGIT(a)
?"该字符是数字。"
OTHERWISE
?"该字符是其他特殊符号。"
endcase本回答被网友采纳
accept "请输入字符:" to a
do case
case ISLOWER(a)
?"该字符是小写字母。"
case ISUPPER(a)
?"该字符是大写字母。"
case ISDIGIT(a)
?"该字符是数字。"
OTHERWISE
?"该字符是其他特殊符号。"
endcase本回答被网友采纳
第2个回答 2013-05-28
clear
accept "请输入字符:" to a
if asc(a)>=48 and asc(a)<=57
?"该字符是数字。"
else
if asc(a)>=97 and asc(a)<=122
?"该字符是小写字母。"
else
if asc(a)>=65 and asc(a)<=90
?"该字符是大写字母。"
else
?"该字符是其他特殊符号。"
endif
endif
endif
accept "请输入字符:" to a
if asc(a)>=48 and asc(a)<=57
?"该字符是数字。"
else
if asc(a)>=97 and asc(a)<=122
?"该字符是小写字母。"
else
if asc(a)>=65 and asc(a)<=90
?"该字符是大写字母。"
else
?"该字符是其他特殊符号。"
endif
endif
endif