第5章VisualFoxPro程序的設(shè)計(jì)ppt課件

1、第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)第第5 5第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)程序的建立與維護(hù)程序的建立與維護(hù)5.1程序的流程控制程序的流程控制5.2模塊結(jié)構(gòu)程序設(shè)計(jì)模塊結(jié)構(gòu)程序設(shè)計(jì)5.3調(diào)試程序調(diào)試程序5.4面向?qū)ο蟪绦蛟O(shè)計(jì)的基本概念面向?qū)ο蟪绦蛟O(shè)計(jì)的基本概念5.5第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.1 程序的建立與維護(hù)程序的建立與維護(hù) VFP提供一種程序執(zhí)行方式，這種方式就是預(yù)先把提供一種程序執(zhí)行方式，這種方式就是預(yù)先把需要執(zhí)行的多條命令按一定的結(jié)構(gòu)組成一個(gè)有機(jī)序列以需要執(zhí)行的多條命令按一定的結(jié)構(gòu)組成一個(gè)有機(jī)序列以文件的形

2、式存儲在磁盤上，而用于存儲這些由命令組成文件的形式存儲在磁盤上，而用于存儲這些由命令組成的文件，即為命令文件，又稱為程序文件，這些序列的的文件，即為命令文件，又稱為程序文件，這些序列的設(shè)計(jì)、編碼和調(diào)試的過程就是程序設(shè)計(jì)。設(shè)計(jì)、編碼和調(diào)試的過程就是程序設(shè)計(jì)。5.1.1 5.1.1 程序設(shè)計(jì)的概念程序設(shè)計(jì)的概念第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.1.2 5.1.2 程序的建立及維護(hù)程序的建立及維護(hù)1.1.創(chuàng)建與修改程序文件創(chuàng)建與修改程序文件“文件文件”“新建程序）新建程序）”“新建文件新建文件”命令方式 MODIFY COMMAND 程序文件名菜單方式 第第5章章 Visu

3、al FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)2.2.運(yùn)行程序文件運(yùn)行程序文件菜單方式：菜單方式：（1 1在在Visual FoxProVisual FoxPro系統(tǒng)主菜單下，翻開系統(tǒng)主菜單下，翻開“程序程序菜單，菜單，選擇選擇“運(yùn)行運(yùn)行”。（2 2單擊常用工具欄上的運(yùn)行按鈕單擊常用工具欄上的運(yùn)行按鈕“！”。 命令方式：命令方式：DO DO 程序文件名程序文件名說明：說明：CANCELCANCEL：終止程序運(yùn)行，清除所有的私有變量，返回命令：終止程序運(yùn)行，清除所有的私有變量，返回命令 窗口。窗口。RETURNRETURN：結(jié)束程序執(zhí)行，返回調(diào)用它的上級程序，若無上：結(jié)束程序執(zhí)行，返回調(diào)用它的上級程序，若

4、無上級程序則返回命令窗口。級程序則返回命令窗口。QUITQUIT：結(jié)束程序執(zhí)行并退出：結(jié)束程序執(zhí)行并退出Visual FoxProVisual FoxPro系統(tǒng)，返回操作系統(tǒng)，返回操作系統(tǒng)。系統(tǒng)。 第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)在運(yùn)行程序時(shí)，系統(tǒng)提供了兩種方式：先編譯后執(zhí)行和一邊編譯一邊執(zhí)行。先編譯后執(zhí)行是在編輯窗口打開要編譯的程序，然后在菜單“程序中選定“編譯”。5.1.3 5.1.3 程序的編譯程序的編譯1. 每行只能寫一條命令，每條命令以回車換行作為結(jié)束標(biāo)志；2. 一條命令一行寫不下時(shí)，可以分多行輸入，在未輸入完的數(shù)據(jù)后加分號，然后回車換行，系統(tǒng)會把此行作為前一

5、行的續(xù)行；3. “*”，“&”，“NOTE是用來添加程序說明或注釋信息的命令；“*”及“NOTE只能放在一行的前面，而“&”可以放在前面或后面。5.1.4 5.1.4 編程時(shí)的一般規(guī)則編程時(shí)的一般規(guī)則第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.1.5 5.1.5 簡單的輸入輸出命令簡單的輸入輸出命令(1) ACCEPT命令格式 ：accept to 功能：在屏幕上顯示提示信息，等待用戶輸入一個(gè)字符串，賦值給一個(gè)內(nèi)存變量注意：該命令只能接受字符型常量，輸入一個(gè)字符串不必加定界符，否則定界符也作為數(shù)據(jù)的一部分；按回車鍵后，程序繼續(xù)執(zhí)行。第第5章章 Visual Fo

