vf 问题 大家帮忙 快快快

来源：百度知道 编辑：UC知道 时间：2024/04/23 16:37:33
输入一个字符串，要求分别统计出其英文字母，空格，数字和其他字符的个数。
通过设计vf 编写一个程序。

Clear
Accept "请输入：" To cStr
n=Len(cStr)
nAlp=0
nBlk=0
nDig=0
nQt =0
For i=1 to n
c=substr(cStr,i,1)
Do case
case ISALPHA(c)
nAlp=nAlp+1
case ISBLANK(c)
nBlk=nBlk+1
case ISDIGIT(c)
nDig=nDig+1
otherwise
nQt=nQt+1
endcase
endfor
? "英文字母"+str(nAlp,3)+" 个"
? "空 格"+str(nBlk,3)+" 个"
? "数 字"+str(nDig,3)+" 个"
? "其 它"+str(nQt ,3)+" 个"
RETURN

通过计算各字符在ASC码中的值来计算其类型,个数

下面网站有AXC码