第五章

結(jié)構(gòu)化程序設(shè)計1第五章

結(jié)構(gòu)化程序設(shè)計1第一節(jié)程序文件

一、VisualFoxPro程序的幾點(diǎn)說明

1．注釋語句【格式1】*<注釋內(nèi)容>【格式2】&&<注釋內(nèi)容>【功能】增強(qiáng)程序文件的易讀性2．對話開關(guān)語句【格式】SETTALKOFF|ON【功能】關(guān)閉或打開命令執(zhí)行時的對話開關(guān)3．命令的分行VisualFoxPro程序是命令行的序列，每個命令都以回車鍵結(jié)束，一行只能寫一條命令；若一條命令太長，一行寫不下，也可分行書寫，并在分行處加上續(xù)行符“；”，再按回車鍵。2第一節(jié)程序文件一、VisualFoxPro程序的二、程序文件的建立、修改與執(zhí)行

1．建立或修改程序文件

1)命令方式：

MODIFYCOMMAND〈程序文件名〉2)菜單方式：打開“文件”菜單，選擇“新建”；在“新建”窗口，選擇“程序”，再選擇“新建文件”

3二、程序文件的建立、修改與執(zhí)行1．建立或修改程序文件3

3)項目管理器：選定項目管理器“代碼”選項卡中的“程序”項，選擇“新建”命令。2．保存程序文件

程序輸入、編輯完畢，單擊【文件】|【保存】菜單項，或按Ctrl+W復(fù)合鍵，在“另存為”對話框中指定程序文件的存放位置和文件名，并單擊“保存”按鈕保存程序文件并退出文本編輯器。程序文件的默認(rèn)擴(kuò)展名是.PRG。

43)項目管理器：43．執(zhí)行程序文件程序文件建立后，可以用多種方式、多次執(zhí)行它。下面是兩種常用的方式。1）菜單方式①單擊【程序】→【運(yùn)行】菜單項，打開“運(yùn)行”對話框；②從文件列表框中選擇要運(yùn)行的程序文件，并單擊“運(yùn)行”命令按鈕，啟動運(yùn)行該程序文件2）命令方式【格式】DO[<盤符>][<路徑>]<文件名>【功能】執(zhí)行指定<盤符>、<路徑>下的程序文件當(dāng)程序文件被執(zhí)行時，文件中包含的命令將被依次執(zhí)行，直到所有命令被執(zhí)行完畢。53．執(zhí)行程序文件5第二節(jié)程序的基本結(jié)構(gòu)

由順序、分支、循環(huán)三種基本結(jié)構(gòu)構(gòu)成。（1）順序結(jié)構(gòu)，如圖6-1所示，該結(jié)構(gòu)先執(zhí)行A操作，再執(zhí)行B操作。（2）分支結(jié)構(gòu)：如圖6-2所示，該結(jié)構(gòu)中P代表一個條件，當(dāng)條件P成立時執(zhí)行A操作，否則執(zhí)行B操作。

圖6-1順序結(jié)構(gòu)流程圖圖6-2分支結(jié)構(gòu)流程圖

6第二節(jié)程序的基本結(jié)構(gòu)由順序、分支、循環(huán)三種基本結(jié)構(gòu)構(gòu)成（3）循環(huán)結(jié)構(gòu)：循環(huán)結(jié)構(gòu)則能夠使某些語句或程序段重復(fù)執(zhí)行若干次。如果某些語句或程序段需要在一個固定的位置上重復(fù)操作，使用循環(huán)是最好的選擇。7（3）循環(huán)結(jié)構(gòu)：循環(huán)結(jié)構(gòu)則能夠使某些語句或程序段重復(fù)執(zhí)行若干三條輸入命令的異同

ACCEPT[<提示信息>]TO<內(nèi)存變量>ACCEPT命令只能接受字符型數(shù)據(jù)，不需定界符，輸入完畢按回車鍵結(jié)束。WAIT[<提示信息>][TO<內(nèi)存變量>]WAIT命令只能輸入單個字符，且不需定界符，輸入完畢不需按回車鍵。INPUT[<提示信息>]TO<內(nèi)存變量>

INPUT命令可接受數(shù)值型、字符型、邏輯型、日期型和日期時間型數(shù)據(jù)，如果是字符串，需用定界符，輸入完畢按回車鍵結(jié)束。