6、xPro 程序設(shè)計(jì)程序設(shè)計(jì)5.1.5 5.1.5 簡單的輸入輸出命令簡單的輸入輸出命令例例5.1：要求用戶從鍵盤上輸入用戶名，然后把輸入的用戶名：要求用戶從鍵盤上輸入用戶名，然后把輸入的用戶名顯示出來。顯示出來。ACCEPT 請輸入用戶名：請輸入用戶名： TO NAME?NAME+你還好嗎？你還好嗎？第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)(2) INPUT命令格式：input to 功能：與accept相似，不同的是能接受字符型、數(shù)字型、日期型和邏輯型數(shù)據(jù)。說明：除輸入數(shù)值型數(shù)據(jù)外，其他幾種類型的數(shù)據(jù)一律使用定界符；輸入的信息可以是表達(dá)式，input命令有計(jì)算功能。第第5章章

7、 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)例例5.2：求任意兩數(shù)之和。：求任意兩數(shù)之和。INPUT 請輸入一個(gè)數(shù)請輸入一個(gè)數(shù)x： TO XINPUT 請輸入另一個(gè)數(shù)請輸入另一個(gè)數(shù)y： TO Y?X+Y第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)(3) WAIT(3) WAIT命令命令 【格式】【格式】WAIT WAIT T0 T0 WindowsNowait TIMEOUTWindowsNowait TIMEOUT 【功能】等待用戶從鍵盤上輸入一個(gè)字符存入指定變量中?！竟δ堋康却脩魪逆I盤上輸入一個(gè)字符存入指定變量中。注意：注意：WAITWAIT命令響應(yīng)速度快，它只接受一個(gè)字符

8、，不需用戶命令響應(yīng)速度快，它只接受一個(gè)字符，不需用戶鍵入回車鍵。鍵入回車鍵。例例5.35.3：在命令窗口輸入下列命令：在命令窗口輸入下列命令： Wait “ Wait “輸入有誤，請重新輸入輸入有誤，請重新輸入 window timeout 5 window timeout 5第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)格式：格式： SAY SAY GET GET READ SAVECYCLETIMEOUT READ SAVECYCLETIMEOUT功能：在屏幕指定的坐標(biāo)位置上顯示提示或輸入數(shù)據(jù)。功能：在屏幕指定的坐標(biāo)位置上顯示提示或輸入數(shù)據(jù)。注意：注意： ：該變量應(yīng)在其前面定義過

9、、并賦初值；：該變量應(yīng)在其前面定義過、并賦初值； 初值決定了該變量的類型和寬度。初值決定了該變量的類型和寬度。 READ READ 一般與一般與GET GET 聯(lián)合起來用：聯(lián)合起來用：當(dāng)有當(dāng)有READREAD時(shí)，時(shí)， GET GET 的內(nèi)容可以從鍵盤上修改；的內(nèi)容可以從鍵盤上修改；沒有沒有READREAD時(shí)，時(shí)，GET GET 后的變量只能顯示內(nèi)容，不能修改；后的變量只能顯示內(nèi)容，不能修改；一個(gè)一個(gè)READREAD可以修改它前面的多個(gè)可以修改它前面的多個(gè)GETGET項(xiàng)的內(nèi)容，但它可以由項(xiàng)的內(nèi)容，但它可以由CLEARGETSCLEARGETS命令隔斷。命令隔斷。 第第5章章 Visual Fox

10、Pro 程序設(shè)計(jì)程序設(shè)計(jì)例5.4：name=space(8) 5,10 say 請輸入學(xué)生姓名 get name read第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)3 3格式輸出語句格式輸出語句 無論是內(nèi)存變量還是字段變量都可以使用?或?命令輸出，這種輸出方式簡單，但是不能按照用戶指定的位置輸出。格式輸出語句能按用戶的要求來設(shè)計(jì)屏幕格式，使之美觀、方便。【格式】 SAY 【功能】 從指定的行、列號開始輸出表達(dá)式的值。【說明】 (1) 可以是常量、字段變量及由它們組成的表達(dá)式。 (2) 定位輸出時(shí)，一次只能輸出一個(gè)表達(dá)式。 第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)3

11、 3格式輸出語句格式輸出語句例例5.5： 8, 18 SAY * 數(shù)據(jù)表操作命令菜單數(shù)據(jù)表操作命令菜單 * 9, 18 SAY 1.打開工作數(shù)據(jù)表打開工作數(shù)據(jù)表 10, 18 SAY 2. 增加數(shù)據(jù)表記錄增加數(shù)據(jù)表記錄 11, 18 SAY 3. 刪除數(shù)據(jù)表記錄刪除數(shù)據(jù)表記錄 12, 18 SAY 4. 修改數(shù)據(jù)表記錄修改數(shù)據(jù)表記錄 13, 18 SAY 5. 打印數(shù)據(jù)表記錄打印數(shù)據(jù)表記錄 14, 18 SAY 6. 關(guān)閉工作數(shù)據(jù)表關(guān)閉工作數(shù)據(jù)表 CHOICE=SPACE(1) 16, 28 SAY 請選擇相應(yīng)代碼：請選擇相應(yīng)代碼： GET CHOICEREAD18, 28 SAY 您選擇的是

