1个回答
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询