编程8】统计键盘输入字符串其中含有几个大写字母。 SET TALK OFF m=0 ACCEPT"请输入一串字符:"Tox nELEN(X) FOR iE1TO n IF UPPER(SUBSTR(X, i, 1)= SUBSTR(X, i, 1) m=m+1 ENDIF ENDFOR ?m SET TALK ON FoxproForWindowshttp://cc.synu.edu.cn 9FoxPro For Windows http://cc.synu.edu.cn 9 【编程8】统计键盘输入字符串其中含有几个大写字母。 SET TALK OFF m=0 ACCEPT "请输入一串字符：" TO x n=LEN(x) FOR i=1 TO n IF UPPER(SUBSTR(x,i,1))= SUBSTR(x,i,1) m=m+1 ENDIF ENDFOR ? m SET TALK ON