12、您選擇的是: + CHOICE第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)4 4畫圖命令畫圖命令【格式】 TODOUBLEPATTERN PEN線寬代號STYLE顏色對【功能】畫一個(gè)矩形，并通過矩形的四個(gè)角的曲度，使矩形變成橢圓或圓?！菊f明】 DOUBLE表示雙線的矩形 PATTERN后的圖案代號是： 0一白色 1一黑色 2一橫線 3一豎線 4一左斜線 5一右斜線 6一網(wǎng)格線 7一交叉線 PEN的線寬代號為0-6，數(shù)字越大，線越寬。 STYLE指定四角曲度，值為0-99。但必須寫成字符型。99曲度最大， 顏色對：由兩個(gè)顏色代碼組成，如：RG、GB、R+、G+、B+等例5.6：畫一個(gè)

13、紅色的橢圓圖形。 2,10 TO 12,29 COLOR R+ STYLE 99第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)（1會話狀態(tài)設(shè)置命令【格式】 SET TALK ON/OFF 【功能】 FoxPro在執(zhí)行命令時(shí)是否向用戶提供返回信息，ON 表示向用戶返回信息，OFF表示否。（2設(shè)置狀態(tài)欄狀態(tài)命令【格式】SET STATUS BAR ON/OFF【功能】設(shè)置FoxPro屏幕底部狀態(tài)欄是否顯示，OFF不顯示。 5 5狀態(tài)設(shè)置命令狀態(tài)設(shè)置命令 第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)【格式】SET COLOR TO ,【功能】該命令設(shè)置標(biāo)準(zhǔn)色彩與增強(qiáng)色彩。其中，

14、一個(gè)顏色對由兩個(gè)顏色代碼組成，第一個(gè)指定前景文本顏色，第二個(gè)指定背景顏色，兩者之間用斜杠（/）分開。如：W/B產(chǎn)生藍(lán)底白字。 如：SET COLOR TO W/B 一個(gè)顏色對也可用一個(gè)包含6個(gè)參數(shù)的RGB( )定義，前3個(gè)值為前景色，后3個(gè)值為背景色，取值范圍為0255 。6 6設(shè)置屏幕顏色命令設(shè)置屏幕顏色命令 第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)【格式】 TEXT 文本行 ENDTEXT【功能】把文本輸出到屏幕或活動窗口。7 7文本輸出命令文本輸出命令 【格式】CLEAR 【功能】清除屏幕信息語句。 8 8清屏命令清屏命令 第第5章章 Visual FoxPro 程序設(shè)計(jì)

15、程序設(shè)計(jì)5.2 程序的流程控制程序的流程控制 Visual FoxPro系統(tǒng)提供的命令豐富，且功能強(qiáng)大，把這些命令和程序設(shè)計(jì)語句有效地組織在一起，就形成了實(shí)現(xiàn)某一特定功能的程序。 Visual FoxPro系統(tǒng)的程序有兩個(gè)特點(diǎn)：一是程序控制流模式，由順序、分支、循環(huán)三種基本結(jié)構(gòu)構(gòu)成。二是面向?qū)ο罂梢暬慕Y(jié)構(gòu)程序模塊，在每個(gè)模塊的內(nèi)部也是由程序控制流組成。常見的控制結(jié)構(gòu)如下： 第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)程序的程序的3種基本結(jié)構(gòu)種基本結(jié)構(gòu) 一種計(jì)算機(jī)語言的程序主體由3種基本結(jié)構(gòu)組成：順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)

16、 順序結(jié)構(gòu)是一種順序結(jié)構(gòu)是一種線形結(jié)構(gòu)，是最基本線形結(jié)構(gòu)，是最基本的程序結(jié)構(gòu)，它是按的程序結(jié)構(gòu)，它是按照命令或語句的排列照命令或語句的排列順序，依次執(zhí)行。順序，依次執(zhí)行。 5.2.1 5.2.1 順序結(jié)構(gòu)順序結(jié)構(gòu) A B C N第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)例例5.7：變量的初始化和變量的賦值。：變量的初始化和變量的賦值。SET TALK OFF STORE 0 TO X,Y,ZA=3B=A+1C=A*B? X, Y, Z? A, B, C SET TALK ON5.2.1 5.2.1 順序結(jié)構(gòu)順序結(jié)構(gòu)第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)例例5.8

17、：從鍵盤輸入圓的半徑：從鍵盤輸入圓的半徑R，通過計(jì)算圓面積公式，通過計(jì)算圓面積公式R2計(jì)計(jì)算出圓的面積算出圓的面積S，最后輸出該圓的面積，最后輸出該圓的面積S。 CLEAR INPUT 圓的半徑圓的半徑R= TO R S=3.1416*R*R ? 圓的面積圓的面積S=,S RETURN 【例】編寫一個(gè)求梯形面積的程序?！纠烤帉懸粋€(gè)求梯形面積的程序。 5.2.1 5.2.1 順序結(jié)構(gòu)順序結(jié)構(gòu)第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)1、 單分支選擇結(jié)構(gòu)格式： IF條件表達(dá)式 語句序列 EDNIF功能：條件表達(dá)式的值為真（.T.）則執(zhí)行“語句序列”， 否則為假（.F.）則直接執(zhí)行E