8三條輸入命令的異同8分支結(jié)構(gòu)形式有如下三種：1．單向分支單向分支語句，即根據(jù)用戶設(shè)置的條件表達(dá)式的值，決定某一操作是否執(zhí)行?！菊Z句格式】

IF〈條件表達(dá)式〉〈命令行序列〉

ENDIF【語句功能】該語句首先計算〈條件表達(dá)式〉的值，當(dāng)〈條件表達(dá)式〉的值為真時，執(zhí)行〈命令行序列〉；否則，執(zhí)行ENDIF后面的第一條命令。三、分支結(jié)構(gòu)

9分支結(jié)構(gòu)形式有如下三種：三、分支結(jié)構(gòu)9【例6-9】求一元二次方程AX2＋BX＋C＝0的實(shí)根。程序文件名為PROG9.PRG。SETTALKOFFCLEARINPUTTOAINPUTTOBINPUTTOCZ＝B^2-4*A*CIFZ>=0X1=(-B+SQRT(Z))/(2*A)X2=(-B-SQRT(Z))/(2*A)?X1,X2ENDIFSETTALKON10【例6-9】求一元二次方程AX2＋BX＋C＝0的實(shí)根。程序文

2．雙向分支

雙向分支語句，即根據(jù)用戶設(shè)置的條件表達(dá)式的值，選擇兩個操作中的一個來執(zhí)行?！菊Z句格式】

IF〈條件表達(dá)式〉〈命令行序列1〉ELSE〈命令行序列2〉ENDIF【語句功能】

該語句首先計算〈條件表達(dá)式〉的值，當(dāng)〈條件表達(dá)式〉的值為真時，執(zhí)行〈命令行序列1〉中的命令；否則，執(zhí)行〈命令行序列2〉中的命令；執(zhí)行完〈命令行序列1〉或〈命令行序列2〉后都將執(zhí)行ENDIF后面的第一條命令。112．雙向分支11【例6-10】編寫一密碼校驗程序（假設(shè)密碼為ABC）。程序文件名為PROG10.PRG。SETTALKOFFCLEARACCEPT“請輸入您的密碼：”TOAAAIFAAA=”ABC”CLEAR?”歡迎使用本系統(tǒng)！”ELSE?”密碼錯誤！”ENDIFSETTALKON12【例6-10】編寫一密碼校驗程序（假設(shè)密碼為ABC）。程序文

3．多向分支

多向分支語句，即根據(jù)多個條件表達(dá)式的值，選擇執(zhí)行多個操作中的一個對應(yīng)執(zhí)行?！菊Z句格式】

DOCASECASE〈條件表達(dá)式1〉<命令行序列1〉CASE〈條件表達(dá)式2〉<命令行序列2〉……

CASE〈條件表達(dá)式N〉〈命令行序列N〉］［OTHERWISE〈命令行序列N+1〉］

ENDCASE133．多向分支13

【語句功能】

該語句根據(jù)給出的N個〈條件表達(dá)式〉的值，選擇N+1個〈命令行序列〉中的一個執(zhí)行。當(dāng)所有CASE中〈條件表達(dá)式〉的值都是假時，如果有OTHERWISE項，則執(zhí)行〈命令行序列N+1〉，再執(zhí)行ENDCASE后面的第一條命令；否則，直接執(zhí)行ENDCASE后面的第一條命令?！纠?-11】假設(shè)收入（P）與稅率（R）的關(guān)系如下表，編程求稅金。程序文件名為PROG11.PRG。0 P＜800R=0.05 800≤P＜20000.08 2000≤P＜50000.1 P≥5000

14【語句功能】14SETTALKOFFCLEARINPUT“請輸入收入：”TOPDOCASECASEP<800R=0CASEP<2000R=0.05CASEP<5000R=0.08OTHERWISER=0.1ENDCASETAX=P*R?”稅金為：”,TAXSETTALKON15SETTALKOFF15四、循環(huán)結(jié)構(gòu)

1．DOWHILE循環(huán)語句【格式1】DOWHILE<條件表達(dá)式><語句序列>

ENDDO

16四、循環(huán)結(jié)構(gòu)1．DOWHILE循環(huán)語句16【格式2】DOWHILE<條件表達(dá)式><語句序列1>[LOOP]<語句序列2>[EXIT]<語句序列3>

ENDDOLOOP語句：強(qiáng)行返回到循環(huán)開始語句。EXIT語句：強(qiáng)行跳出循環(huán)，接著執(zhí)行ENDDO后的語句

