第六章-Visual-FoxPro程序設(shè)計基礎(chǔ)

第六章VisualFoxPro程序設(shè)計基礎(chǔ)1程序概念參見Wiki解釋/wiki?title=%E7%A8%8B%E5%BA%8F&variant=zh-cn計算機(jī)程序或者軟件程序（通常簡稱程序）是指一組指示計算機(jī)每一步動作的指令，通常用某種程序設(shè)計語言編寫，運(yùn)行于某種目標(biāo)體系結(jié)構(gòu)上。打個比方，一個程序就像一個用漢語（程序設(shè)計語言）寫下的紅燒肉菜譜（程序），用于指導(dǎo)懂漢語的人（體系結(jié)構(gòu)）來做這個菜。通常，計算機(jī)程序要經(jīng)過編譯和鏈接而成為一種人們不易理解而計算機(jī)理解的格式，然后運(yùn)行。未經(jīng)編譯就可運(yùn)行的程序通常稱之為腳本程序。參見Wiki解釋/wiki?title=%E7%A8%8B%E5%BA%8F&variant=zh-cn計算機(jī)程序或者軟件程序（通常簡稱程序）是指一組指示計算機(jī)每一步動作的指令，通常用某種程序設(shè)計語言編寫，運(yùn)行于某種目標(biāo)體系結(jié)構(gòu)上。打個比方，一個程序就像一個用漢語（程序設(shè)計語言）寫下的紅燒肉菜譜（程序），用于指導(dǎo)懂漢語的人（體系結(jié)構(gòu)）來做這個菜。通常，計算機(jī)程序要經(jīng)過編譯和鏈接而成為一種人們不易理解而計算機(jī)理解的格式，然后運(yùn)行。未經(jīng)編譯就可運(yùn)行的程序通常稱之為腳本程序。26.1VisualFoxPro程序的建立與執(zhí)行VisualFoxPro中程序的基本組成程序文件的建立和編輯程序文件的編譯和執(zhí)行VisualFoxPro命令方式的輸入輸出語句36.1.1程序的基本組成（1）在VisualFoxPro中，程序文件又稱為命令文件，它是由VisualFoxPro中的命令和一些程序控制語句所組成的，程序文件擴(kuò)展名為.PRG。46.1.1程序的基本組成（2）程序的基本組成規(guī)則是：(1)程序由若干程序行組成。(2)每一程序行由一條語句或一條命令組成。(3)每一行都以“Enter”鍵結(jié)束。若一行寫不完一條命令，可在該行末尾處加上續(xù)行符號“;”。(4)程序末尾通?？杉由铣绦蚪Y(jié)束語句，如CANCEL、RETURN或QUIT等；也可不加，VisualFoxPro將在程序結(jié)束處自動添加程序結(jié)束語句。(5)在程序的開始或每一程序行的后面可加上注釋語句對整個程序和某個程序行做一說明，以增加程序的可讀性。56.1.1程序的基本組成（3）程序的編制過程為：程序的建立、程序的編譯、程序的運(yùn)行。66.1.2程序文件的建立和編輯建立和編輯有兩種方式：命令和菜單1.命令方式命令格式：MODIFYCOMMAND[<程序文件名>|？]命令功能：啟動文本編輯器。2.菜單方式詳見課本6.1.2節(jié)76.1.3程序文件的編譯和執(zhí)行（1）1.編譯編譯是將源程序轉(zhuǎn)換成目標(biāo)程序。編譯有命令和菜單兩種方式。（1）命令方式命令格式：Compile<程序文件名>|？命令功能：對指定的程序文件進(jìn)行編譯。（2）菜單方式詳見課本6.1.3節(jié)86.1.3程序文件的編譯和執(zhí)行（2）2.執(zhí)行程序文件輸入存盤或再經(jīng)編譯后，系統(tǒng)可自動連續(xù)執(zhí)行文件中的每條命令或語句。程序文件的執(zhí)行有命令和菜單兩種方式。（1）命令方式命令格式：DO<程序文件名>|?功能：將程序文件從磁盤調(diào)入內(nèi)存并執(zhí)行。（2）菜單方式詳見課本6.1.3節(jié)96.1.4命令方式的輸入輸出語句（1）1.注釋符*/&&語句格式1：*[<注釋>]語句格式2：&&[<注釋>]功能：*或&&的功能是在程序中起注釋作用，給程序注釋的目的是使程序易于自己和別人理解，即有好的可讀性。注釋語句在VisualFoxPro中是非執(zhí)行語句，即包含注釋語句的程序，在執(zhí)行時，VisualFoxPro將忽略這些注釋語句，因?yàn)樗鼈儍H起注釋作用。說明：*的功能是注釋一整行，它通常放在最前面。&&的功能是放在語句后起注釋作用。通常*用來對整個程序進(jìn)行注釋，即說明該程序的功能；&&用來對一條語句進(jìn)行注釋，即說明該語句的功能。106.1.4命令方式的輸入輸出語句（2）例6-2：注釋示例程序，*程序名稱為ex6-2.prg *我的第一個程序

