作业帮 > 综合 > 作业

用vf怎样编辑程序“输入一个字符串,要求分别统计出其中英文字母,空格,数字和其他字符的个数?”

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 20:19:11
用vf怎样编辑程序“输入一个字符串,要求分别统计出其中英文字母,空格,数字和其他字符的个数?”
&& 方案一:
CLEAR
ACCEPT "请输入字串:" TO a
b=0
c=0
d=0
e=0
f=0
n = LEN(a)
FOR i = 1 TO n
\x05x=ASC(SUBSTR(a,i,1))
\x05DO CASE
\x05\x05CASE (x >= 65 AND x =< 90) OR (x >= 97 AND x =< 122) && 字母
\x05\x05\x05b=b+1
\x05\x05CASE x = 32 && 空格
\x05\x05\x05c=c+1
\x05\x05CASE x >= 48 AND x =< 57 && 数字
\x05\x05\x05d=d+1
\x05\x05OTHERWISE
\x05\x05\x05f=f+1
\x05ENDCASE
ENDFOR
"字串:",a
"字母:",b," 空格:",c," 数字:",d," 其他:",f
&& 方案二:
CLEAR
ACCEPT "请输入字串:" TO a
STORE 0 TO b,c,d,e,f
n = LEN(a)
FOR i = 1 TO n
\x05x=SUBSTR(a,i,1)
\x05DO CASE
\x05\x05CASE ISALPHA(x) && 字母
\x05\x05\x05b=b+1
\x05\x05CASE ISBLANK(x) && 空格
\x05\x05\x05c=c+1
\x05\x05CASE ISDIGIT(x) && 数字
\x05\x05\x05d=d+1
\x05\x05OTHERWISE
\x05\x05\x05f=f+1
\x05ENDCASE
ENDFOR
"字串:",a
"字母:",b," 空格:",c," 数字:",d," 其他:",f