17【格式2】DOWHILE<條件表達(dá)式>LOO【例6-12】編程求1＋2＋3＋……＋100之和。程序文件名為PROG12.PRG。SETTALKOFFCLEARS=0I=1DOWHILEI<=100S=S+II=I+1ENDDO?”1＋2＋3＋……＋100＝”,SSETTALKON18【例6-12】編程求1＋2＋3＋……＋100之和。程序文件名【例6-13】逐條顯示在STUDENT數(shù)據(jù)庫的STUD表中性別為“男”的所有記錄。程序文件名為PROG13.PRG。SETTALKOFFCLEARCLOSEDATABASEALLOPENDATABASESTUDENTUSESTUDDOWHILE.NOT.EOF()IF性別=”男”DISPLAYENDIFSKIPENDDOCLOSEDATABASEALLSETTALKON19【例6-13】逐條顯示在STUDENT數(shù)據(jù)庫的STUD表中性【例6-14】編程顯示STUDENT數(shù)據(jù)庫的STUD表中除“孫業(yè)”以外的所有記錄。程序文件名為PROG14.PRG。SETTALKOFFCLEAR]CLOSEDATABASEALLOPENDATABASESTUDENTUSESTUDDOWHILE.NOT.EOF()IF姓名=”孫業(yè)”

SKIPLOOPENDIFDISPLAYSKIPENDDOCLOSEDATABASEALLSETTALKON20【例6-14】編程顯示STUDENT數(shù)據(jù)庫的STUD表中除“

2．FOR循環(huán)語句

【格式】

FOR<循環(huán)變量>=<初值>TO<終值>[STEP<步長>]

<語句序列1>

[LOOP]

<語句序列2>

[EXIT]

<語句序列3>

ENDFOR/NEXTFOR語句的執(zhí)行流程如右圖所示。

212．FOR循環(huán)語句21使用FOR循環(huán)語句的有關(guān)說明：①省略STEP<步長>，則〈步長〉為默認(rèn)值1；②〈初值〉、〈終值〉和〈步長〉都可以是數(shù)值表達(dá)式，但這些表達(dá)式僅在循環(huán)語句開始執(zhí)行時計算一次。循環(huán)語句執(zhí)行過程中，初值、終值和步長是不會改變的，并由此確定循環(huán)的次數(shù)；③EXIT和LOOP命令可以出現(xiàn)在循環(huán)體內(nèi)。執(zhí)行LOOP命令時，結(jié)束本次循環(huán)，循環(huán)變量增加一個步長值，返回FOR循環(huán)頭判斷循環(huán)條件是否成立。執(zhí)行EXIT命令時,程序跳出循環(huán)，執(zhí)行循環(huán)尾后面的語句。22使用FOR循環(huán)語句的有關(guān)說明：22

3．“指針”型循環(huán)控制語句“指針”型循環(huán)控制語句，即根據(jù)用戶設(shè)置的表中的當(dāng)前記錄指針，決定循環(huán)體內(nèi)語句的執(zhí)行次數(shù)據(jù)?！菊Z句格式】

SCAN［FOR〈條件表達(dá)式〉]〈命令行序列〉

ENDSCAN【語句功能】

該語句在指定的范圍內(nèi)，用數(shù)據(jù)記錄指針來控制循環(huán)次數(shù)。執(zhí)行語句時，首先判斷函數(shù)EOF（）的值，若其值為“真”，則結(jié)束循環(huán)，否則，結(jié)合(條件表達(dá)式)，執(zhí)行(命令行序列)，記錄指針移到指定的范圍和條件內(nèi)的下一條記錄，重新判斷函數(shù)EOF()的值，直到函數(shù)EOF()的值為真時結(jié)束循環(huán)。233．“指針”型循環(huán)控制語句23【例6-18】輸出STUDENT數(shù)據(jù)庫的STUD表中所有男生的姓名和地址。程序文件名為PROG18.PRG。SETTALKOFFCLEARCLOSEDATABASEALLOPENDATABASESTUDENTUSESTUDSCANFOR性別=“男”?姓名,地址ENDSCANCLOSEDATABASEALLSETTALKON24【例6-18】輸出STUDENT數(shù)據(jù)庫的STUD表中所有男生