clear &&清屏

settalkoff &&關(guān)閉回顯

a=3 &&給a賦值為3 b=3^a &&求3的立方值

?a,b &&輸出結(jié)果116.1.4命令方式的輸入輸出語句（3）2.交互式輸入語句VisualFoxPro提供三種交互式輸入語句。功能：系統(tǒng)執(zhí)行上述命令時自動停下，等待用戶從鍵盤輸入信息到計算機(jī)內(nèi)存變量中，系統(tǒng)接收到信息后自動往下繼續(xù)執(zhí)行。12

6.1.4命令方式的輸入輸出語句（4）2.交互式輸入語句（1）INPUT語句格式1：INPUT[<提示信息>]TO<內(nèi)存變量>在語句1中，可輸入N、C、L和D型數(shù)據(jù)。輸入C型數(shù)據(jù)時，要使用單引號或雙引號作為定界符。輸入L型數(shù)據(jù)時，.T.和.F.兩邊的小圓點(diǎn)不能省略。輸入D型數(shù)據(jù)時，要用CtoD()函數(shù)或大括號“｛｝”將字符串轉(zhuǎn)換成日期型變量。13

6.1.4命令方式的輸入輸出語句（5）2.交互式輸入語句（2）ACCEPT語句格式2：ACCEPT[<提示信息>]TO<內(nèi)存變量>語句２只能輸入C型數(shù)據(jù)，輸入數(shù)據(jù)時可不用定界符。14

6.1.4命令方式的輸入輸出語句（6）2.交互式輸入語句（3）WAIT語句格式3：WAIT[<提示信息>][TO<內(nèi)存變量>][TIMEOUT<等待時間>]語句３只能輸入一個字符的C型數(shù)據(jù)，并可指定等待時間。若超過等待時間仍無輸入，則系統(tǒng)自動將0作為輸入值，使程序繼續(xù)執(zhí)行。語句３輸入結(jié)束后可不按Enter鍵。156.1.4命令方式的輸入輸出語句（7）注意：INPUT命令和ACCEPT命令以及后面介紹的格式化輸出命令在VisualFoxPro中很少使用。它們的功能是為兼容原來的FoxPro程序。WAIT命令是等待用戶按任意鍵后程序繼續(xù)運(yùn)行。166.1.4命令方式的輸入輸出語句（8）例6-3：在“學(xué)生表”中，按姓名查找某學(xué)生的情況。程序編制如下：

*程序名為ex6-3.prg clear

xm='' &&為空串

setdefaultto"D:\我的數(shù)據(jù)庫項目\數(shù)據(jù)庫"&&設(shè)置默認(rèn)的目錄位置

use學(xué)生表

