中職教材VF程序設(shè)計程序設(shè)計循環(huán)部分PPT

開始VF語言程序設(shè)計侯真慰電子與計算機技術(shù)學(xué)院計算機科學(xué)與技術(shù)系基礎(chǔ)教研室2010.02上幾次課內(nèi)容的復(fù)習(xí)一、單邊分支

命令格式：IF〈邏輯表達(dá)式〉〈命令語句1〉……分支體

ENDIF

功能：若邏輯表達(dá)式值為“.T.”，執(zhí)行命令語句分支體序列；否則，程序繼續(xù)運行ENDIF以后的語句。條件分支體YESNO

程序流程圖條件YESNO分支體N-S流程圖二、雙邊分支

命令格式：IF〈邏輯表達(dá)式〉〈命令語句〉……分支體1ELSE

〈命令語句〉……分支體2ENDIF

功能：若邏輯表達(dá)式值為“.T.”，執(zhí)行命令分支體1語句序列；否則，執(zhí)行命令分支體2語句序列。然后程序繼續(xù)運行ENDIF以后的語句。條件分支體1YESNO

程序流程圖分支體2條件YESNO分支體1N-S流程圖分支體2條件分支函數(shù)命令格式：IIF（〈邏輯表達(dá)式〉，〈表達(dá)式1〉，〈表達(dá)式2〉）功能：若邏輯表達(dá)式值為“.T.”，則返回表達(dá)式1

的值，否則返回表達(dá)式2

的值返回值：字符、日期、邏輯值或數(shù)值三、多重分支

命令格式：DOCASECASE〈邏輯表達(dá)式1〉

分支體1

CASE〈邏輯表達(dá)式2〉

分支體2…………CASE〈邏輯表達(dá)式N〉

分支體NOTHERWISE

分支體N+1ENDCASE

功能：若邏輯表達(dá)式1值為“.T.”，執(zhí)行命令分支體1語句序列；邏輯表達(dá)式2值為“.T.”，執(zhí)行命令分支體2語句序列；……；若前面的邏輯表達(dá)式值均為“.F.”，就執(zhí)行命令分支體N+1，然后程序繼續(xù)運行ENDCASE

以后的語句。條件1分支體1YN

程序流程圖分支體2條件N條件2分支體N分支體N+1ENDCASE后的語句NNYY條件1YN分支體

1N-S流程圖分支體

2YYNN分支體N分支體N+1條件2條件NN第三節(jié)

循環(huán)結(jié)構(gòu)程序設(shè)計

循環(huán)結(jié)構(gòu)是用于描述重復(fù)執(zhí)行的操作。它利用指定條件的當(dāng)前值來控制程序中某一部分命令序列的重復(fù)執(zhí)行操作，從而達(dá)到自動的、按條件確定的重復(fù)操作的目的。循環(huán)結(jié)構(gòu)三要素

循環(huán)控制變量的初值

循環(huán)的執(zhí)行條件---（控制變量的終值）使循環(huán)趨于結(jié)束的語句

FOR

循環(huán)

DOWHILE

循環(huán)

SCAN

循環(huán)VF中有三種循環(huán)結(jié)構(gòu)語句：一、FOR循環(huán)（計數(shù)型循環(huán)）命令格式：

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

循環(huán)體命令語句

ENDFOR|NEXTFOR〈循環(huán)變量〉=〈初值〉TO〈終值〉[STEP〈步長〉]

循環(huán)體命令語句循環(huán)變量未超越終值循環(huán)體命令語句ENDFORENDFOR后的命令NY初值循環(huán)變量計算初值終值步長值循環(huán)變量

+

步長

循環(huán)變量CLEARSETTALKOFF?“程序:計算1+2+3+4+...+N的值”INPUT“請輸入N的值”TONBB=0FORAA=1TONBB=BB+AAENDFOR?“1+2+3+4+...+N的值為”，BBSETTALKONRETURN