4．使用循環(huán)語句時應(yīng)注意的幾點(diǎn)（1）DOWHILE和ENDDO、FOR和ENDFOR、SCAN和ENDSCAN必須配對使用。（2）<循環(huán)變量〉應(yīng)是數(shù)值型的內(nèi)存變量或數(shù)組元素。（3）EXIT和LOOP命令嵌入在循環(huán)體內(nèi)，可以改變循環(huán)次數(shù)，但是不能單獨(dú)使用。EXIT的功能是跳出循環(huán)，轉(zhuǎn)去執(zhí)行ENDDO、ENDFOR、ENDSCAN后面的第一條命令；LOOP的功能是轉(zhuǎn)回到循環(huán)的開始處，重新對“條件”進(jìn)行判斷。254．使用循環(huán)語句時應(yīng)注意的幾點(diǎn)25第三節(jié)過程的模塊化

VFP模塊化在具體實(shí)現(xiàn)上提供三種形式，它們是子程序、過程和函數(shù)。一子程序子程序也叫外部過程，是以程序文件（.PRG）的形式單獨(dú)存儲在磁盤上。子程序的結(jié)構(gòu)與一般的程序文件一樣，可以用MODIFYCOMMAND命令來建立、修改、和存盤，擴(kuò)展名也默認(rèn)為.PRG。子程序與其他程序文件的唯一區(qū)別是其末尾或返回處必須有返回語句RETURN。子程序的調(diào)用：DO<程序文件名>26第三節(jié)過程的模塊化VFP模塊化在具體實(shí)現(xiàn)上提供三種形式二、過程(內(nèi)部)

內(nèi)部過程：把多個過程組織在一個文件中(這個文件稱之為過程文件)，或者把過程放在調(diào)用它的程序文件的末尾。過程文件格式為：

PROCEDURE<過程名>[PARAMETER<參數(shù)表>]<命令序列>[RETURN[<表達(dá)式>]]

過程有兩種存放方式：（1）把所有的過程集中寫入一個被稱為過程文件（.prg文件）的磁盤文件中（2）直接把過程寫在調(diào)用它的主程序文件中，主程序被打開時，過程同時被調(diào)入內(nèi)存（調(diào)用時可節(jié)省時間）。（3）如果缺省RETURN，則在過程尾部自動執(zhí)行一條隱含的RETURN命令，若不帶<表達(dá)式>則返回邏輯值.T.。27二、過程(內(nèi)部)內(nèi)部過程：把多個過程組織在一個文【例6-22】建立如下程序文件，過程放在程序文件中。*MAIN.PRGSETTALKOFF?”正在執(zhí)行主程序”DOSUB1

SETTALKON

ProcedureSUB1

?”正在執(zhí)行SUB1”

RETURN28【例6-22】建立如下程序文件，過程放在程序文件中。28三、過程文件的建立

過程文件的建立方法與程序文件相同?？捎肕ODIFYCOMMAND<過程文件名>命令或調(diào)用其他文字編輯軟件來建立。過程文件的結(jié)構(gòu)一般為：

PROCEDURE<過程名1><命令序列1>RETURN

PROCEDURE<過程名2><命令序列2>RETURN…PROCEDURE<過程名N><命令序列N>RETURN29三、過程文件的建立過程文件的建立方法與程序1．過程文件的調(diào)用

調(diào)用某過程文件中的過程時，必須先打開該過程文件，打開過程文件命令為：【格式】SETPROCEDURETO<過程文件名>

任何時候系統(tǒng)只能打開一個過程文件，當(dāng)打開一個新的過程文件時，原已打開的過程文件自動關(guān)閉。調(diào)用過程文件

DO<過程文件名>WITH參數(shù)表2．過程文件的關(guān)閉關(guān)閉過程文件可用下列命令：【格式一】SETPROCEDURETO

【格式二】CLOSEPROCEDURE

301．過程文件的調(diào)用30參數(shù)傳遞