accept'請輸入姓名:'toxm listfor姓名=xm wait'按任意鍵繼續(xù)' clear ?'查詢完畢' cancel176.1.4命令方式的輸入輸出語句（9）4.程序結(jié)束語句（1）CANCEL命令語法：CANCEL說明：停止當(dāng)前VisualFoxPro程序的執(zhí)行。當(dāng)交互使用VisualFoxPro時，控制權(quán)返回命令窗口。若執(zhí)行一個獨(dú)立的發(fā)布應(yīng)用程序，CANCEL終止該應(yīng)用程序并將控制權(quán)返回Windows；若設(shè)計時在VisualFoxPro中執(zhí)行一個程序，CANCEL終止該程序，并將控制權(quán)返回命令窗口。執(zhí)行CANCEL將釋放所有私有變量。186.1.4命令方式的輸入輸出語句（10）4.程序結(jié)束語句（2）RETURN命令將程序控制權(quán)返回給調(diào)用程序。語法：RETURN[<表達(dá)式>|TOMASTER|TO<過程名>]（3）QUIT命令結(jié)束當(dāng)前VisualFoxPro程序的運(yùn)行，退出VisualFoxPro，返回到操作系統(tǒng)。注意：請始終使用QUIT命令來終止VisualFoxPro程序。如果打開了VisualFoxPro，沒有發(fā)出QUIT命令而直接關(guān)閉了計算機(jī)，那么可能有數(shù)據(jù)丟失的危險。196.1.4命令方式的輸入輸出語句（11）4.程序結(jié)束語句（4）SUSPEND命令SUSPEND語句的功能是將正在運(yùn)行的程序掛起，這使得程序進(jìn)入到交互狀態(tài)。此時我們可以使用?|??、DISPLAYMEMORY等命令查看內(nèi)存變量的值。在程序掛起狀態(tài)下，可以用命令CANCEL終止程序的運(yùn)行。一般情況下，我們僅使用SUSPEND命令來調(diào)試程序。（5）RESUME命令當(dāng)程序運(yùn)行到SUSPEND語句被掛起后，程序進(jìn)入交互狀態(tài)，在查看完相關(guān)的變量值后，如果在命令窗口輸入RESUME命令，可以使程序繼續(xù)運(yùn)行。206.1.4命令方式的輸入輸出語句（12）CLEAR命令CLEAR用來清屏。CLEAR的另一項功能是從內(nèi)存中釋放指定項。語法：CLEAR[ALL|WINDOWS]ALL表示從內(nèi)存中釋放所有的變量和數(shù)組以及所有用戶自定義菜單欄、菜單和窗口的定義；CLOSEALL也能關(guān)閉所有表，包括所有相關(guān)的索引、格式和備注文件，并且選擇工作區(qū)1。216.2結(jié)構(gòu)化程序設(shè)計基礎(chǔ)程序設(shè)計過程算法程序流程圖及示例226.2.1程序設(shè)計過程程序設(shè)計即是計算機(jī)用戶根據(jù)解決某一問題的步驟，按一定的邏輯關(guān)系，將一系列的指令組合在一起。23真否真否否真有無錯誤分析問題編寫程序確定算法畫流程圖運(yùn)行并調(diào)試程序錯誤修改程序錄入錯誤修改算法結(jié)束246.2.2算法（1）程序的設(shè)計過程，核心問題是設(shè)計一個合理、有效的算法。一般認(rèn)為，算法就是在有限的時間內(nèi)，可以根據(jù)明確規(guī)定的運(yùn)算規(guī)則，在有窮步驟內(nèi)得出確切計算結(jié)果的機(jī)械步驟或能運(yùn)行的計算程序。256.2.2算法（2）算法特性：(1)有限性，即解題步驟是有限的，無窮的步驟意味無解。(2)確定性，每一步驟的操作是確定的，這樣可以保證后繼操作的輸入是可以確定的。(3)有序性，每一步驟都是可行的。此外，算法可以沒有輸入（因?yàn)檩斎胗捎嬎銠C(jī)自動產(chǎn)生），但一定要有輸出，輸出用來表示問題是否有解。266.2.2算法（3）三種基本控制結(jié)構(gòu)：順序、分支、循環(huán)順序結(jié)構(gòu)是程序設(shè)計中最基本的結(jié)構(gòu)。在該結(jié)構(gòu)中，程序的執(zhí)行是按命令出現(xiàn)的先后順序依次執(zhí)行的。分支結(jié)構(gòu)是按給定的選擇條件成立與否來確定程序的走向。分支結(jié)構(gòu)可分為雙重分支選擇和多重分支選擇。在任何條件下，無論分支多少，只能選擇其一。276.2.2算法（4）三種基本控制結(jié)構(gòu)：順序、分支、循環(huán)循環(huán)結(jié)構(gòu)是一種重復(fù)結(jié)構(gòu)，即某一程序段將被反復(fù)執(zhí)行若干次。按循環(huán)的嵌套層次，循環(huán)可分為簡單循環(huán)結(jié)構(gòu)和循環(huán)嵌套（也稱為多重循環(huán)）結(jié)構(gòu)。按循環(huán)體執(zhí)行的條件性質(zhì)，循環(huán)又可分為While循環(huán)和Until循環(huán)。無論何種類型的循環(huán)結(jié)構(gòu)，都要確保循環(huán)的重復(fù)執(zhí)行能夠終止。286.2.2算法（5）結(jié)構(gòu)化程序是指僅由三種基本控制結(jié)構(gòu)組成的程序，它具有以下特點(diǎn)：(1)整個程序模塊化。(2)每個模塊只有一個入口和一個出口。(3)每個模塊都應(yīng)能單獨(dú)執(zhí)行，且無死循環(huán)。(4)采用黑箱的思想，宏觀地描述任何一個程序，可以將它看成為順序結(jié)構(gòu)。296.2.3程序流程圖及示例ANSI流程圖N-S圖301.ANSI流程圖（1）判斷框箭頭：表示程序流向連接符號：表示圖標(biāo)之間相互連接關(guān)系判斷框：表示根據(jù)條件決定程序走向過程：表示該流程部分是一個過程輸入/輸出框：表示數(shù)據(jù)的輸入、輸出操作處理框：表示對數(shù)據(jù)進(jìn)行處理起止框：表示程序的開始或結(jié)束311.ANSI流程圖（2）順序結(jié)構(gòu)語句塊1語句塊2語句塊3321.ANSI流程圖（3）條件分支結(jié)構(gòu)假真條件語句塊1語句塊233真假循環(huán)條件循環(huán)體1.ANSI流程圖（4）循環(huán)結(jié)構(gòu)假真循環(huán)條件循環(huán)體Until型循環(huán)結(jié)構(gòu)While型循環(huán)結(jié)構(gòu)341.ANSI流程圖（5）多重條件分支結(jié)構(gòu)真假假真假真條件1語句塊1語句塊條件2語句塊2…真語句塊n假條件n352.N-S圖（1）順序結(jié)構(gòu)語句塊1語句塊2語句塊3362.N-S圖（2）條件分支結(jié)構(gòu)

