第8章結(jié)構(gòu)化程序設(shè)計基礎(chǔ)程序：為了實(shí)現(xiàn)某一項任務(wù)，將若干條命令按程序控制結(jié)構(gòu)組成的命令序列。8.1VFP中建立程序文件文件—新建—文件類型：程序—新建文件—打開程序編輯窗口—書寫程序—運(yùn)行！程序的執(zhí)行：

DO〈程序文件名〉

程序控制的基本結(jié)構(gòu)有三種：順序結(jié)構(gòu)、選擇分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。1、順序結(jié)構(gòu)：程序的執(zhí)行是按其語句的排列先后順序執(zhí)行，這也是最簡單、最基本的程序控制結(jié)構(gòu)。8.3程序的控制結(jié)構(gòu)語句1語句2例8.3：將人事信息表ZG.DBF中新評為教授的教師，其職稱一欄由副教授改為教授

打開表zg修改職稱為教授記錄指針條件定位輸入教師姓名關(guān)閉表RSCLEARSETTALKOFF&&打開關(guān)閉命令執(zhí)行狀態(tài)信息USEZG.dbfACCEPT"請輸入要修改記錄的教師名："toxmLOCATEFOR姓名=xmREPL職稱WITH"教授"USESETTALKONACCEPT輸入字符串命令暫停程序的執(zhí)行，在屏幕上給出提示信息，等待用戶從鍵盤上輸入一個字符串常量給TO短語后指定的內(nèi)存變量2、選擇分支結(jié)構(gòu)定義：選擇分支結(jié)構(gòu)是根據(jù)條件的測試結(jié)果執(zhí)行不同的操作。VFP中有兩條命令實(shí)現(xiàn)條件分支：二路選擇分支結(jié)構(gòu)（IF…ENDIF）和多路選擇分支結(jié)構(gòu)（DOCASE…ENDASE）。條件表達(dá)式語句1語句2真假（1）二路選擇分支結(jié)構(gòu)

格式：IF<條件表達(dá)式>

<語句系列1>

ELSE

<語句系列2>

ENDIF

功能：當(dāng)<條件表達(dá)式>的值為真時，執(zhí)行<語句系列1>；否則執(zhí)行<語句系列2>。如果沒有ELSE的子句，則當(dāng)<條件表達(dá)式>的值為假時，不進(jìn)行任何操作。注：IF和ENDIF必須配對使用。SETTALKOFFclearINPUT"請輸入一個正整數(shù):"TOXIFMOD(X,2)=0 ?X,"為偶數(shù)!"ELSE?X,"為奇數(shù)!"ENDIF SETTALKON例8.4從鍵盤輸入一個正整數(shù)，判斷其是否為偶數(shù)。程序代碼如下：INPUT輸入其他類型數(shù)據(jù)命令暫停程序的執(zhí)行，在屏幕上顯示信息，并等待用戶從鍵盤上輸入各種類型的數(shù)據(jù)：數(shù)值型，字符型，日期型，邏輯型，貨幣型，按回車確認(rèn)將數(shù)據(jù)賦給TO后面的內(nèi)存變量(2)if語句的嵌套格式：IF<條件表達(dá)式1>

<語句系列1>

ELSEIF<條件表達(dá)式2><語句系列2>

……

ELSE<語句系列N>ENDIF

……功能：當(dāng)<條件表達(dá)式1>的值為真時，執(zhí)行<語句系列1>；否則判斷<條件表達(dá)式2>的值是否為真，為真執(zhí)行<語句系列2>；如果當(dāng)<條件表達(dá)式>的值都為假時，執(zhí)行<語句系列N>。例8-12輸入學(xué)生姓名和某一課程成績，若成績大于等于90輸出“優(yōu)秀”，分?jǐn)?shù)大于等于80輸出“良好”，分?jǐn)?shù)大于等于60輸出“及格”，小于60輸出“不及格”SettalkoffelseClearIFscore>=60name=“”?”姓名”:,name,”及格！”score=0else@10,10say“輸入姓名”:getname?”姓名”:,name,”不及格！”@11,10say“輸入成績”:getscorerange0,100endifRead

endifIfscore>=90

endif

?”姓名”:,name,”優(yōu)秀！”settalkonElsereturn&&結(jié)束程序執(zhí)行，返回

IFscore>=80

命令窗口?”姓名”:,name,”良好！”（3）多分支選擇結(jié)構(gòu)格式：DOCASECASE<條件1>[<語句組1>]

CASE<條件2>[<語句組2>]……CASE<條件n>[<語句組n>]

otherwise[<語句組n+1>]endcase定義：某些語句在某一條件成立時,需要重復(fù)執(zhí)行,直到條件不成立時,才結(jié)束重復(fù)執(zhí)行。循環(huán)結(jié)構(gòu)要特別注意的是在重復(fù)執(zhí)行語句過程中，要有控制條件的語句，以避免出現(xiàn)死循環(huán)現(xiàn)象。3、

循環(huán)結(jié)構(gòu)

表達(dá)式循環(huán)體語句真假格式：DOWHILE

<條件表達(dá)式>

<語句序列>[EXIT]

[LOOP]ENDDO一、DOWHILEENDDO

功能：當(dāng)<條件表達(dá)式>的值為真時，重復(fù)執(zhí)行DOWHILE…ENDDO之間的<語句序列>，直到<條件表達(dá)式>的值為假時結(jié)束。無條件結(jié)束循環(huán)結(jié)束本次循環(huán)SETTALKOFFCLEARs=0 i=1 DOWHILEi<=99s=s+ii=i+2ENDDO？"1+3+5+7+…+99=",SSETTALKON例4.8：計算1+3+5+7+9+…+99的值并輸出。格式：

FOR

循環(huán)變量=初值

TO

終值[STEP步長]

<語句系列>

[EXIT][LOOP]ENDFOR/NEXT二、FOR循環(huán)程序設(shè)計

功能：當(dāng)循環(huán)變量的值不大于終值時，執(zhí)行循環(huán)操作。每循環(huán)一次，循環(huán)變量的值自動遞增一個步長值。ForI=1TO100STEP1SUM=SUM+INEXT例4.12：求1000之內(nèi)所有偶數(shù)之和。

SETTALKOFFCLEARS=0FORI=0TO1000STEP2S=S+INEXT？“1000之內(nèi)所有偶數(shù)之和為”，SSETTALKONRETURN三、掃描型循環(huán)結(jié)構(gòu)掃描型循環(huán)是依據(jù)數(shù)據(jù)表而建立的循環(huán)，專門用來對數(shù)據(jù)表終的若干條記錄執(zhí)行相同的操作處理。格式：

SCAN[<范圍>][FOR<條件>][語句序列]

ENDSCAN說明：首先利用EOF（）函數(shù)判斷記錄指針是否位于表尾，若為真（循環(huán)條件），則結(jié)束循環(huán)，否則根據(jù)范圍和條件將記錄指針移動到第一個滿足條件的記錄上并執(zhí)行語句序列，再次判斷EOF函數(shù)是否為真。例8-20利用SCAN…ENDSCAN語句逐條顯示STUDENT.DBF表中女生的記錄SETTALKOFFCLEA