當(dāng)用主程序調(diào)過程時，可以將主程序中的參數(shù)傳遞給過程，在過程中經(jīng)過處理后再返回到主程序。調(diào)用程序的格式：格式1：DO<文件名>︱<過程名>WITH<實(shí)參1>[,<實(shí)參2>,…]格式2：<文件名>︱<過程名><實(shí)參1>[,<實(shí)參2>,…]實(shí)參可以是常量、變量或表達(dá)式。調(diào)用程序時將發(fā)送實(shí)參。接收參數(shù)命令：PARAMETERS<形參1>[,<形參1>,…]此時形參為私有變量。LPARAMETERS<形參1>[,<形參1>,…]此時形參為局部變量。31參數(shù)傳遞當(dāng)用主程序調(diào)過程時，可以將主程序中的參數(shù)傳遞規(guī)則:(1)當(dāng)實(shí)參數(shù)量大于形參數(shù)量時，系統(tǒng)將提示出錯。(2)當(dāng)實(shí)參數(shù)量等于形參數(shù)量時，實(shí)、形參數(shù)一一對應(yīng)發(fā)、接參數(shù)。(3)當(dāng)實(shí)參數(shù)量小于形參數(shù)量時，多余的形參將被賦值為邏輯假．F．。參數(shù)的兩種傳遞方式：（1）按值傳遞。形參變量值的改變不會影響實(shí)參變量的值。（2）按地址（引用）傳遞。形參變量值的改變時，實(shí)參變量也隨之改變。兩種方式的設(shè)置命令：SETUDFPARMSTOVALUE︱REFERENCE按值傳遞按地址32規(guī)則:按值傳遞按地址32變量的作用域變量的作用域指的是變量在什么范圍內(nèi)是有效(或能夠被訪問)的。內(nèi)存變量可分為：公共、私有、局部三類。1.公共變量：在任何模塊中都可使用的變量稱為公共變量?？捎茫篜UBLIC<內(nèi)存變量表>建立，其初值被賦為邏輯假.F.。2.私有變量：可在本模塊及其下屬的各層模塊中使用。在程序中直接使用的變量，均為私有變量。一但建立它的模塊程序運(yùn)行結(jié)束，私有變量將自動清除。3.局部變量：只能在建立它的模塊中使用，當(dāng)建立它的模塊程序結(jié)束時，局部變量自動釋放?？捎茫篖OCAL<內(nèi)存變量表>建立,其初值被賦為邏輯假.F.。33變量的作用域變量的作用域指的是變量在什么范圍內(nèi)是有效(或能夠結(jié)束34結(jié)束34第五章

結(jié)構(gòu)化程序設(shè)計35第五章

結(jié)構(gòu)化程序設(shè)計1第一節(jié)程序文件

一、VisualFoxPro程序的幾點(diǎn)說明

1．注釋語句【格式1】*<注釋內(nèi)容>【格式2】&&<注釋內(nèi)容>【功能】增強(qiáng)程序文件的易讀性2．對話開關(guān)語句【格式】SETTALKOFF|ON【功能】關(guān)閉或打開命令執(zhí)行時的對話開關(guān)3．命令的分行VisualFoxPro程序是命令行的序列，每個命令都以回車鍵結(jié)束，一行只能寫一條命令；若一條命令太長，一行寫不下，也可分行書寫，并在分行處加上續(xù)行符“；”，再按回車鍵。36第一節(jié)程序文件一、VisualFoxPro程序的二、程序文件的建立、修改與執(zhí)行

1．建立或修改程序文件

1)命令方式：

MODIFYCOMMAND〈程序文件名〉2)菜單方式：打開“文件”菜單，選擇“新建”；在“新建”窗口，選擇“程序”，再選擇“新建文件”

37二、程序文件的建立、修改與執(zhí)行1．建立或修改程序文件3

3)項目管理器：選定項目管理器“代碼”選項卡中的“程序”項，選擇“新建”命令。2．保存程序文件

程序輸入、編輯完畢，單擊【文件】|【保存】菜單項，或按Ctrl+W復(fù)合鍵，在“另存為”對話框中指定程序文件的存放位置和文件名，并單擊“保存”按鈕保存程序文件并退出文本編輯器。程序文件的默認(rèn)擴(kuò)展名是.PRG。

383)項目管理器：43．執(zhí)行程序文件程序文件建立后，可以用多種方式、多次執(zhí)行它。下面是兩種常用的方式。1）菜單方式①單擊【程序】→【運(yùn)行】菜單項，打開“運(yùn)行”對話框；②從文件列表框中選擇要運(yùn)行的程序文件，并單擊“運(yùn)行”命令按鈕，啟動運(yùn)行該程序文件2）命令方式【格式】DO[<盤符>][<路徑>]<文件名>【功能】執(zhí)行指定<盤符>、<路徑>下的程序文件當(dāng)程序文件被執(zhí)行時，文件中包含的命令將被依次執(zhí)行，直到所有命令被執(zhí)行完畢。393．執(zhí)行程序文件5第二節(jié)程序的基本結(jié)構(gòu)