18、DNIF后續(xù)語句。條件真假語句序列5.2.2 5.2.2 選擇結(jié)構(gòu)選擇結(jié)構(gòu)第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)例例5.9：從鍵盤輸入一個(gè)數(shù)，若該數(shù)能被：從鍵盤輸入一個(gè)數(shù)，若該數(shù)能被3或或7整除，則輸出該整除，則輸出該數(shù)的平方值。數(shù)的平方值。Input “請輸入一個(gè)數(shù)：請輸入一個(gè)數(shù)：” to xIf int(x/3)=x/3 or int(x/7)=x/7?x*xEndif5.2.2 5.2.2 選擇結(jié)構(gòu)選擇結(jié)構(gòu)第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)2、雙分支選擇結(jié)構(gòu)格式：IF條件表達(dá)式語句序列1ELSE語句序列2ENDIF功能：表達(dá)式為真，則執(zhí)行“語句序列

19、1”，再執(zhí)行EDNIF的后續(xù)語句；為假，則執(zhí)行“語句序列2”，再執(zhí)行EDNIF的后續(xù)語句。條件真假語句序列1語句序列25.2.2 5.2.2 選擇結(jié)構(gòu)選擇結(jié)構(gòu)第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)注意：注意：(1) IF(1) IF和和ENDIFENDIF必須成對使用，而必須成對使用，而ELSEELSE可選?？蛇x。(2) IF(2) IF、ELSEELSE、ENDIFENDIF必須各占一行。必須各占一行。(3) (3) 可以為關(guān)系表達(dá)式、邏輯表達(dá)式?？梢詾殛P(guān)系表達(dá)式、邏輯表達(dá)式。(4)(4)在語句序列在語句序列1 1和語句序列和語句序列2 2中可以嵌套中可以嵌套IFIF語句。

20、語句。5.2.2 5.2.2 選擇結(jié)構(gòu)選擇結(jié)構(gòu)第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)例5.10：從鍵盤輸入一個(gè)自然數(shù)，若是偶數(shù)則輸出“偶數(shù)”，否則輸出“奇數(shù)”。Input 請輸入一個(gè)數(shù)： to xIf mod(x,2)=0 ?x為偶數(shù)！Else ?x為奇數(shù)！Endif5.2.2 5.2.2 選擇結(jié)構(gòu)選擇結(jié)構(gòu)第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)【練習(xí)】計(jì)算下列分段函數(shù)。5.2.2 5.2.2 選擇結(jié)構(gòu)選擇結(jié)構(gòu)2+ 7= 5XXYXX第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)例例5.115.11：根據(jù)從鍵盤輸入學(xué)號在：根據(jù)從鍵盤輸入學(xué)號在stud

21、stud表中進(jìn)行查找，找到則表中進(jìn)行查找，找到則顯示該學(xué)生的學(xué)號、姓名、入學(xué)成績；找不到，則顯示顯示該學(xué)生的學(xué)號、姓名、入學(xué)成績；找不到，則顯示“無無此學(xué)號此學(xué)號”。use studuse stud Accept Accept 請輸入學(xué)號：請輸入學(xué)號： to xh to xhlocate for locate for 學(xué)號學(xué)號=xh=xhif found()if found() ?學(xué)號學(xué)號:+:+學(xué)號學(xué)號 ?姓名姓名:+:+姓名姓名 ?入學(xué)成績?nèi)雽W(xué)成績:,:,入學(xué)成績?nèi)雽W(xué)成績elseelse ?無此學(xué)號！無此學(xué)號！ endifendifuseuse5.2.2 5.2.2 選擇結(jié)構(gòu)選擇結(jié)構(gòu)第第5

22、章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)例例5.125.12：編寫程序完成以下功能：當(dāng)通過鍵盤輸入：編寫程序完成以下功能：當(dāng)通過鍵盤輸入1 1時(shí)顯示時(shí)顯示studstud表中男同學(xué)的記錄；輸入表中男同學(xué)的記錄；輸入2 2時(shí)顯示女同學(xué)的記錄；若輸入時(shí)顯示女同學(xué)的記錄；若輸入其他符號時(shí)則顯示其他符號時(shí)則顯示“輸入的數(shù)據(jù)不合法！輸入的數(shù)據(jù)不合法！”。clearclearset talk offset talk offaccept accept 請輸入查看記錄性別，男請輸入查看記錄性別，男-1-1，女，女-2-2： to sex to sexuse studuse studif sex=1i

