test_loop.prg

来自「刚才那个的补充」· PRG 代码 · 共 14 行

******程序功能：统计由ASCII码字符组成的字符串中包含字母的个数
CLEAR
cString="The United States of America is abbreviated to U.S.A.."
nResult=0
m=LEN(cString)
FOR n=1 TO m
	c=SUBSTR(cString,n,1)
	IF	!BETWEEN(c,"a","z") AND !BETWEEN(c,"A","B")
		LOOP
	ENDIF
		nResult=nResult+1
ENDFOR
? "包含"+ALLT(STR(nResult))+"个英文字母"