VF试题：输入一个包含若干个a的字符串，计算输入字符串中a的个数

CLEAR
N=0
ACCEPT "请输入一个字符串：" TO S1
I=LEN(S1)
DO WHILE I>=1
S=SUBSTR(S1,I,1)
IF S="A"
N=N+1
ENDIF
I=I-1
ENDDO
?"这个字符串中含有字符A的数目为:",N

occurs函数是计算子串出现次数的。比如
store ”ajadajda”to s
?occurs("a",s) 结果为4
?occurs("j",s) 结果为2