【文章內(nèi)容簡介】 [LOOP] [命令序列 3] ENDDO ?語句功能： ?在執(zhí)行循環(huán)體語句的過程中遇到 exit語句，立即結(jié)束循環(huán)體的執(zhí)行，轉(zhuǎn)到 ENDDO的后面； ?在執(zhí)行循環(huán)體語句的過程中遇到 loop語句，立即結(jié)束循環(huán)體的本次執(zhí)行，轉(zhuǎn)到 DO WHILE處，重新判斷循環(huán)條件。 ?EXIT和 LOOP命令只能出現(xiàn)在循環(huán)體中，并且可以出現(xiàn)在循環(huán)體中的任何位置。 【 例 7121】 編寫一個能多次計算任意半徑的圓的周長和面積的程序，當(dāng)輸入的半徑小于或等于 0時，停止運行。 Clear input 請輸入圓的半徑 : to r Pi= L=2*PI*R S=PI*R*R ?圓的周長為： , L ?圓的面積為： , S Clear R=1 do while R0 Input 請輸入圓的半徑 : To R if R=0 loop endif L=2**R S=*R*R ?圓的周長為： , L ?圓的面積為： , S enddo Clear do while .T. Input 請輸入圓的半徑 : To R if R=0 exit endif L=2**R S=*R*R ?圓的周長為： , L ?圓的面積為： , S enddo 2．步長型循環(huán) (FOR…ENDFOR) ?格式： FOR 循環(huán)變量 = 初值 TO 終值 [STEP步長 ] 命令序列 [LOOP] [EXIT] ENDFOR| NEXT ?說明： (1)初值 、 終值 和 步長 是數(shù)值表達(dá)式 (2)步長 值可以為正，也可以為負(fù)。省略時默認(rèn)值為 1。 步長值不能為 0，否則造成死循環(huán)。 (3)ENDFOR 可以用 NEXT代替。 (4)循環(huán)次數(shù) =INT[(終值－初值 )／步長 ]+1 for i=1 to 1+7 sete 2 ?i endfor 2．步長型循環(huán) (FOR…ENDFOR) ?格式： FOR 循環(huán)變量 =初值 TO 終值 [STEP步長 ] 命令序列 [LOOP] [EXIT] ENDFOR| [NEXT] ?循環(huán)的執(zhí)行過程： (1)將初值賦給循環(huán)變量， (2)循環(huán)變量與終值比較 ,若超過終值轉(zhuǎn) (5)，否則轉(zhuǎn) (3) (3)執(zhí)行循環(huán)體 (EXIT和 LOOP意義同前 ) (4)遇到 ENDFOR子句時 ,循環(huán)變量自動按 步長 增值 ,然后轉(zhuǎn)(2) (5)退出循環(huán)，執(zhí)行 ENDFOR后面的語句 for i=1 to 1+7 sete 2 ?i endfor 【 例 713】 計算 1+2+3+……+100=? Clear S=0 For i=1 to 100 S=S+i Next i ? “1=2+3+……+100=”, S RETURN S=0 i=1 DO WHILE i=100 S=S+i i=i+1 ENDDO 【 例 714】 向?qū)W生表中一次添加 10條新記錄。 采用循環(huán)結(jié)構(gòu)，每次添加一條記錄 先插入一條空記錄 利用定位輸入輸出命令輸入記錄內(nèi)容 Clear Use 學(xué)生表 For i=1 to 10 APPEND BLANK @ 2,1 SAY 學(xué)生證號： GET 學(xué)生證號 PICTURE 9999999999 @ 4,1 SAY 姓名： GET 姓名 @ 6,1 SAY 性別： GET 性別 @ 8,1 SAY 出生日期： GET 出生日期 @ 10,1 SAY 民族： GET 民族 READ ENDFOR USE ?格式： SCAN [范圍 ] [FOR條件 ] [WHILE條件 ] 命令序列 [LOOP] [EXIT] ENDSCAN ?功能：在表的指定 范圍 內(nèi)掃描，查找滿足 條件 的 記錄并執(zhí)行循環(huán)體中的命令序列。 ?說明： (1)默認(rèn) 范圍 為 ALL； (2)每執(zhí)行一遍循環(huán)體， 指針自動下移一個記錄 ， 并自動判斷是否指向文件尾，是則結(jié)束循環(huán)， 轉(zhuǎn)到 ENDSCAN后面。 3．表掃描型循環(huán) (SCAN…ENDSCAN) SCAN 命令序列 ENDSCAN do while not eof( ) 命令序列 skip enddo 【 例 715】 查詢學(xué)生表中所有女黨員并輸出。 clear use 學(xué)生表 scan for 黨員 and 性別 =女 display endscan use return 【 例 7151】 將上述程序，用當(dāng)型循環(huán)改寫 【 例 7152】 將上述程序，用步長型循環(huán)改寫 子程序、過程與自定義函數(shù) 子程序 1．子程序的概念 ?子程序與主程序： 子程序是指可以被多次反復(fù)地調(diào)用，能完成特定功能的特殊程序段，以獨立的程序文件方式存儲；相對而言，把調(diào)用子程序的程序稱為 “ 主程序 ” 。 ?子程序的優(yōu)點： 子程序是相對獨立的、通用的一段代碼。一個程序由若干個子程序組成，子程序獨立編碼和測試，子程序還可以重復(fù)使用，這樣可以方便地生成程序，減少代碼的編寫量，并易于修改和維護(hù)程序。 主程序： Clear Do amp。amp。調(diào)用子程序 Return : P=1 FOR i=1 TO 100 P=P*i ENDFOR ?100的階乘為 , p RETURN 子程序 2．子程序的建立： MODIFY COMMAND 子程序文件名 3．子程序的調(diào)用 ?調(diào)用語句格式： DO 子程序文件名 [With 參數(shù)列表 ] 說明： WITH 用于主程序和子程序間參數(shù)的傳遞 ?子程序參數(shù)定義： PARAMETERS 參數(shù)列表 ?子程序返回語句的四種格式 RETURN 返回到調(diào)用它的上一級主程序或 VFP窗口 RETURN 表達(dá)式 將表達(dá)式的值返回給調(diào)用程序 RETURN TO 程序文件名 返回指定程序文件 RETURN TO MASTER 直接返回到第一級主程序 子程序 ?子程序調(diào)用語句的執(zhí)行過程（功能） 執(zhí)行調(diào)用語句時，系統(tǒng)將指定的子程序調(diào)入內(nèi)存并執(zhí)行該子程序，程序轉(zhuǎn)到子程序中；當(dāng)執(zhí)行到子程序中的返回語句時，程序返回主程序，執(zhí)行該調(diào)用語句的下一條可執(zhí)行語句。 主程序： Clear Do Do Return : P=1 FOR i=1 TO 100 P=P*i ENDFOR ?100的階乘為 , p RETURN : S=0 FOR i=1 TO 100 S=S+i ENDFOR ?1100的和為 , S RETURN 【 例 716】 用子程序求任意一個數(shù)的階乘。 Clear Input 請輸入要求階乘的數(shù)： To M Do With M Return ** ** PARAMETERS N P=1 FOR i=1 TO N P=P*i ENDFOR ?N, 的階乘為 , p RETURN 主程序 （帶兩個參數(shù)）： Clear Input 請輸入要求階乘的數(shù)： To M X=1 Do With M， X ?M, 的階乘為 , X Return ** ** PARAMETERS N, P FOR i=1 TO N P=P*i ENDFOR RETURN 過程和過程文件 1．過程 ?過程的的概念： 過程是以 PROCEDURE過程名 開頭，以 ENDPROC結(jié)尾的一段程序。它可以放在調(diào)用程序中，也可以獨立存儲為一個過程文件。 ?過程定義的語法格式： PROCEDURE過程名 PARAMETERS 參數(shù)表 命令序列 [RETURN [表達(dá)式 ] ] ENDPROC 【 例 717】 把求任意一個數(shù)的階乘的程序用過程來實現(xiàn)。 程序與過程在一個程序文件中（不帶參數(shù)）： Clear Input 請輸入要求階乘的數(shù)： To N Do JC *******過程 JC，也在程序 PR7171中 Procedure JC P=1 FOR i=1 TO N P=P*i ENDFOR ?N,的階乘為 ,p ENDPROC RETURN 程序 （帶一個參數(shù)）： Clear Input “請輸入要求階乘的數(shù)：” To M Do JC With M *******過程 JC，也在程序 PR7172中 ***** Procedure JC PARA N P=1 FOR i=1 TO N P=P*i ENDFOR ?N,”的階乘為” ,p ENDPROC RETURN 2. 過程文件 ?過程文件： 包括一個或多個過程的程序文件 (.prg)。 ?語法格式： PROCEDURE 過程名 1 命令序列 1 RETURN ENDPROC PROCEDURE 過程名 2 命令序列 2 RETURN ENDPROC ………… PROCEDURE 過程名 n 命令序列 n RETURN ENDPROC ?過程文件的建立 : 與程序文件的建立方法完全相同 ?過程文件的打開與過程的調(diào)用 ?要調(diào)用過程，必須先打開包含此過程的過程文件。 ?打開過程文件的格式： SET PROCEDURE TO [過程文件 1[， 過程文件 2，…]][ADDITIVE] ?說明 :可以打開一個或多個過程文件。 過程文件打開后，文件中所有過程都可以被調(diào)用 參數(shù) ADDITIVE表示不關(guān)閉原先已打開過程文件 ?過程文件的關(guān)閉 SET PROCEDURE TO 或 CLOSE PROCEDURE 【 例 718】 輸入任意半徑，計算圓的周長，圓的面積和球的體積用過程文件實現(xiàn)。 程序分析： ?主程序 ?過程文件 *******主程序 ******** Clear Input 請輸入半徑： To R Set Pr