【正文】 ，可以把多個(gè)子程序合并成一個(gè)文件，而各個(gè)子程序相對(duì)獨(dú)立，這個(gè)文件稱為過(guò)程文件。主程序的末尾放不放返回語(yǔ)句都沒(méi)有關(guān)系，執(zhí)行完最后一句都是返回到命令窗口，如果在主程序的末尾加上返回語(yǔ)句，它就可以作為一個(gè)子程序被其它程序調(diào)用了。這就是子程序。為了節(jié)省時(shí)間和存儲(chǔ)空間，使人們能夠共享一些公共的程序段，往往將重復(fù)出現(xiàn)的或者能夠單獨(dú)使用的程序?qū)懗沙绦蚨巍Ｔ?vfp中提供了 3種循環(huán)語(yǔ)句： do while循環(huán)、 for循環(huán)及 scan循環(huán)。 OPEN DATABASE XSQK STORE 0 TO M， N SCAN FOR 英語(yǔ) =60 IF 性別 =“男” M=M+1 ELSE N=N+1 ENDIF ENDSCAN CLEAR ?“英語(yǔ)及格的男生人數(shù)：” ,M ?“英語(yǔ)及格的女生人數(shù)：” ,N CLOSE DATABASE RETURN 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 例 10：求 S=1!+2!+3!+…+20! CLEAR S=0 FOR I=1 TO 20 M=1 FOR J=1 TO I M=M*J ENDFOR S=S+M ENDFOR ?“1!+2!+3!+…+20!=”,S 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 例 11：編寫程序輸出以下圖形： CLEAR FOR N=1 TO 10 FOR M=1 TO n ??* ENDFOR ? ENDFOR 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 〖任務(wù)小結(jié)〗 在實(shí)際應(yīng)用中，常常需要多次重復(fù)執(zhí)行某些語(yǔ)句。 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 例 8：求 S=1+3+5+…+99 的值 CLEAR S=0 FOR N=1 TO 99 STEP 2 S=S+N ENDFOR ?”S=”,S 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) SCANENDSCAN 語(yǔ)句 命令格式： SCAN [范圍 ] [FOR 條件 ] [WHILE 條件 ] 語(yǔ)句序列 [LOOP] [EXIT] ENDSCAN 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) SCANENDSCAN 語(yǔ)句 命令格式： SCAN [范圍 ] [FOR 條件 ] [WHILE 條件 ] 語(yǔ)句序列 [LOOP] [EXIT] ENDSCAN 命令功能：執(zhí)行語(yǔ)句時(shí)，記錄指針自動(dòng) ,依次地在當(dāng)前表的指定范圍內(nèi)滿足條件的記錄上移動(dòng) ,對(duì)每一條記錄執(zhí)行循環(huán)體內(nèi)的語(yǔ)句。如果條件為假，則結(jié)束該循環(huán)語(yǔ)句，執(zhí)行 ENDDO后面的語(yǔ)句。 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 循環(huán)程序設(shè)計(jì) 〖 任務(wù)描述 〗 當(dāng)某一段程序要重復(fù)執(zhí)行多次時(shí) ,為避免編寫重復(fù)的程序代碼 ,可以利用循環(huán)結(jié)構(gòu)來(lái)完成。 多分支條件語(yǔ)句 DO CASE在執(zhí)行時(shí)依次判斷 CASE后面的條件是否成立，當(dāng)發(fā)現(xiàn)某個(gè) CASE 后面的條件成立時(shí)，就執(zhí)行該 CASE和下一個(gè) CASE之間的命令序列，然后執(zhí)行 ENDCASE后面的命令。 SET TALK OFF INPUT “請(qǐng)輸入學(xué)生成績(jī)：” TO CJ IF CJ=60 ?”該學(xué)生成績(jī)及格” ELSE ? “該學(xué)生成績(jī)不及格” ENDIF RETURN 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 分支程序設(shè)計(jì) 命令格式： DO CASE CASE條件 1 語(yǔ)句充序列 1 CASE條件 2 語(yǔ)句充序列 2 …… CASE條件 N 語(yǔ)句充序列 N [OTHERWISE 語(yǔ)句充序列 ] ENDCASE 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 分支程序設(shè)計(jì) 例 5：輸入一個(gè)學(xué)生的成績(jī)，如果成績(jī)大于 95，則輸出“非常優(yōu)秀”，成績(jī)達(dá)到 85，則輸出“優(yōu)秀”，成績(jī)達(dá)到 75，則輸出“良好”，成績(jī)達(dá)到60，則輸出“及格”，否則輸出“不及格”。常用的選擇結(jié)構(gòu)設(shè)計(jì)命令有條件語(yǔ)句和多重分支語(yǔ)句 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 分支程序設(shè)計(jì) 〖 技能建構(gòu) 〗 命令格式： IF 條件 語(yǔ)句序列 1 [ELSE 語(yǔ)句序列 2] ENDIF 命令功能：當(dāng)條件為真是 ,執(zhí)行語(yǔ)句序列 1,執(zhí)行完后跳出 果有 ELSE選項(xiàng) ,則執(zhí)行語(yǔ)句序列 2,執(zhí)行過(guò)錯(cuò)后跳出 ENDIF；如果沒(méi)有 ELSE選項(xiàng)，就不執(zhí)行任何操作而跳出 ENDIF。本任務(wù)學(xué)習(xí)用于分支選擇控制結(jié)構(gòu)的程序設(shè)計(jì)。常用的有一維數(shù)組，二維數(shù)組。 數(shù)組（ array）是存儲(chǔ)在一個(gè)變量中由單個(gè)變量名引用的有序數(shù)據(jù)集合。 例如： WAIT “請(qǐng)輸入您的選擇（ 19）：” TO XUANZE 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 順序語(yǔ)句與數(shù)組 命令格式： DIMENSION 數(shù)組名 1（行 [，列 ]） [數(shù)組名 2（行 [，列 ]） ]… 命令功能：定義一維數(shù)組或者二維數(shù)組 . 功能注釋： 多個(gè)數(shù)組的名稱之間用逗號(hào)分開(kāi)。 如果不輸入任何內(nèi)容，僅以回車鍵響應(yīng)，則內(nèi)存變量的內(nèi)容為一空串。 功能注釋： 輸入的數(shù)據(jù)只能是字符型，不需要使用任何定界符將字符括起來(lái)。 輸入字符串時(shí)必須加定界符，輸入邏輯型常量時(shí)要用圓點(diǎn)定界（如 .T.），輸入日期時(shí)間型常量時(shí)要用大括號(hào)（如 {^20230305}）。 功能注釋： 輸入的數(shù)據(jù)可以是常量、變量，也可以是一般表達(dá)式。 例如： STORE 0 TO X， Y， Z 項(xiàng)目 8 程序設(shè)計(jì)初步 任務(wù) 順序語(yǔ)句與數(shù)組 命令格式： INPUT [提示信息 ] TO 內(nèi)存變量 命令功能：該命令等待用戶從鍵盤輸入數(shù)據(jù)，用戶可以輸入任意合法的表達(dá)式。 〖 技能目標(biāo) 〗 （ 1）掌握各種輸入語(yǔ)句的格式和功能； （ 2）在程序設(shè)計(jì)中選用適當(dāng)?shù)妮斎胝Z(yǔ)句； （ 3）學(xué)會(huì)使用數(shù)組賦值語(yǔ)句； 〖 任務(wù)分析 〗 實(shí)際應(yīng)用中，有些數(shù)據(jù)是是預(yù)先知道的，這可以直接使用賦值語(yǔ)句：變量名 =表達(dá)式 來(lái)完成，而有些數(shù)據(jù)是用戶根據(jù)實(shí)際需要臨時(shí)輸入的， Visual FoxPro 。數(shù)據(jù)輸入和數(shù)據(jù)輸出是編寫許多程序都要面臨的工作。 。與在命令窗口逐條輸入命令相比，采用程序方式有如下好處： ，方便地輸入、修改和保存程序。這組命令被存放在稱為程序文件或者命令文件的文本文件中。 選擇要運(yùn)行的程序文件，然后