store 0 to m,n,p,q,s
input "请输入字符串;" to dfc
for i=1 to len(dfc)
p=asc(dfc)
do case
case p>64 and p<91 or p>95 and p<123
m=m+1
case p=32
n=n+1
case p>47 and p<58
q=q+1
otherwise
s=s+1
endcase
endfor
?"英文字母个数:",m
?"空格个数:",n
?"数字个数;",q
?"其他字符个数:",s