語句塊1語句塊2條件真假372.N-S圖（3）多重分支選擇語句CASE<條件>值1值2…值n其它語句塊1語句塊2…語句塊n語句塊382.N-S圖（4）循環(huán)結(jié)構(gòu)循環(huán)條件循環(huán)體循環(huán)體循環(huán)條件Until型循環(huán)結(jié)構(gòu)While型循環(huán)結(jié)構(gòu)396.3程序的控制語句結(jié)構(gòu)順序結(jié)構(gòu)程序分支結(jié)構(gòu)程序循環(huán)結(jié)構(gòu)程序402.分支結(jié)構(gòu)程序（1）雙重分支選擇語句語句格式：

IF<條件> <語句塊1> [ELSE <語句塊2>] ENDIF假真條件語句塊1語句塊2412.分支結(jié)構(gòu)程序（2）

雙重分支選擇語句

語句塊1語句塊2條件真假語句格式：

IF<條件> <語句塊1> [ELSE <語句塊2>] ENDIF422.分支結(jié)構(gòu)程序（3）多重分支選擇語句DOCASE CASE<條件表達(dá)式1> <語句塊1> CASE<條件表達(dá)式2> <語句塊2> CASE<條件表達(dá)式n> <語句塊n> OTHERWISE <語句塊> ENDCASE