由順序、分支、循環(huán)三種基本結(jié)構(gòu)構(gòu)成。（1）順序結(jié)構(gòu)，如圖6-1所示，該結(jié)構(gòu)先執(zhí)行A操作，再執(zhí)行B操作。（2）分支結(jié)構(gòu)：如圖6-2所示，該結(jié)構(gòu)中P代表一個條件，當(dāng)條件P成立時執(zhí)行A操作，否則執(zhí)行B操作。

圖6-1順序結(jié)構(gòu)流程圖圖6-2分支結(jié)構(gòu)流程圖

40第二節(jié)程序的基本結(jié)構(gòu)由順序、分支、循環(huán)三種基本結(jié)構(gòu)構(gòu)成（3）循環(huán)結(jié)構(gòu)：循環(huán)結(jié)構(gòu)則能夠使某些語句或程序段重復(fù)執(zhí)行若干次。如果某些語句或程序段需要在一個固定的位置上重復(fù)操作，使用循環(huán)是最好的選擇。41（3）循環(huán)結(jié)構(gòu)：循環(huán)結(jié)構(gòu)則能夠使某些語句或程序段重復(fù)執(zhí)行若干三條輸入命令的異同

ACCEPT[<提示信息>]TO<內(nèi)存變量>ACCEPT命令只能接受字符型數(shù)據(jù)，不需定界符，輸入完畢按回車鍵結(jié)束。WAIT[<提示信息>][TO<內(nèi)存變量>]WAIT命令只能輸入單個字符，且不需定界符，輸入完畢不需按回車鍵。INPUT[<提示信息>]TO<內(nèi)存變量>

INPUT命令可接受數(shù)值型、字符型、邏輯型、日期型和日期時間型數(shù)據(jù)，如果是字符串，需用定界符，輸入完畢按回車鍵結(jié)束。

42三條輸入命令的異同8分支結(jié)構(gòu)形式有如下三種：1．單向分支單向分支語句，即根據(jù)用戶設(shè)置的條件表達(dá)式的值，決定某一操作是否執(zhí)行?！菊Z句格式】

IF〈條件表達(dá)式〉〈命令行序列〉

ENDIF【語句功能】該語句首先計算〈條件表達(dá)式〉的值，當(dāng)〈條件表達(dá)式〉的值為真時，執(zhí)行〈命令行序列〉；否則，執(zhí)行ENDIF后面的第一條命令。三、分支結(jié)構(gòu)

43分支結(jié)構(gòu)形式有如下三種：三、分支結(jié)構(gòu)9【例6-9】求一元二次方程AX2＋BX＋C＝0的實(shí)根。程序文件名為PROG9.PRG。SETTALKOFFCLEARINPUTTOAINPUTTOBINPUTTOCZ＝B^2-4*A*CIFZ>=0X1=(-B+SQRT(Z))/(2*A)X2=(-B-SQRT(Z))/(2*A)?X1,X2ENDIFSETTALKON44【例6-9】求一元二次方程AX2＋BX＋C＝0的實(shí)根。程序文

2．雙向分支

雙向分支語句，即根據(jù)用戶設(shè)置的條件表達(dá)式的值，選擇兩個操作中的一個來執(zhí)行?！菊Z句格式】

IF〈條件表達(dá)式〉〈命令行序列1〉ELSE〈命令行序列2〉ENDIF【語句功能】

該語句首先計算〈條件表達(dá)式〉的值，當(dāng)〈條件表達(dá)式〉的值為真時，執(zhí)行〈命令行序列1〉中的命令；否則，執(zhí)行〈命令行序列2〉中的命令；執(zhí)行完〈命令行序列1〉或〈命令行序列2〉后都將執(zhí)行ENDIF后面的第一條命令。452．雙向分支11【例6-10】編寫一密碼校驗程序（假設(shè)密碼為ABC）。程序文件名為PROG10.PRG。SETTALKOFFCLEARACCEPT“請輸入您的密碼：”TOAAAIFAAA=”ABC”CLEAR?”歡迎使用本系統(tǒng)！”ELSE?”密碼錯誤！”ENDIFSETTALKON46【例6-10】編寫一密碼校驗程序（假設(shè)密碼為ABC）。程序文

3．多向分支