輸入N的值BB=0FORAA=1TON

循環(huán)體命令

BB=BB+AA

輸出累加和BB例：計算1+2+3+4+...+N的值分析：0+1+2+3+4+...+N被加數(shù)加數(shù)

BBAA結(jié)果驗證的方法----圖表法總結(jié)出的規(guī)律:需要重復(fù)(循環(huán))的操作:

BB=BB+AAAA=AA+1(1N)三要素：

1循環(huán)變量AA的初值：

12循環(huán)的執(zhí)行條件：AA<=N3使循環(huán)趨于結(jié)束的語句:AA=AA+1二、DOWHILE循環(huán)（條件循環(huán)）命令格式：DOWHILE〈邏輯表達(dá)式〉

循環(huán)命令語句組

ENDDO

邏輯表達(dá)式（條件）值為真

循環(huán)體命令語句

邏輯表達(dá)式循環(huán)體命令語句ENDDOENDDO后的命令NY功能：系統(tǒng)執(zhí)行到該語句時，首先判斷循環(huán)起始語句中<條件表達(dá)式>的值是否為真，當(dāng)其值為真時執(zhí)行循環(huán)體；其值為假時，退出循環(huán)而執(zhí)行循環(huán)終端語句的后續(xù)語句。CLEARSETTALKOFF?“計算1+2+3+4+...+N的值”

INPUT“請輸入N的值”

TON

BB=0AA=1DOWHILEAA〈=N

BB=BB+AAAA=AA+1ENDDO?“1+2+3+4+...+N的值為”,BB

SETTALKONRETURN

輸入N的值BB=0AA=1滿足AA〈=N循環(huán)體命令

BB=BB+AAAA=AA+1輸出累加和BB例：計算1+2+3+4+...+N的值分析：0+1+2+3+4+...+N被加數(shù)加數(shù)

BBAA總結(jié)出的規(guī)律:需要重復(fù)(循環(huán))的操作:

BB=BB+AAAA=AA+1(1N)三要素：

1循環(huán)變量AA的初值：

12循環(huán)的執(zhí)行條件：AA<=N3使循環(huán)趨于結(jié)束的語句:AA=AA+1

CLEARSETTALKOFFUSE學(xué)生

DOWHILE.NOT.EOF()IF性別=”男”

DISPLAYENDIFSKIPENDDOUSESETTALKONRETURN

例

循環(huán)在數(shù)據(jù)表中的應(yīng)用：逐條顯示在《學(xué)生表》中性別為“男”的學(xué)生的所有記錄內(nèi)容。

打開學(xué)生表滿足.NOT.EOF()性別=”男”YNDISPLAYSKIP關(guān)閉學(xué)生表分析：逐條操作的命令循環(huán)結(jié)構(gòu)(沒到庫尾就一直工作)顯示一條記錄內(nèi)容的命令

DISPLAY性別為“男”的條件

性別=”男”總結(jié)出的規(guī)律:需要重復(fù)(循環(huán))的操作:

判斷性別=”男”

DISPLAYSKIP三要素：

1循環(huán)變量的初值：.T.

2循環(huán)的執(zhí)行條件：.NOT.EOF()=.T.

3使循環(huán)趨于結(jié)束的語句:SKIPh:\vf07課件\vf課件舊\親朋好友錄入模塊.prg**********************************************程序名稱：親朋好友錄入模塊.PRG*功能：錄入模塊*********************************************DOWHILE循環(huán)在數(shù)據(jù)表錄入中的應(yīng)用USEh:\vf07課件\vf課件舊\親朋好友錄1.dbf錄入否="Y"DOWHILE

錄入否="Y"

APPENDBLANK@6,16SAY

“親友情況錄入欄”

@10,10SAY

“請輸入親友的姓名”

GET

姓名

@12,10SAY

“請輸入親友的年齡”

GET

年齡

@14,10SAY

“請輸入親友的生日”