真假假真假真條件1語句塊1語句塊條件2語句塊2…真語句塊n假條件n432.分支結(jié)構(gòu)程序（4）多重分支選擇語句DOCASE CASE<條件表達(dá)式1> <語句塊1> CASE<條件表達(dá)式2> <語句塊2> CASE<條件表達(dá)式n> <語句塊n> OTHERWISE <語句塊> ENDCASE

CASE<條件>值1值2…值n其它語句塊1語句塊2…語句塊n語句塊442.分支結(jié)構(gòu)程序（5）例6-8：從鍵盤隨機(jī)輸入成績分?jǐn)?shù)，根據(jù)成績分?jǐn)?shù)來判斷該成績屬于優(yōu)、良、中還是差。規(guī)定：90≤成績≤100為優(yōu)；80≤成績<90為良；60≤成績<80為中；成績<60為差；其它為非法輸入。使用多重分支結(jié)構(gòu)，程序編制如下：452.分支結(jié)構(gòu)程序（6）clearsettalkoffrate='' &&表示等級input'請輸入成績:'togradedocasecase90<=grade.and.grade<=100 ?str(grade,3)+‘的成績?yōu)?’+‘優(yōu)’&&縮格目的是增加可讀性

case80<=grade.and.grade<90 ?str(grade,3)+'的成績?yōu)?'+'良' case60<=grade.and.grade<80 ?str(grade,3)+'的成績?yōu)?'+'中' case0<=grade.and.grade<60 ?str(grade,3)+'的成績?yōu)?'+'差' otherwise ?'您輸入的成績不對!'endcasereturn463.循環(huán)結(jié)構(gòu)程序（1）DOWHILE循環(huán)語句格式：

DOWHILE<條件表達(dá)式> <語句塊> [LOOP] [EXIT] ENDDO循環(huán)條件循環(huán)體473.循環(huán)結(jié)構(gòu)程序（2）循環(huán)語句的使用要注意下列幾點(diǎn)：(1)DOWHILE和ENDDO子句要配對使用，ENDDO的作用是使循環(huán)回到循環(huán)的開始，即DOWHILE語句。(2)在第一次執(zhí)行到DOWHILE語句時，循環(huán)條件必須為真，才能進(jìn)入循環(huán)體。在執(zhí)行完成循環(huán)體語句后，再判斷循環(huán)條件是否為真，如果為真，則繼續(xù)循環(huán)，直到循環(huán)條件為假時，才退出循環(huán)語句，執(zhí)行ENDDO后面的語句。483.循環(huán)結(jié)構(gòu)程序（3）循環(huán)語句的使用要注意下列幾點(diǎn)：(3)循環(huán)體中，一定存在一條或若干條語句在改變循環(huán)條件。如果循環(huán)條件恒為真，則是死循環(huán)。(4)要小心改變循環(huán)條件，如果不適當(dāng)?shù)男薷难h(huán)條件，則循環(huán)將不能按預(yù)先的設(shè)想進(jìn)行，程序也達(dá)不到預(yù)期的效果。(5)為增加程序的可讀性，使程序清晰易懂，必須使用縮格。(6)關(guān)于LOOP和EXIT語句使用參見本節(jié)后面的內(nèi)容。493.循環(huán)結(jié)構(gòu)程序（4）例6-11：求1加到10的累加和，即S=1+2+3+…+8+9+10settalkoffs=0 &&求累加和的變量i=1 &&循環(huán)變量賦初值dowhilei<=10 &&循環(huán)條件，使用縮格，提高可讀性

?i &&此處輸出變量i的值是方便理解循環(huán)的過程

s=s+i &&求累加，即循環(huán)不變式

??s &&輸出s的結(jié)果，理解每次累加結(jié)果的變化