23、f sex=1 顯示學(xué)生表中男同學(xué)的記錄顯示學(xué)生表中男同學(xué)的記錄elseelse 判斷輸入數(shù)據(jù)是否為判斷輸入數(shù)據(jù)是否為22，或其他符號，或其他符號endifendifuse use set talk on set talk on list for list for 性別性別=男男 第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)例例5.125.12：編寫程序完成以下功能：當(dāng)通過鍵盤輸入：編寫程序完成以下功能：當(dāng)通過鍵盤輸入1 1時(shí)顯示時(shí)顯示studstud表中男同學(xué)的記錄；輸入表中男同學(xué)的記錄；輸入2 2時(shí)顯示女同學(xué)的記錄；若輸入時(shí)顯示女同學(xué)的記錄；若輸入其他符號時(shí)則顯示其他符號時(shí)則顯

24、示“輸入的數(shù)據(jù)不合法！輸入的數(shù)據(jù)不合法！”。clearclearset talk offset talk offaccept accept 請輸入查看記錄性別，男請輸入查看記錄性別，男-1-1，女，女-2-2： to sex to sexuse studuse studif sex=1if sex=1 顯示學(xué)生表中男同學(xué)的記錄顯示學(xué)生表中男同學(xué)的記錄elseelse 判斷輸入數(shù)據(jù)是否為判斷輸入數(shù)據(jù)是否為22，或其他符號，或其他符號endifendifuse use set talk on set talk on if sex=2 list for 性別性別=女女 else wait 輸入數(shù)據(jù)不

25、合法輸入數(shù)據(jù)不合法 windowendif 第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)3、多分支選擇結(jié)構(gòu)DOCASEENDCASE分支結(jié)構(gòu)格式：DOCASECASE條件表達(dá)式1語句序列1CASE條件表達(dá)式2語句序列2CASE條件表達(dá)式語句序列nOTHERWISE語句序列n+1ENDCASE5.2.2 5.2.2 選擇結(jié)構(gòu)選擇結(jié)構(gòu)Y條件條件1條件條件n條件條件2Endcase的下一條命令的下一條命令命令序列命令序列1命令序列命令序列n命令序列命令序列2命令序列命令序列n+1YYNNNN第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)注意：注意：（1DO CASE ENDCA

26、SE 必須配對使用，必須配對使用，DO CASE與第一個(gè)與第一個(gè)CASE條件表達(dá)式之間不應(yīng)有任何條件表達(dá)式之間不應(yīng)有任何命令。命令。（2）條件表達(dá)式可以是各種表達(dá)式或函數(shù)的組合，）條件表達(dá)式可以是各種表達(dá)式或函數(shù)的組合，其值必須是邏輯值。其值必須是邏輯值。（3）命令行序列可以由一個(gè)或多個(gè)命令組成，可以）命令行序列可以由一個(gè)或多個(gè)命令組成，可以是條件控制語句組成的嵌套結(jié)構(gòu)。是條件控制語句組成的嵌套結(jié)構(gòu)。（4DO CASE ENDCASE 命令，每次最多只能執(zhí)命令，每次最多只能執(zhí)行一個(gè)命令行序列。在多個(gè)行一個(gè)命令行序列。在多個(gè)CASE項(xiàng)的條件表達(dá)項(xiàng)的條件表達(dá)式值為真時(shí)，只執(zhí)行第一個(gè)條件表達(dá)式值為真

27、式值為真時(shí)，只執(zhí)行第一個(gè)條件表達(dá)式值為真的命令行序列，然后執(zhí)行的命令行序列，然后執(zhí)行ENDCASE的后面的第一的后面的第一條命令。條命令。5.2.2 5.2.2 選擇結(jié)構(gòu)選擇結(jié)構(gòu)第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)例例5.135.13：根據(jù)輸入：根據(jù)輸入的學(xué)生成績判斷：的學(xué)生成績判斷：1009010090：優(yōu)秀：優(yōu)秀89-8089-80：良好：良好79-7079-70：中等：中等69-6069-60：及格：及格59-059-0：不及格：不及格input input 請輸入一個(gè)學(xué)生的成績請輸入一個(gè)學(xué)生的成績: : to xto xdo case do case case x=

28、90 and x=90 and x=80 and x=80 and x=70 and x=70 and x=60 and x=60 and x=0 and x=0 and x60 y= y=不及格不及格 otherwise otherwise y= y=輸入的數(shù)據(jù)必須在輸入的數(shù)據(jù)必須在100100以內(nèi)！以內(nèi)！ endcaseendcase?y?y第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)【練習(xí)】求下列函數(shù)的值?！揪毩?xí)】求下列函數(shù)的值。X的值通過鍵盤輸入。的值通過鍵盤輸入。5.2.2 5.2.2 選擇結(jié)構(gòu)選擇結(jié)構(gòu)Y=2X-1 (X0)3X+5 (0X5)X+1 (X5)第第5章章

