vf程序输入一个字符串（含大小写字母，数字），输出大写字母及个数，小写字母及个数，数字字符及个数

asc

clear
Y = INPUTBOX("Type Here:", "Input Title","Please input your value", 5000, 'Timed Out', 'Canceled')
dd=LEN(Y)
cc=1
dx=0
xx=0
sz=0
DO WHILE cc<=dd
aaa=SUBSTR(Y,cc,1)
IF ASC(aaa)>=65 AND ASC(aaa)<=90
dx=dx+1
ENDIF
IF ASC(aaa)>=97 AND ASC(aaa)<=122
xx=xx+1
ENDIF
IF ASC(aaa)>=48 AND ASC(aaa)<=57
sz=sz+1
ENDIF
cc=cc+1
ENDDO
? dx
? xx
? sz