多向分支語句，即根據(jù)多個條件表達(dá)式的值，選擇執(zhí)行多個操作中的一個對應(yīng)執(zhí)行?！菊Z句格式】

DOCASECASE〈條件表達(dá)式1〉<命令行序列1〉CASE〈條件表達(dá)式2〉<命令行序列2〉……

CASE〈條件表達(dá)式N〉〈命令行序列N〉］［OTHERWISE〈命令行序列N+1〉］

ENDCASE473．多向分支13

【語句功能】

該語句根據(jù)給出的N個〈條件表達(dá)式〉的值，選擇N+1個〈命令行序列〉中的一個執(zhí)行。當(dāng)所有CASE中〈條件表達(dá)式〉的值都是假時，如果有OTHERWISE項，則執(zhí)行〈命令行序列N+1〉，再執(zhí)行ENDCASE后面的第一條命令；否則，直接執(zhí)行ENDCASE后面的第一條命令?！纠?-11】假設(shè)收入（P）與稅率（R）的關(guān)系如下表，編程求稅金。程序文件名為PROG11.PRG。0 P＜800R=0.05 800≤P＜20000.08 2000≤P＜50000.1 P≥5000

48【語句功能】14SETTALKOFFCLEARINPUT“請輸入收入：”TOPDOCASECASEP<800R=0CASEP<2000R=0.05CASEP<5000R=0.08OTHERWISER=0.1ENDCASETAX=P*R?”稅金為：”,TAXSETTALKON49SETTALKOFF15四、循環(huán)結(jié)構(gòu)

1．DOWHILE循環(huán)語句【格式1】DOWHILE<條件表達(dá)式><語句序列>

ENDDO

50四、循環(huán)結(jié)構(gòu)1．DOWHILE循環(huán)語句16【格式2】DOWHILE<條件表達(dá)式><語句序列1>[LOOP]<語句序列2>[EXIT]<語句序列3>

ENDDOLOOP語句：強(qiáng)行返回到循環(huán)開始語句。EXIT語句：強(qiáng)行跳出循環(huán)，接著執(zhí)行ENDDO后的語句

51【格式2】DOWHILE<條件表達(dá)式>LOO【例6-12】編程求1＋2＋3＋……＋100之和。程序文件名為PROG12.PRG。SETTALKOFFCLEARS=0I=1DOWHILEI<=100S=S+II=I+1ENDDO?”1＋2＋3＋……＋100＝”,SSETTALKON52【例6-12】編程求1＋2＋3＋……＋100之和。程序文件名【例6-13】逐條顯示在STUDENT數(shù)據(jù)庫的STUD表中性別為“男”的所有記錄。程序文件名為PROG13.PRG。SETTALKOFFCLEARCLOSEDATABASEALLOPENDATABASESTUDENTUSESTUDDOWHILE.NOT.EOF()IF性別=”男”DISPLAYENDIFSKIPENDDOCLOSEDATABASEALLSETTALKON53【例6-13】逐條顯示在STUDENT數(shù)據(jù)庫的STUD表中性【例6-14】編程顯示STUDENT數(shù)據(jù)庫的STUD表中除“孫業(yè)”以外的所有記錄。程序文件名為PROG14.PRG。SETTALKOFFCLEAR]CLOSEDATABASEALLOPENDATABASESTUDENTUSESTUDDOWHILE.NOT.EOF()IF姓名=”孫業(yè)”

SKIPLOOPENDIFDISPLAYSKIPENDDOCLOSEDATABASEALLSETTALKON54【例6-14】編程顯示STUDENT數(shù)據(jù)庫的STUD表中除“

2．FOR循環(huán)語句

【格式】

FOR<循環(huán)變量>=<初值>TO<終值>[STEP<步長>]

<語句序列1>

[LOOP]

<語句序列2>

[EXIT]

<語句序列3>

ENDFOR/NEXTFOR語句的執(zhí)行流程如右圖所示。

552．FOR循環(huán)語句21使用FOR循環(huán)語句的有關(guān)說明：①省略STEP<步長>，則〈步長〉為默認(rèn)值1；②〈初值〉、〈終值〉和〈步長〉都可以是數(shù)值表達(dá)式，但這些表達(dá)式僅在循環(huán)語句開始執(zhí)行時計算一次。循環(huán)語句執(zhí)行過程中，初值、終值和步長是不會改變的，并由此確定循環(huán)的次數(shù)；③EXIT和LOOP命令可以出現(xiàn)在循環(huán)體內(nèi)。執(zhí)行LOOP命令時，結(jié)束本次循環(huán)，循環(huán)變量增加一個步長值，返回FOR循環(huán)頭判斷循環(huán)條件是否成立。執(zhí)行EXIT命令時,程序跳出循環(huán)，執(zhí)行循環(huán)尾后面的語句。56使用FOR循環(huán)語句的有關(guān)說明：22