29、Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 1. DO WHlLEENDDO循環(huán)循環(huán) 語句格式：語句格式： DO WHILE LOOP EXIT ENDDO功能：有條件連續(xù)地重復(fù)執(zhí)行功能：有條件連續(xù)地重復(fù)執(zhí)行DO WHILE與與ENDDO之間的語句序列，直到之間的語句序列，直到為為假或因執(zhí)行假或因執(zhí)行EXIT語句而結(jié)束。語句而結(jié)束。條件條件.F.循環(huán)體循環(huán)體 ENDDO后的語句.T.條件條件第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)功能說明：功能說明：（1 1系統(tǒng)執(zhí)行該語句時(shí)，先判斷循環(huán)開始系統(tǒng)執(zhí)行該語句時(shí)，先判斷循環(huán)開始DO WHILE

30、DO WHILE的條件是否成立，的條件是否成立， 如果條件為真，則執(zhí)行循環(huán)體中的語句序列。當(dāng)執(zhí)行到如果條件為真，則執(zhí)行循環(huán)體中的語句序列。當(dāng)執(zhí)行到ENDDOENDDO時(shí)，返回時(shí)，返回到到DO WHILEDO WHILE，再次判斷條件是否為真，以確定是否再次執(zhí)行循環(huán)體。，再次判斷條件是否為真，以確定是否再次執(zhí)行循環(huán)體。若條件為假，則結(jié)束循環(huán)若條件為假，則結(jié)束循環(huán) ，執(zhí)行，執(zhí)行ENDDOENDDO后面的語句。后面的語句。 如果第一次判斷如果第一次判斷條件時(shí)，條件即為假，則循環(huán)體一次都不執(zhí)行，這就是稱為條件時(shí)，條件即為假，則循環(huán)體一次都不執(zhí)行，這就是稱為“先判斷先判斷后執(zhí)行后執(zhí)行的語句。的語句。（2

31、 2循環(huán)體中的循環(huán)體中的LOOPLOOP是可選項(xiàng)。遇到是可選項(xiàng)。遇到LOOPLOOP時(shí)，不再執(zhí)行后面的語句，時(shí)，不再執(zhí)行后面的語句，轉(zhuǎn)回轉(zhuǎn)回DO WHILEDO WHILE處重新判斷。其作用相當(dāng)于一個(gè)特殊的處重新判斷。其作用相當(dāng)于一個(gè)特殊的“短路短路返回控返回控制。制。（3 3循環(huán)體中的循環(huán)體中的EXITEXIT也是可選項(xiàng)。遇到它時(shí)便無條件地退出循環(huán)，轉(zhuǎn)也是可選項(xiàng)。遇到它時(shí)便無條件地退出循環(huán)，轉(zhuǎn)到到ENDDOENDDO后面的語句。其作用相當(dāng)于一個(gè)緊急出口。后面的語句。其作用相當(dāng)于一個(gè)緊急出口。（4 4通常通常LOOPLOOP或或EXITEXIT出現(xiàn)在循環(huán)體內(nèi)嵌套的分支語句中，根據(jù)條件來出現(xiàn)在循

32、環(huán)體內(nèi)嵌套的分支語句中，根據(jù)條件來決定是決定是LOOPLOOP回去，還是回去，還是EXITEXIT出去。出去。第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 例例5.14：在屏幕上換行顯示字符串：在屏幕上換行顯示字符串OK20次。次。cleari=1do while i=20?ok!i=i+1Enddoreturn循環(huán)次數(shù)循環(huán)次數(shù)循環(huán)前循環(huán)前i值值循環(huán)后循環(huán)后i值值112223202021第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) DO WHILE DO WHILE 語句之前一定要有設(shè)置循環(huán)

33、變量初語句之前一定要有設(shè)置循環(huán)變量初 值的語句。值的語句。 循環(huán)體內(nèi)一定要有修改循環(huán)變量的語句，否則循環(huán)體內(nèi)一定要有修改循環(huán)變量的語句，否則 就會出現(xiàn)死循環(huán)。就會出現(xiàn)死循環(huán)。注意注意第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 例例5.15：求自然數(shù)：求自然數(shù)1至至4的和。的和。 分析算法分析算法:1. i=1 , s=0 ;2. 累加第累加第 i 個(gè)數(shù)個(gè)數(shù)3. 第第i個(gè)數(shù)加個(gè)數(shù)加1 4. 當(dāng)當(dāng) i= 4 重復(fù)做重復(fù)做2 、3；5. ? s 。s= s+i ;i= i+1 ;第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3

34、5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 例例5.15：求自然數(shù)：求自然數(shù)1至至4的和。的和。 S=0i=1DO WHILE i=4 S=S+i i=i+1ENDDO? S第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) INPUT 請輸入請輸入N的值的值: TO N S=0i=1DO WHILE i=N S=S+i i=i+1ENDDO? S 若求自然數(shù)若求自然數(shù)1 1至至N N的和呢？的和呢？第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) INPUT 請輸入請輸入N的值的值: TO N S=0i=1DO

