store 0 to 大写,小写,空格,汉字
accept "输入一串字符:" to c
for n=1 to len(c)
a=substr(c,n,1)
do case
case betw(asc(a),65,90)
大写=大写+1
case betw(asc(a),97,122)
小写=小写+1
case a=space(1)
空格=空格+1
case asc(a)>=128
汉字=汉字+1
endcase
endfor
?“大写字母个数",大写
?"小写字母个数",小写
?"空格个数",空格
?"汉字个数",汉字/2
return
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024