GET

生日

@16,10SAY

“請輸入親友是否黨員”

GET

黨員否

@18,10SAY

“請輸入親友的身高”

GET

身高

@28,20SAY"是否錄入新數(shù)據(jù)(Y/N)?"GET

錄入否

READENDDOUSEh:\vf07課件\vf課件舊\親朋好友錄1.dbfAPPENDBLANK@6,16SAY

“親友情況錄入欄”

@10,10SAY

“請輸入親友的姓名”

GET

姓名

@12,10SAY

“請輸入親友的年齡”

GET

年齡

@14,10SAY

“請輸入親友的生日”

GET

生日

@16,10SAY

“請輸入親友是否黨員”

GET

黨員否

@18,10SAY

“請輸入親友的身高”

GET

身高

READ循環(huán)變量未超越終值命令組ENDFORENDFOR后的命令NY循環(huán)變量

+

步長

循環(huán)變量邏輯表達(dá)式ENDDOENDDO后的命令NY命令組兩種循環(huán)的工作比較DOWHILE循環(huán)FOR循環(huán)LOOPEXIT語句功能示意LOOP語句：強行終止循環(huán)，返回到循環(huán)開始語句。無條件循環(huán)命令循環(huán)變量未超越終值命令組ENDFORENDFOR后的命令NY循環(huán)變量

+

步長循環(huán)變量LOOP邏輯表達(dá)式ENDDOENDDO后的命令NY命令組LOOPLOOPEXIT語句功能示意EXIT語句：強行停止循環(huán)，跳出到循環(huán)后的語句。無條件結(jié)束循環(huán)命令循環(huán)變量未超越終值命令組ENDFORENDFOR后的命令NY循環(huán)變量

+

步長循環(huán)變量EXIT邏輯表達(dá)式ENDDOENDDO后的命令NY命令組EXIT例編程顯示學(xué)生表中除“李寧”以外的所有記錄?？偨Y(jié)出的規(guī)律:需要重復(fù)(循環(huán))的操作:

判斷姓名=”李寧”

則SKIP和LOOPDISPLAYSKIP三要素：

1循環(huán)變量的初值：.T.

2循環(huán)的執(zhí)行條件：.NOT.EOF()=.T.

3使循環(huán)趨于結(jié)束的語句:SKIP分析：逐條操作的命令循環(huán)結(jié)構(gòu)(沒到庫尾就一直工作)顯示一條記錄內(nèi)容的命令

DISPLAY除“李寧”以外的條件的反條件

姓名=“李寧”CLEARSETTALKOFFUSE學(xué)生

DOWHILE.NOT.EOF()

IF姓名=”李寧”

SKIP

LOOPENDIFDISPLAYSKIPENDDOUSESETTALKONRETURN

打開學(xué)生表滿足.NOT.EOF()姓名=”李寧”YNSKIPLOOPDISPLAYSKIP關(guān)閉學(xué)生表

書中P144例9.5

用了一個永真循環(huán)，注意循環(huán)跳出的方法。永真循環(huán)跳出的唯一方法:EXITEXIT

必須存在于循環(huán)結(jié)構(gòu)中的條件結(jié)構(gòu)中三、SCAN循環(huán)（指針型循環(huán)）SCAN循環(huán)是專為操作數(shù)據(jù)表記錄而設(shè)計的循環(huán)。命令格式：

SCAN[<范圍>][FOR<邏輯表達(dá)式>]

循環(huán)體命令行序列

ENDSCAN功能:該語句在指定的范圍內(nèi)，用數(shù)據(jù)記錄指針來控制循環(huán)次數(shù)。執(zhí)行語句時，首先判斷函數(shù)EOF（）的值，若其值為“真”，則結(jié)束循環(huán)；否則，結(jié)合(條件表達(dá)式1)或(條件表達(dá)式2)，執(zhí)行(循環(huán)體命令行序列)，記錄指針移到指定的范圍和條件內(nèi)的下一條記錄，重新判斷函數(shù)EOF()的值，直到函數(shù)EOF()的值為真時結(jié)束循環(huán)。SCAN[<范圍>][FOR<邏輯表達(dá)式>]

