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】將由任意字符（包括漢字）組成將由任意字符（包括漢字）組成的字符串進行反序顯示。的字符串進行反序顯示?！纠纠?.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