VFP循环结构教材示例

1、循环结构教材示例【例【例5.6】计算计算100以内的奇数之和。以内的奇数之和。N=100S = 0FOR i = 1 TO N STEP 2 S = S + iENDFOR? N，“ 以内的整数和以内的整数和= , S【例【例5.6】计算计算100的阶乘，即：的阶乘，即： P = 100! = 12 3 100 。N=100P = 1FOR i = 1 TO N P = P * iENDFOR? ALLTRIM (STR( N ) ) +的阶乘的阶乘 = ，P【例【例5.7】计算计算1100之间所有奇数之间所有奇数 （且这些奇数不能被（且这些奇数不能被3整除）之和。整除）之和。S = 0FOR

2、 i = 1 TO 100 STEP 2 IF MOD（i , 3）= 0 LOOP ENDIF S = S + iENDFORWAIT WINDOW “100以内的整数和以内的整数和= “+STR( S)【例【例5.8】下列程序的运行结果是什么下列程序的运行结果是什么?金金字字字字大大大大大大宝宝宝宝宝宝宝宝塔塔塔塔塔塔塔塔塔塔CLEARC=金字大宝塔金字大宝塔N=LEN(c)/2FOR i=1 TO n ?SPACE( 70-i ) FOR j=1 TO i ?SUBS( c, 2*i-1, 2 ) =INKEY( 0.5 ) ENDFORENDFOR【例【例5.9】加密算法。加密算法。

3、将由英文字母组成的字符串加密：将由英文字母组成的字符串加密：（1）如果是大写字母，用原字母后面第）如果是大写字母，用原字母后面第4个字母代替原字母；个字母代替原字母；（2）否则，用原字母后面第）否则，用原字母后面第2个字母代替个字母代替原字母。原字母。例如：明文例如：明文“China”的密文是的密文是“Gjkpc”。m=SPACE(0)c=ChinaFOR i=1 TO LEN(c) nc=ASC( SUBSTR( c, i, 1 ) ) IF nc64 AND nc0 p=LEFT(c,1)+p c=SUBSTR(c,2) ENDDO ? cc+”的反序为的反序为”+p【例【例5.10】将由

4、将由ASCII码字符组成的字符串码字符组成的字符串进行反序显示。进行反序显示。 STORE a中国中国bcdef TO c,cc p=SPACE(0) DO WHILE LEN(c)0 x=ASC(LEFT(c,1) IF x127 i=2 ELSE i=1 ENDIF p=LEFT(c, i )+p c=SUBSTR(c, i+1 ) ENDDO ? cc+”的反序为的反序为”+p【例【例5.11】将由任意字符（包括汉字）组成将由任意字符（包括汉字）组成的字符串进行反序显示。的字符串进行反序显示。【例【例5.12】统计字符串中大、小写英文字母统计字符串中大、小写英文字母的个数。的个数。c=

5、Visual FoxProSTORE 0 TO Nmax, NminDO WHILE c do case case ASC(LEFT(c,1)64 AND ASC(LEFT(c,1)96 AND ASC(LEFT(c,1)123 _ endcase c=SUBS(c,2)ENDDOWAIT WINDOW 大写大写:+STR(Nmax,2)+; 小写小写:+STR(Nmin,2)Nmax=Nmax+1Nmin=Nmin+1【例【例5.13】对表达式对表达式 1/(123)+1/(234)+1/n(n+1)(n+2) 进行求和，要求计算精度小于进行求和，要求计算精度小于0.0000001。 nS

6、= 0 i=1 DO WHILE .T. nS = nS + _ IF 1/(i*(i+1)*(i+2) 0.0000001 _ ENDIF _ ENDDO1/(i*(i+1)*(i+2) EXIT i=i+1 USE XSSCAN FOR _ ？xm，jg_USE【例【例5.14】显示所有籍贯为显示所有籍贯为“江苏江苏”的学的学生的姓名和籍贯。生的姓名和籍贯。江苏江苏$jgENDSCAN【例【例5.15】定义一个函数定义一个函数ntoc( ),当传递给一个当传递给一个09之间的阿拉伯数字时，返回一个中文的之间的阿拉伯数字时，返回一个中文的“零九零九”。 FUNCTION ntoc PARAMETERS pDigit LOCAL cString cString = 零一二三四五六七八九零一二三四五六七八九 RETURN SUBSTR (cString ,_, 2 ) ENDFUNCpDigit*2+1 S = 0 FOR i = 1 TO 5 S = SFJC（i） ENDFOR ? SFUNC