3．“指針”型循環(huán)控制語句“指針”型循環(huán)控制語句，即根據(jù)用戶設(shè)置的表中的當(dāng)前記錄指針，決定循環(huán)體內(nèi)語句的執(zhí)行次數(shù)據(jù)?！菊Z句格式】

SCAN［FOR〈條件表達(dá)式〉]〈命令行序列〉

ENDSCAN【語句功能】

該語句在指定的范圍內(nèi)，用數(shù)據(jù)記錄指針來控制循環(huán)次數(shù)。執(zhí)行語句時，首先判斷函數(shù)EOF（）的值，若其值為“真”，則結(jié)束循環(huán)，否則，結(jié)合(條件表達(dá)式)，執(zhí)行(命令行序列)，記錄指針移到指定的范圍和條件內(nèi)的下一條記錄，重新判斷函數(shù)EOF()的值，直到函數(shù)EOF()的值為真時結(jié)束循環(huán)。573．“指針”型循環(huán)控制語句23【例6-18】輸出STUDENT數(shù)據(jù)庫的STUD表中所有男生的姓名和地址。程序文件名為PROG18.PRG。SETTALKOFFCLEARCLOSEDATABASEALLOPENDATABASESTUDENTUSESTUDSCANFOR性別=“男”?姓名,地址ENDSCANCLOSEDATABASEALLSETTALKON58【例6-18】輸出STUDENT數(shù)據(jù)庫的STUD表中所有男生

4．使用循環(huán)語句時應(yīng)注意的幾點(diǎn)（1）DOWHILE和ENDDO、FOR和ENDFOR、SCAN和ENDSCAN必須配對使用。（2）<循環(huán)變量〉應(yīng)是數(shù)值型的內(nèi)存變量或數(shù)組元素。（3）EXIT和LOOP命令嵌入在循環(huán)體內(nèi)，可以改變循環(huán)次數(shù)，但是不能單獨(dú)使用。EXIT的功能是跳出循環(huán)，轉(zhuǎn)去執(zhí)行ENDDO、ENDFOR、ENDSCAN后面的第一條命令；LOOP的功能是轉(zhuǎn)回到循環(huán)的開始處，重新對“條件”進(jìn)行判斷。594．使用循環(huán)語句時應(yīng)注意的幾點(diǎn)25第三節(jié)過程的模塊化

VFP模塊化在具體實(shí)現(xiàn)上提供三種形式，它們是子程序、過程和函數(shù)。一子程序子程序也叫外部過程，是以程序文件（.PRG）的形式單獨(dú)存儲在磁盤上。子程序的結(jié)構(gòu)與一般的程序文件一樣，可以用MODIFYCOMMAND命令來建立、修改、和存盤，擴(kuò)展名也默認(rèn)為.PRG。子程序與其他程序文件的唯一區(qū)別是其末尾或返回處必須有返回語句RETURN。子程序的調(diào)用：DO<程序文件名>60第三節(jié)過程的模塊化VFP模塊化在具體實(shí)現(xiàn)上提供三種形式二、過程(內(nèi)部)

內(nèi)部過程：把多個過程組織在一個文件中(這個文件稱之為過程文件)，或者把過程放在調(diào)用它的程序文件的末尾。過程文件格式為：

PROCEDURE<過程名>[PARAMETER<參數(shù)表>]<命令序列>[RETURN[<表達(dá)式>]]

過程有兩種存放方式：（1）把所有的過程集中寫入一個被稱為過程文件（.prg文件）的磁盤文件中（2）直接把過程寫在調(diào)用它的主程序文件中，主程序被打開時，過程同時被調(diào)入內(nèi)存（調(diào)用時可節(jié)省時間）。（3）如果缺省RETURN，則在過程尾部自動執(zhí)行一條隱含的RETURN命令，若不帶<表達(dá)式>則返回邏輯值.T.。61二、過程(內(nèi)部)內(nèi)部過程：把多個過程組織在一個文【例6-22】建立如