循環(huán)體命令在范圍內(nèi)命令組初始記錄指針ENDSCAN后的命令NYLOOPEXIT滿足FOR條件滿足WHILE條件YYNN記錄指針增1CLEARSETTALKOFFUSE學(xué)生SCANFOR性別=“男”

DISPLAYENDSCANUSESETTALKONRETURN例用SCAN語句逐條顯示在《學(xué)生表》中性別為“男”的學(xué)生的所有記錄內(nèi)容。P147例9.8總結(jié)出的規(guī)律:需要重復(fù)(循環(huán))的操作:

判斷性別=”男”

DISPLAY三要素：

1循環(huán)變量的初值：指針指向庫頭

2循環(huán)的執(zhí)行條件：性別=”男”

且未到庫尾

3使循環(huán)趨于結(jié)束的語句:隱含的SKIP分析：逐條操作的命令循環(huán)結(jié)構(gòu)SCAN[ALL]顯示一條記錄內(nèi)容的命令

DISPLAY性別為“男”的條件

FOR性別=”男”CLEARSETTALKOFF預(yù)查姓名=""@5,5SAY"請輸入要查找的親朋姓名"GET預(yù)查姓名READUSEi:\foxpro\親朋好友錄.dbfSCANALLFOR姓名=預(yù)查姓名

DISPLAYENDSCANUSESETTALKONRETURN程序:按條件查找記錄.PRG三種循環(huán)的功能比較DOWHILEFORSCAN循環(huán)的嵌套問題

多重循環(huán)即循環(huán)的嵌套，是在一個循環(huán)結(jié)構(gòu)的循環(huán)體中又包含另一個循環(huán)。我們稱外層循環(huán)為外循環(huán)，被包含的循環(huán)為內(nèi)循環(huán)。嵌套層數(shù)一般沒有限制，但內(nèi)循環(huán)的循環(huán)體必須完全包含在外循環(huán)的循環(huán)體中，不能相互交叉。正確的嵌套關(guān)系如下：

DOWHILE<條件表達(dá)式1>

<語句序列11>DOWHILE<條件表達(dá)式2>

<語句序列21>DOWHILE<條件表達(dá)式3>

<語句序列3>ENDDO

<語句行序列22>ENDDO

<語句行序列12>ENDDO*********************************************程序名稱:九九表.PRG*功能:展示利用FOR語句循環(huán)輸出九九表********************************************1*1=11*2=22*2=41*3=32*3=63*3=91*4=42*4=83*4=124*4=161*5=52*5=103*5=154*5=205*5=251*6=62*6=123*6=184*6=245*6=306*6=361*7=72*7=143*7=214*7=285*7=356*7=427*7=491*8=82*8=163*8=244*8=325*8=406*8=487*8=568*8=641*9=92*9=183*9=274*9=365*9=456*9=547*9=638*9=729*9=81分析1*1=11*2=22*2=41*3=32*3=63*3=91*4=42*4=83*4=124*4=16┇┇┇1~9行第？行：1~i列第3行第3列行乘數(shù)列：被乘數(shù)12341234clearsettalkoffFOR被乘數(shù)=1TO9

列數(shù)=(被乘數(shù)-1)*9FOR乘數(shù)=

1TO被乘數(shù)

行數(shù)=乘數(shù)

@行數(shù),列數(shù)

SAYSTR(被乘數(shù),1)+"X"+STR(乘數(shù),1)+"="+LTRIM(STR(被乘數(shù)*乘數(shù)))ENDFORENDFORsettalkonreturnfor(被乘數(shù)=1TO9)for(乘數(shù)=1TO被乘數(shù)

)輸出被乘數(shù)*乘數(shù)=x第五節(jié)子程序、過程和函數(shù)

