vf程序设计 要求用程序编写 题目:输入一个字符串，找出大写字母，小写字母，和数字。并统计大小写

没有VF环境，以下程序未经调试，如有错误可进一步调试：
CLEA

STOR 0 TO X
STOR 0 TO Y
STOR 0 TO Z
dime A(26) &&定义一维数组
dime B(26) &&定义一维数组
dime C(10) &&定义一维数组
ACCE "请输入字符串:" TO S
FOR N=1 TO LEN(S) STEP 1
S1=SUBS(S,N,1)
t=ASC(S1)
IF ((S1>="A") AND (S1<="Z"))
x=x+1
A(t-65)=A(t-65)+1
ENDIF
IF ((S1>="a") AND (S1<="z"))
y=y+1
B(t-97)=A(t-97)+1
ENDIF
IF ((S1>="0") AND (S1<="9"))
Z=Z+1
C(t-48)=C(t-48)+1
ENDIF
ENDFOR
IF X>0
??"大写字母有："
FOR i=0 TO 25
IF A(i)>0
??CHR(65+i)
ENDIF
ENDFOR
ENDIF
?
IF Y>0
??"小写字母有："
FOR i=0 TO 25
IF B(i)>0
??CHR(97+i)
ENDIF
ENDFOR
ENDIF
?
IF Z>0
??"数字字符有："
FOR i=0 TO 25
IF C(i)>0
??CHR(48+i)
ENDIF
ENDFOR
ENDIF
?
?"大写字母个数为:",X
?"小写字母个数为:",Y
?"数字字符个数为:",Z

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v3xj7777eerv7yxyvjx.html