用vf怎样编辑程序“输入一个字符串,要求分别统计出其中英文字母,空格,数字和其他字符的个数?”
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/22 12:21:35
用vf怎样编辑程序“输入一个字符串,要求分别统计出其中英文字母,空格,数字和其他字符的个数?”
用vf怎样编辑程序“输入一个字符串,要求分别统计出其中英文字母,空格,数字和其他字符的个数?”
用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