35、WHILE i=N S=S+i i=i+1ENDDO? S 若求自然數(shù)若求自然數(shù)1 1至至N N的積呢？的積呢？S=1S=1S=SS=S* *i i第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 例例5.16：求：求1,100內(nèi)所有能被內(nèi)所有能被3或被或被5整除的數(shù)的個(gè)數(shù)。整除的數(shù)的個(gè)數(shù)。 n=0i=1DO WHILE i=100 IF MOD(i,3)=0 .OR. MOD(i,5)=0 ? i n=n+1 endif i=i+1ENDDO? 這樣的數(shù)共有這樣的數(shù)共有,n, 個(gè)個(gè)第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.

36、3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 例例5.17：閱讀程序，并說出程序的運(yùn)行結(jié)果：閱讀程序，并說出程序的運(yùn)行結(jié)果 IF i=3 LOOPENDIF程序結(jié)果程序結(jié)果23456程序結(jié)果程序結(jié)果2456i=1DO WHILE i=5 i=i+1 ENDDO ? i? “E”EE第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 2. 2. 計(jì)數(shù)循環(huán)計(jì)數(shù)循環(huán)forfor循環(huán)）循環(huán)）語句格式：語句格式： FOR FOR 循環(huán)變量循環(huán)變量 TO TO STEP STEP 1 LOOPLOOP 2 EXITEXIT 3 ENDFOR | NEXT ENDFOR |

37、 NEXT 功能：將功能：將FORENDFORFORENDFOR循環(huán)中的循環(huán)中的 執(zhí)行指定的次數(shù)。執(zhí)行指定的次數(shù)。循環(huán)體循環(huán)體第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 例例5.18：求：求1100之間的奇數(shù)之和。之間的奇數(shù)之和。 s=0for i=1 to 100 step 2 s=s+iendfor? s考慮：如何求考慮：如何求1N的偶數(shù)或奇數(shù)之和、的偶數(shù)或奇數(shù)之和、N的階乘？的階乘？第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 例例5.19：閱讀程序，寫出程序運(yùn)行結(jié)果：閱讀程序，寫出

38、程序運(yùn)行結(jié)果S=0 FOR K=1 TO 10 STEP 2 S=S+K ENDFOR ? SIF K=7LOOPENDIF若改成若改成EXITEXIT呢？呢？第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 例例5.20：找出：找出100999之間的所有之間的所有 “水仙花數(shù)水仙花數(shù)”（三位數(shù)中各位數(shù)的立方和等于該（三位數(shù)中各位數(shù)的立方和等于該數(shù)本身）。數(shù)本身）。clearfor i=100 to 999 a=int(i/100) b=int(mod(i,100)/10) c=i%10 if i=a3+b3+c3 ?i endifendforr

39、eturn第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 3SCAN.ENDSCAN循環(huán)循環(huán)語句格式：語句格式： SCAN FOR LOOP EXIT ENDSCAN 功能：在指定的范圍內(nèi)，掃描滿足給定條件的記錄，執(zhí)行相功能：在指定的范圍內(nèi)，掃描滿足給定條件的記錄，執(zhí)行相應(yīng)的語句。應(yīng)的語句。循環(huán)體循環(huán)體第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 例例5.215.21：對：對studstud表分別統(tǒng)計(jì)少數(shù)民族男、女學(xué)生的人數(shù)。表分別統(tǒng)計(jì)少數(shù)民族男、女學(xué)生的人數(shù)。clearclearstore

40、0 to x,ystore 0 to x,yuse stud use stud Scan for Scan for 少數(shù)民族否少數(shù)民族否 if if 性別性別=男男 x=x+1 x=x+1dispdisp else else y=y+1 y=y+1dispdisp endif endifendscanendscan ? ? 少數(shù)民族的男生有：少數(shù)民族的男生有：, x, , x, 人人 ? ? 少數(shù)民族的女生有：少數(shù)民族的女生有：+str(y,2)+str(y,2)+人人 use use return return第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循

41、環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 對數(shù)據(jù)表掃描時(shí)三種循環(huán)的等價(jià)格式對數(shù)據(jù)表掃描時(shí)三種循環(huán)的等價(jià)格式計(jì)數(shù)循環(huán)：計(jì)數(shù)循環(huán)： n=RECCOUNT() n=RECCOUNT() FOR i=1 TO n FOR i=1 TO n GO i GO i ENDFOR ENDFOR條件循環(huán)：條件循環(huán)：DO WHILE NOT EOF()DO WHILE NOT EOF() SKIP SKIP ENDDO ENDDO表文件掃描循環(huán)：表文件掃描循環(huán)：SCAN FOR ENDSCAN第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 思考題：分別使用三種循環(huán)結(jié)構(gòu)顯示思考題：分別使用三