結(jié)構(gòu)化程序設(shè)計方法要求將一個大的系統(tǒng)分解成若干個子系統(tǒng)，每個子系統(tǒng)就構(gòu)成一個程序模塊。模塊是一個相對獨立的程序段，它可以為其他模塊所調(diào)用，也可以去調(diào)用其他模塊。將一個應(yīng)用程序劃分成一個個功能相對簡單、單一的模塊程序，不僅有利于程序的開發(fā)，也有利于程序的閱讀和維護(hù)。VFP模塊化在具體實現(xiàn)上提供三種形式，它們是子程序、過程和函數(shù)。主程序與子程序調(diào)用關(guān)系示意圖

一、子程序

子程序也叫外部過程，是以程序文件（.PRG）的形式單獨存儲在磁盤上的。子程序只需錄入一次，就可反復(fù)被調(diào)用執(zhí)行。

1．子程序的結(jié)構(gòu)在VFP中，子程序的結(jié)構(gòu)與一般的程序文件一樣，可以用MODIFYCOMMAND命令來建立、修改、和存盤，擴展名也默認(rèn)為.PRG。

【命令格式】

RETURN[TOMASTER|TO

程序文件名|表達(dá)式]

【命令功能】該命令中止一個程序、過程、或用戶自定義函數(shù)的執(zhí)行，返回上一級調(diào)用程序、最高級調(diào)用程序、另外一個程序或命令窗口?！菊Z句說明】（1）通常程序執(zhí)行到RETURN時，會自動返回到上級調(diào)用程序調(diào)用語句的下一條語句繼續(xù)執(zhí)行。如果是在最高一級主程序中，則返回命令窗口。（2）選用TOMASTER

子句時，則返回最高一級調(diào)用程序，即在命令窗口下，調(diào)用的第一個主程序。（3）TO程序文件名表示程序?qū)⑥D(zhuǎn)向到指定的程序。（4）如選用表達(dá)式，表示將表達(dá)式的值返回調(diào)用程序，通常用于自定義函數(shù)。（5)在程序最后，如果沒有RETURN命令，則程序運行完畢后，將自動默認(rèn)執(zhí)行一個RETURN命令，但過程文件除外。2．子程序的調(diào)用：【命令格式】

DO<程序文件名>|<過程名>［WITH

參數(shù)表］【命令功能】執(zhí)行以<程序文件名>或<過程名>為名的過程?！久钫f明】WITH參數(shù)表子句用來指定傳遞到程序或過程的參數(shù)，在參數(shù)表中列出的參數(shù)可以是表達(dá)式、內(nèi)存變量、常量、字段名或用戶自定義函數(shù)，各參數(shù)間用逗號分隔。

【例】

*

MAIN.PRG******

SETTALKOFF

?”正在執(zhí)行主程序”

DOSUB1

SETTALKON

*SUB1.PRG******

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

RETURN【例】利用子程序方法求M！/(N！*（M-N）！)（M>N）

*main.prg

****子程序sub1.prg*INPUT"請輸入M："TOm

s=1INPUT"請輸入N："TOnFORi=1TOxs=0s=s*ix=mENDFORDOsub1

RETURNss2=sx=nDOsub1s3=sx=m-nDOsub1s4=ss1=s2/(s3*s4)?s1

過程和函數(shù)也都是功能上相對完整和獨立的程序單元，并沒有本質(zhì)上的不同，一般的劃分方法：有返回值的稱為函數(shù)，沒有返回值的稱為過程。引入過程和函數(shù)的目的有三點：

1、模塊化程序設(shè)計模塊是一個功能相對較為完整和獨立的小的程序單元，可以單獨的設(shè)計、調(diào)試和管理。2、復(fù)用性可被多次重復(fù)調(diào)用3、可讀性二、過程和函數(shù)