第8章結構化程序設計基礎程序：為了實現某一項任務，將若干條命令按程序控制結構組成的命令序列。8.1VFP中建立程序文件文件—新建—文件類型：程序—新建文件—打開程序編輯窗口—書寫程序—運行！程序的執行：

DO〈程序文件名〉

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

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

格式：IF<條件表達式>

<語句系列1>

ELSE

<語句系列2>

ENDIF

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

<語句系列1>

ELSEIF<條件表達式2><語句系列2>

……

ELSE<語句系列N>ENDIF

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

endifIfscore>=90

endif

?”姓名”:,name,”優秀！”settalkonElsereturn&&結束程序執行，返回

IFscore>=80

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

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

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

循環結構

表達式循環體語句真假格式：DOWHILE

<條件表達式>

<語句序列>[EXIT]

[LOOP]ENDDO一、DOWHILEENDDO

功能：當<條件表達式>的值為真時，重復執行DOWHILE…ENDDO之間的<語句序列>，直到<條件表達式>的值為假時結束。無條件結束循環結束本次循環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

循環變量=初值

TO

終值[STEP步長]

<語句系列>

[EXIT][LOOP]ENDFOR/NEXT二、FOR循環程序設計

功能：當循環變量的值不大于終值時，執行循環操作。每循環一次，循環變量的值自動遞增一個步長值。ForI=1TO100STEP1SUM=SUM+INEXT例4.12：求1000之內所有偶數之和。

SETTALKOFFCLEARS=0FORI=0TO1000STEP2S=S+INEXT？“1000之內所有偶數之和為”，SSETTALKONRETURN三、掃描型循環結構掃描型循環是依據數據表而建立的循環，專門用來對數據表終的若干條記錄執行相同的操作處理。格式：

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

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