42、種循環(huán)結(jié)構(gòu)顯示stud表中所有男性的記錄表中所有男性的記錄第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 循環(huán)體內(nèi)又設(shè)置循環(huán)的情況稱為多重循環(huán)，又稱為循環(huán)嵌套。循環(huán)體內(nèi)又設(shè)置循環(huán)的情況稱為多重循環(huán)，又稱為循環(huán)嵌套。內(nèi)外循環(huán)的層次必須分明，不允許有交叉現(xiàn)象出現(xiàn)。內(nèi)外循環(huán)的層次必須分明，不允許有交叉現(xiàn)象出現(xiàn)。循環(huán)結(jié)構(gòu)可以與分支結(jié)構(gòu)嵌套，同樣不允許有交叉現(xiàn)象出現(xiàn)。循環(huán)結(jié)構(gòu)可以與分支結(jié)構(gòu)嵌套，同樣不允許有交叉現(xiàn)象出現(xiàn)。 F O R I F F O R S C A N D O W H I L E D O C A S E E N D F O R E N D

43、 I F E N D F O R E N D S C A N E N D D O E N D C A S E 圖6 . 7 嵌 套 不 允 許 交 叉 以下交以下交叉情形叉情形不允許不允許出現(xiàn)：出現(xiàn)： 第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.2.3 5.2.3 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu) 程序程序5.225.22：求：求 s=1!+2!+100! s=1!+2!+100!s=0s=0n=1n=1Do while n=100Do while n=100 i=1 i=1 sub=1 sub=1 Do while i=n Do while i=n sub = sub sub = sub *

44、 *i i i=i+1 i=i+1 Enddo Enddo s=s+sub s=s+sub n=n+1 n=n+1EnddoEnddo?S1+S2+S100 =,s?S1+S2+S100 =,ss=0for n=1 to 100 sub=1 for i=1 to n sub = sub *i Endfor s=s+sub Endfor?s用用for語句改進(jìn)程序如下：語句改進(jìn)程序如下：第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)5.5 面向?qū)ο蟪绦蛟O(shè)計(jì)的基本概念面向?qū)ο蟪绦蛟O(shè)計(jì)的基本概念面向?qū)ο蟪绦蛟O(shè)計(jì)使用可視化界面方式，以“對象為基本操作單位，通過對“對象的屬性、事件、和方法進(jìn)行處

45、理來完成程序的設(shè)計(jì)。第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì) （1類class） 類是一組具有相同特性的對象的抽象定義。類是具有相同或相似特征的對象的抽象，對象是類的具體的實(shí)例。類可以具有子類，子類可以繼承父類所有的屬性和方法，也可以根據(jù)需要加入新屬性和方法。第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì) （2對象object） 對象是類的一個(gè)實(shí)例，是面向?qū)ο蟪绦蛟O(shè)計(jì)方法中最基本的概念，是構(gòu)成程序的基本單位和運(yùn)行實(shí)體。對像是用來描述客觀事物的一個(gè)實(shí)體，由一組表示其靜態(tài)特征的數(shù)據(jù)即屬性和可執(zhí)行的一組操作方法程序組成。第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)

46、計(jì) （3屬性property） 屬性是用來描述和反映對象特性的參數(shù)，屬性定義了對象的特征或某一方面的行為，對象中的數(shù)據(jù)就保存在屬性中。 （4方法method） 是對象能夠執(zhí)行的一個(gè)操作，是一段完成一個(gè)具體功能程序代碼集合。對象建立后，可以在應(yīng)用程序的任意位置調(diào)用該對象所具有的方法。第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì) （5事件event） 事件是用戶或系統(tǒng)的動作所引發(fā)的事情，由用戶或者系統(tǒng)的操作而激活。通常包括鍵盤“事件和鼠標(biāo)“事件”，如單擊鼠標(biāo)就發(fā)生了一個(gè)Click事件。為了響應(yīng)事件，可以為事件加入相應(yīng)的代碼，也可以執(zhí)行某個(gè)方法。第第5章章 Visual FoxPro 程

47、序設(shè)計(jì)程序設(shè)計(jì) （1類與對象 （2基類 （3子類 類是對象的定義 對象通過類來產(chǎn)生 子類繼承父類的全部特征，包括對父類所做的任何修改，但子類也可以增加自己的屬性和方法，使其具有與父類不同的特殊性。第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì) （1封裝性 （2繼承性 （3多態(tài)性 （4抽象性第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì) （1容器類 （2控件類第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)對象是構(gòu)成程序的基本單位和運(yùn)行實(shí)體。對象又可區(qū)分為：控件和容器第第5章章 Visual FoxPro 程序設(shè)計(jì)程序設(shè)計(jì)屬性用來表示對象的特征，以下是命令按鈕的各個(gè)屬性。屬 性說 明Name命令按鈕名稱，編程時(shí)用Caption命令按鈕上顯示的文本FontName命令按鈕上文本的字體FontSize命令按鈕上文本的尺寸ForeColor命令按鈕上文本的顏色BackColor命令按鈕上文本的背景Top命令按鈕頂邊的位置Height命令