i=i+1 &&改變循環(huán)變量的值enddo?s &&循環(huán)體外輸出結(jié)果503.循環(huán)結(jié)構(gòu)程序（5）循環(huán)閱讀理解循環(huán)條件是什么？什么時候進(jìn)入循環(huán)？什么時候退出循環(huán)？循環(huán)體內(nèi)如何改變循環(huán)條件？循環(huán)變量的作用？513.循環(huán)結(jié)構(gòu)程序（6）在循環(huán)中處理循環(huán)不變式的一般結(jié)構(gòu)循環(huán)前的預(yù)處理，如循環(huán)控制變量賦初值循環(huán)條件，初始必須為真循環(huán)不變式改變循環(huán)控制變量的值根據(jù)需要輸出結(jié)果523.循環(huán)結(jié)構(gòu)程序（7）在循環(huán)中處理記錄一般結(jié)構(gòu)打開數(shù)據(jù)表(默認(rèn)指向第一條記錄)記錄指針指向第一條記錄(可忽略)判記錄指針沒有到底(.NOT.EOF())根據(jù)給定的條件對當(dāng)前記錄進(jìn)行處理記錄指針下移（Skip）根據(jù)需要輸出結(jié)果533.循環(huán)結(jié)構(gòu)程序（8）循環(huán)結(jié)構(gòu)中的LOOP命令LOOP真假條件語句塊2假真循環(huán)條件語句塊1DOWHILE<循環(huán)條件>

語句塊1 IF<條件> LOOP ENDIF

語句塊2ENDDO543.循環(huán)結(jié)構(gòu)程序（9）循環(huán)結(jié)構(gòu)中的EXIT命令EXIT真假條件語句塊2假真循環(huán)條件語句塊1DOWHILE<循環(huán)條件>

語句塊1 IF<條件> EXIT ENDIF

語句塊2ENDDO553.循環(huán)結(jié)構(gòu)程序（10）FOR循環(huán)語句格式：FOR<循環(huán)變量>=<循環(huán)初值>TO<循環(huán)終值>

[STEP<步長>] <語句塊> [LOOP] [EXIT]ENDFOR|NEXT563.循環(huán)結(jié)構(gòu)程序（11）求運(yùn)行結(jié)果fori=10to1step-2?"i=",inext?"i=",i例6-15：求N！，即求N的階乘。573.循環(huán)結(jié)構(gòu)程序（12）循環(huán)的嵌套循環(huán)體內(nèi)又嵌套循環(huán)的情況稱為多重循環(huán)或循環(huán)嵌套。處于循環(huán)體內(nèi)的循環(huán)稱為內(nèi)循環(huán)，處于外層的循環(huán)稱為外循環(huán)。內(nèi)外循環(huán)的層次必須分明，不允許有交叉現(xiàn)象出現(xiàn)。內(nèi)外循環(huán)的循環(huán)變量不要同名。在嵌套情況下，EXIT語句使控制跳到下方離其最近的ENDDO之后，而LOOP語句使控制跳到其上方離其最近的DO...WHILE語句中。58DOWHILEDOWHILELOOPEXITENDDOLOOPEXITENDDO3.循環(huán)結(jié)構(gòu)程序（13）593.循環(huán)結(jié)構(gòu)程序（14）例6-19：打印如圖所示對稱三角圖形，要求第一行的*在第10列。****************例6-20：輸入一個大于1的正整數(shù)，判斷該數(shù)是否是素數(shù)。606.4數(shù)組的應(yīng)用數(shù)組在使用之前，必須加以定義，然后才能使用該數(shù)組。數(shù)組定義或數(shù)組說明語句格式為：DIMENSION

<數(shù)組名1>(<數(shù)值表達(dá)式1>[,<數(shù)值表達(dá)式2>,...])

[,<數(shù)組名2>(<數(shù)值表達(dá)式1>[,<數(shù)值表達(dá)式2>,...])...]61例子dimensionA(N)dimensionB(n,m)A(1)A(2)…A(N-1)A(N)B(1,1)，B(1,2)，...，B(1,m)B(2,1)，B(2,2)，...，B(2,m)…B(n,1)，B(n,2)，...，B(n,m