VFP第6部分程序算法、順序分支循環(huán)、控.ppt

Visual Foxpro 6.0,程序設(shè)計基礎(chǔ),要點： 1.算法的概念及特點 2.掌握程序3種基本結(jié)構(gòu)的表示 3.掌握利用分支結(jié)構(gòu)編程 4.掌握利用循環(huán)結(jié)構(gòu)編程 5.常用控件,第三、四、五講 程序設(shè)計(1),算法及算法的表示,一、算法的概念及特點 所謂算法就是對解決問題所采用的方法和步驟的描述。,二、算法的描述 算法的描述方法有很多，為直觀、準(zhǔn)確地表示一個問題的處理方法和步驟，通常采用流程圖的方法。 流程圖是用一些幾何圖形符號、線條及文字說明來表征一個問題的處理過程。 一般采用傳統(tǒng)流程圖和N-S圖來描述算法。,(教材P51) 【例3-1】設(shè)計如圖所示表單，在文本框text1中輸入華氏溫度，單擊“計算”按鈕可以求出對應(yīng)的攝氏溫度，并在文本框text2中顯示。,“計算”按鈕的“Click”事件代碼如下： fas=thisform.text1.value cels=5*(fas-32)/9 thisform.text2.value=round(cels,1),什么意思？,描述方法1用自然語言表示 步驟1：輸入華氏溫度fas。 步驟2：按照公式，計算攝氏溫度cels。,步驟3：輸出攝氏溫度。,描述方法2 用流程圖表示如圖所示。,描述方法3用N-S流程圖如圖所示。,一個算法應(yīng)該具有以下特點：教材P52 確定性。 有窮性。 有效性。 輸入。 輸出。,任何一個問題能否讓計算機(jī)處理，關(guān)鍵在于能否設(shè)計出合理的算法，有了合適的算法，再使用合適的計算機(jī)語言來編寫程序。 VFP就是一種語言工具。要用VFP編寫出高質(zhì)量的程序，一方面要構(gòu)建合理的算法，另一方面要掌握VFP的語法規(guī)則，它是實現(xiàn)算法的基礎(chǔ)。,命令有一定的書寫規(guī)則： 1、命令分行。 程序中每條命令都以回車鍵結(jié)尾，一行只能寫一條命令。若命令需分行書寫，應(yīng)在一行終了時鍵入續(xù)行符“；”，然后按回車鍵。,2、命令注釋。 程序中可以插入注釋，以提高程序的可讀性。 注釋語句,NOTE|* 注釋部分 & 注釋部分,格式：,行首注釋,單命令的行尾注釋,三、3種基本結(jié)構(gòu)的表示 程序的3種基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇（或分支）結(jié)構(gòu)、循環(huán)結(jié)構(gòu)，它們構(gòu)成了實現(xiàn)一個算法的基本單元。,順序結(jié)構(gòu):是一種最基本、最簡單的程序結(jié)構(gòu)。如下圖所示，先執(zhí)行A，再執(zhí)行B，A與B按照順序執(zhí)行。,選擇（或分支）結(jié)構(gòu):根據(jù)條件是否成立而執(zhí)行不同的程序模塊。,循環(huán)結(jié)構(gòu):是指重復(fù)執(zhí)行某些操作，重復(fù)執(zhí)行的部分稱為循環(huán)體。,常用輸入輸出控件,1）輸入控件,2）輸出控件,文本框,標(biāo)簽、文本框,fas=thisform.text1.value,thisform.text2.value=round(cels,1),R=thisform.text1.value,thisform.label3.caption= alltrim(str(s,8,1),程序設(shè)計實例,順序結(jié)構(gòu)程序?qū)嵗?分支（選擇）結(jié)構(gòu)程序?qū)嵗?循環(huán)結(jié)構(gòu)程序?qū)嵗?1順序結(jié)構(gòu) 順序結(jié)構(gòu)是在程序執(zhí)行時，根據(jù)程序中語句的書寫順序依次執(zhí)行的命令序列。Visual FoxPro系統(tǒng)中的大多數(shù)命令都可以作為順序結(jié)構(gòu)中的語句。,教材P53,(教材P52) 【例3-2】設(shè)計如圖3-5所示表單，在文本框text1、text2、text3中輸入三角形的三邊，單擊“計算”按鈕可以在文本框text4中顯示三角形的面積。其計算公式為,(其中a，b，c為三角形的三邊，area為三角形的面積),“計算”按鈕的“Click”事件代碼如下： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value =(a+b+c)/2 area=sqrt( *( -a)*( -b)*( -c) thisform.text4.value=round(area,1),2分支(選擇）結(jié)構(gòu) 分支結(jié)構(gòu)是在程序執(zhí)行時，根據(jù)不同的條件，選擇執(zhí)行不同的程序語句，用來解決有選擇、有轉(zhuǎn)移的諸多問題。,多路分支語句,常見的分支結(jié)構(gòu)有：,IF語句,單分支語句ifendif,雙分支語句 Ifelseendif,流程圖,1）IF語句 格式：,見教材P57,條件?,語句序列1,語句序列2,Y,N,ENDIF之后的命令,(教材P53) 【例3-3】修改【例3-2】，在文本框text1、text2、text3中輸入三角形的三邊，單擊“計算”按鈕，如果輸入的三邊能構(gòu)成三角形，則在文本框text4中顯示三角形的面積；否則用提示框給出提示信息：不能構(gòu)成三角形，重新輸入！。如圖所示。,“計算”按鈕的“Click”事件代碼如下： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a+bc and a+cb and b+ca =(a+b+c)/2 area=sqrt( *( -a)*( -b)*( -c) thisform.text4.value=round(area,1) else messagebox(“不能構(gòu)成三角形，重新輸入！“) thisform.text1.value=0 thisform.text2.value=0 thisform.text3.value=0 thisform.text4.value=0 thisform.text1.setfocus endif,(教材P54) 【例3-4】設(shè)計如圖3-13所示表單，其中文本框Text1中可以接受日期型數(shù)據(jù)，運行表單后在Text1中輸入日期：08/25/11，單擊命令按鈕“Command1”，則標(biāo)簽Label2顯示什么？其中command1控件的click事件代碼： d=thisform.text1.value y=year(d) IF y/4=int(y/4) AND y/100int(y/100) OR int(y/400) =y/400 y1=“是“ ELSE y1=“不是“ ENDIF thisform.label2.caption=y1,判斷某一年是否是閏年,假如年份用y表示，判斷y是否是閏年的方法是：若y能夠被400整除或y能夠被4整除并且不能夠被100整除,提示：判斷一個整數(shù)M能否被另一個整數(shù)N整除，一般采用三種方法，判斷: MOD(M,N)是否等于0 INT(M/N) 是否等于M/N M%N=0 若等于，則表明M能被N整除。,EXM2：輸入兩個數(shù)，比較大小，并輸出較大數(shù)。,方法一：雙分支,方法二：單分支,EXM3：輸入兩個數(shù)，比較大小，并按從大到小的順序輸出。,使用單分支結(jié)構(gòu)：,容器A,容器B,容器C,1,3,1、C = A 2、A = B 3、B = C,交換,思考：輸入3個數(shù)a,b,c，比較大小，并按從大到小的順序輸出。,“求解”命令按鈕的“Click”事件代碼如下： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if ab t=a a=b b=t endif if ac t=a a=c c=t endif,if bc t=c c=b b=t endif thisform.text1.value=a thisform.text2.value=b thisform.text3.value=c,(教材P53) 【例3-5】已知一元二次方程的3個系數(shù)，求一元二次方程的根。求根公式 ：,分支的嵌套,“求解”命令按鈕的“Click”事件代碼如下： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a=0 messagebox(“二次項系數(shù)為0，這不是一個一元二次方程“) thisform.text1.setfocus else d=b2-4*a*c if d=0 x1=round(-b+sqrt(d)/(2*a),2) x2=round(-b-sqrt(d)/(2*a),2) thisform.text4.value=x1 thisform.text5.value=x2 else messagebox(“該方程沒有實數(shù)根！“) endif endif,EXM 4：比較任意三個數(shù)的大小，并輸出較大數(shù)。,輸入三個數(shù)a,b,c,ab?,ca?,cb?,輸出c,輸出a,輸出c,輸出b,結(jié)束,N,Y,Y,N,N,Y,4）多分支語句 格式： （見教材58頁） 流程圖：,ENDCASE后面的語句,【修改例3-6】輸入月份值，顯示對應(yīng)季節(jié)的中文名字（3,4,5月為春季，6,7,8月為夏季，9,10,11月為秋季；12,1,2月為冬季）。,“輸出”命令按鈕的click事件代碼： yf=val(thisform.text1.value) do case case yf=3 or yf=4 or yf=5 jj=“春季“ case yf=6 or yf=7 or yf=8 jj=“夏季“ case yf=9 or yf=10 or yf=11 jj=“秋季“ case yf=12 or yf=1 or yf=2 jj=“冬季“ endcase thisform.label3.caption=jj,注意： ifendif，do caseendcase必須配對出現(xiàn)，表示分支的開始和結(jié)束。 為使程序清晰易讀，對分支、循環(huán)等結(jié)構(gòu)應(yīng)使用縮格書寫方式。,表達(dá)分支、循環(huán)的每種語句都不允許在一個命令行中輸完，必須按格式一行一行地鍵入，因此，不能出現(xiàn)在命令窗口中。 三種選擇結(jié)構(gòu)之間可以相互嵌套，但不能交叉。,循環(huán)結(jié)構(gòu)能夠使某些語句或程序段重復(fù)執(zhí)行若干次。 如果某些語句或程序段需要在一個固定的位置上重復(fù)操作，使用循環(huán)是最好的選擇。,3循環(huán)結(jié)構(gòu),常見的循環(huán)結(jié)構(gòu)有：,條件循環(huán),步長循環(huán),掃描循環(huán),涉及數(shù)據(jù)表的循環(huán)，第6章介紹,1）條件循環(huán)（do while循環(huán)） 格式： 流程圖：,條件,語句序列,Enddo之后的語句,N,Y,循環(huán)體,教材P62,【例】計算1+2+3+100,第 1 步， 計算 0+1； 第 2 步， 計算 (0+1)+2； 第 3 步， 計算 (0+1+2)+3； 第 i 步， 計算 (0+1+i-1)+i； . 第 100 步，計算 (0+1+99)+100；,遞推算法,前i-1次累加和,第i次累加項,基本方法:,屬于“累加器”類型問題,（1）在進(jìn)入累加前先給累加器賦初值（求和一般為0） （2）用循環(huán)語句實現(xiàn)累加 循環(huán)變量賦初值；循環(huán)條件；循環(huán)變量的改變規(guī)律 （3）循環(huán)體語句的設(shè)計 累加器當(dāng)前值=累加器原值+循環(huán)當(dāng)前值,三個“確定” 循環(huán)三要素,算法： 確定循環(huán)變量i并賦初值為1 定義s存放累加和,初值為0 確定循環(huán)條件 i=100 s=s+i 確定循環(huán)變量的變化趨勢i=i+1 輸出結(jié)果s,遞推公式,在條件循環(huán)中如何體現(xiàn)的？,s=1+2+3+100,“計算”按鈕的click事件代碼： s=0 i=1 do while i=100 s=s+i i=i+1 enddo Thisform.text1.value=s,循環(huán)體,【修改例3-8】計算s=1+2+3+n,“計算”命令按鈕的“click”事件代碼： n=thisform.text1.value s=0 x=1 do while x=n s=s+x enddo thisform.text2.value=s,說明： 循環(huán)結(jié)構(gòu)從do while開始，到enddo結(jié)束，兩者必須成對出現(xiàn)；在enddo后面可以書寫注釋。 循環(huán)是否繼續(xù)取決于條件的當(dāng)前取值，一般情況下循環(huán)體中應(yīng)含有改變條件取值的命令或語句，否則將造成死循環(huán)。 循環(huán)結(jié)構(gòu)能自身嵌套(多重循環(huán))，還能與選擇結(jié)構(gòu)的各種形式嵌套。,2）步長循環(huán)（forendfor計數(shù)循環(huán)） 格式：,教材P62,計算1+2+3+100,s=0 for i=1 to 100 s=s+i endfor Thisform.text1.value=s,step 1,(教材P60) 【例3-9】設(shè)計如圖所示表單，在文本框text1中輸入N的值，求N!。,（1）給累乘器賦初值（一般為1） （2）用循環(huán)語句實現(xiàn)累乘 循環(huán)變量賦初值；循環(huán)條件；循環(huán)變量改變規(guī)律 （3）循環(huán)體設(shè)計 累乘器當(dāng)前值=累乘器原值*循環(huán)當(dāng)前值,如：123.100,基本方法:,屬于“累乘器”類型問題,“計算”命令按鈕的“Click”事件代碼： p=1 for i=1 to thisform.text1.value p=p*i endfor thisform.text2.value=p,說明： 步長可正可負(fù)，缺省為1。 循環(huán)體中不應(yīng)包含改變循環(huán)變量值的命令，否則循環(huán)次數(shù)將隨之改變。 如果循環(huán)可以通過計數(shù)來控制，則本循環(huán)比條件循環(huán)更為方便。,當(dāng)循環(huán) 步長循環(huán) 在文本框Text1中輸入終值n 在文本框Text2中輸入步長k i=1 for i=1 to n step k do while i endfor|next i=i+k endddo,【例】求100以內(nèi)的奇數(shù)和。,A=1+3+5+99,循環(huán)變量 初值n=1,循環(huán)條件n100,循環(huán)變量的變化 趨勢n=n+2,請同學(xué)們自己寫出程序,循環(huán)體累加語句：A=A+n,【例】求,循環(huán)變量 初值x=1,循環(huán)條件xn,循環(huán)變量的變化 趨勢x=x+1,請同學(xué)們自己寫出程序,循環(huán)體累加語句：K=K+x2,思考：計算e的近似值。其公式為：e1+1/1!1/2!1/3!1/N!，直到1/N!0.000001為止。,“計算”命令按鈕的“click”事件代碼： s=1 i=2 p=1 do while 1/p=0.000001 s=s+1/p p=p*i i=i+1 enddo thisform.text1.value=s,階乘,累加,【例】求所有的水仙花數(shù)。(所謂水仙花數(shù)是指一個三位數(shù)，其各位數(shù)字的立方和等于該數(shù)本身。,編程方法： “枚舉法” 按問題本身的性質(zhì)，一一列舉出該問題所有可能的解，并在逐一列舉的過程中，檢驗每個可能解是否是問題的真正解，若是，我們采納這個解，否則拋棄它。對于所列舉的值，既不能遺漏也不能重復(fù)。,查找范圍：,三位數(shù)100999,任意一個三位數(shù),判斷這個三位數(shù)x是水仙花數(shù)的條件： X=x13+x23+x33,例：1+2+n 1到n的奇數(shù)和、偶數(shù)和 100以內(nèi)能夠被X整除的數(shù)之和。,請同學(xué)們自己寫出程序,命令按鈕的“click”事件代碼： s=0 for i=1 to 100 s=s+(-1)(i+1)/i endfor thisform.text1.value=s,方法1：,命令按鈕的“click”事件代碼： s=0 k=1 for i=1 to 100 s=s+k/i k=-k endfor thisform.text1.value=s,方法2：,命令按鈕的“click”事件代碼： s1=0 s2=0 for i=1 to 99 step 2 s1=s1+1/i endfor for i=2 to 100 step 2 s2=s2+1/i endfor thisform.text1.value=s1-s2,方法3：,(教材P60-61) 【例3-10】設(shè)計如圖1所示表單。運行該表單，在文本框Text1中輸入一串字符，單擊“逆序顯示”命令按鈕后，逆序顯示該字符串，如圖2所示。,圖1,圖2,x=“Av56:YijB8“,8,B,j,i,Y,:,6,5,v,A,c=c+substr(x,i,1),確定變量： x：存任意字符串x=“ Av56:YijB8 “ i：存截取次數(shù)(1len(x) c：存逆序字符串 c=c+substr(x,i,1),確定算法：用循環(huán)在原字符串中從右到左逐個截取字符，重新組裝成逆序字符串,確定循環(huán)三要素： 循環(huán)變量 : i (i初值為len(x),終值為1) 循環(huán)條件: i=1 循環(huán)條件改變：i=i-1(從右到左截取),【例】輸入一串ASCII字符，顯示數(shù)字字符串。假設(shè)輸入：Av56:YijB8 顯示：568。,請同學(xué)們自己寫出程序,從左到右逐個取出字符x,判斷x是數(shù)字的條件：,Asc(x)asc(0) and Asc(x)asc(9),【例】輸入一串ASCII字符，顯示大寫字母串。假設(shè)輸入：Av56:YijB8 顯示： AYB 。 輸入一串ASCII字符，顯示小寫字母串。假設(shè)輸入： Av56:YijB8 顯示：vij 。,請同學(xué)們自己寫出程序,【例】如圖所示一程序界面。文本框TEXT1已經(jīng)輸入一串文字，單擊“轉(zhuǎn)換”命令按鈕后，文本框的值將變?yōu)槭裁矗?“轉(zhuǎn)換” 命令按鈕的CLICK 事件代碼： N=LEN(THISFORM.TEXT1.VALUE) Y= DO WHILE N0 X=SUBSTR(THISFORM.TEXT1.VALUE,N,1) IF ASC(X)=ASC(a) X=UPPER(X) ELSE X=LOWER(X) ENDIF Y=X+Y N=N-1 ENDDO THISFORM.TEXT1.VALUE=Y,tHIS IS A cpu.,對象的事件和方法,1、事件（Event）教科書P9 事件是作用于對象的某些行為和動作。 事件(Event) 是預(yù)先定義好的特定的動作，不能修改、增加和刪除，由用戶或系統(tǒng)激活。 對象不同，事件也不完全相同。,圓面積程序修改1,文本框text2獲得焦點，即光標(biāo)移到文本框text2中,輸入半徑后，按Tab鍵，光標(biāo)移到文本框text2中顯示圓面積,圓面積程序修改2,文本框text1失去焦點，即在文本框text1中輸入面積后，敲回車鍵（該事件可以換成Lostfocus）,輸入半徑后，按回車鍵，在文本框text2中顯示圓面積,2、方法（Event）教科書P10 方法是指對象自身可以進(jìn)行的動作或行為。它實際上是對象本身所內(nèi)含的一些特殊的函數(shù)或過程，以便實現(xiàn)對象的一些固有功能?？梢酝ㄟ^調(diào)用對象的方法實現(xiàn)該對象的動作及行為。,直接調(diào)用的對象方法程序不多，主要有：刷新(Refresh)、釋放(Release)、設(shè)置焦點(setfocus)。 在面向?qū)ο蟮某绦蛟O(shè)計過程中，可為對象創(chuàng)建新的屬性和方法程序。,(教材P6) 【例1-2】設(shè)計如圖1-11所示表單，表單運行后，在兩個文本框中分別輸入一個數(shù)，比較大小，光標(biāo)移到文本框text3時，在其中顯示最大數(shù)；單擊“關(guān)閉”按鈕，可以關(guān)閉表單。,文本框text3的“GotFocus”事件代碼： Thisform.text3.value=max(thisform.text1.value,thisform.text2.value) “關(guān)閉”按鈕的“Click”事件的程序代碼： Thisform.release,表單設(shè)計中的常用控件,Vfp的基類有兩類： 控件類 容器類,產(chǎn)生控件類對象,產(chǎn)生容器類對象,標(biāo)簽（label）,主要屬性：Caption、BackStyle、WordWrap,控件類,標(biāo)簽沒有Value屬性,教材P16,仔細(xì)體會教科書P12【例1-3】,命令按鈕（command）,主要屬性：Caption、Enabled 主要事件：Click,控件類,教材P17,該屬性值為.F.，則命令按鈕呈灰色顯示， 表示暫時不可用。表示為： Tmand1.enabled=.f. 該屬性值為.T.，則命令按鈕呈深色顯示， 表示可用。表示為： Tmand1.enabled=.t.,Click事件代碼： if mand2.caption=“可用“ mand2.caption=“不可用“ Tmand2.enabled=.f. else mand2.caption=“可用“ Tmand2.enabled=.t. endif,文本框（text）,主要屬性：PasswordChar、Value、ControlSource 主要事件：Valid、GotFocus、 Lostfocus 主要方法：setfocus,控件類,要讓文本框接收小數(shù)， 可以將其屬性值設(shè)置 為：0.0,教材P16,仔細(xì)體會教科書P6【例1-2 】 、P14 【例1-4】,改寫圓面積程序(1) 改寫圓面積程序(2),注意：這兩個圓面積程序中的This， 表示當(dāng)前編寫代碼的對象。這是一 種相對引用。見教材P13 第一個程序是對text1編寫代碼， This就表示text1；第一個程序是 對text2編寫代碼，This就表示 Text2。,組合框（Combo）,主要屬性： ControlSource、RowSource、 RowSourceType 、 ColumnCount 主要事件：InteractiveChange,控件類,教材P28,仔細(xì)體會教科書P26【例2-4 】 、P38 【例2-12】,組合框中數(shù)據(jù)源的類型,組合框中的數(shù)據(jù)源,【例】設(shè)計如圖所示的簡易登錄表單，表單運行后用戶可以在組合框中錄入或選擇用戶名，輸入密碼后敲回車鍵，驗證登錄是否成功（密碼顯示為“*”）。驗證成功以后關(guān)閉表單。 說明：預(yù)設(shè)兩個用戶：“王平”的密碼為“ABC”；“劉梅”的密碼為“123456”。,注意：關(guān)閉表單的代碼為 Thisform.release,編輯框（edit）,主要屬性：ReadOnly、ScrollBars,控件類,接收的是字符型的值,教材P63-64,仔細(xì)體會教科書P62【例3-11 】,其值為.T.，編輯框不能修改（只讀）,【例】設(shè)計如圖所示的圓面積計算表單，表單運行后能將計算過的所有數(shù)據(jù)都顯示在編輯框中，編輯框內(nèi)的文字只讀。,P88實驗4.2任務(wù)1,計時器（timer）,主要屬性： Enabled、Interval 主要事件：timer,控件類,值為.t.，計時器運行 值為.f.，計時器不運行,單位為：毫秒,教材P41,仔細(xì)體會教科書P40【例2-13 】,P98自主實驗任務(wù)1,Timer事件代碼： ThisForm.Label1.Left=ThisForm.Label1.Left+1 IF ThisForm.Label1.Left200 ThisForm.Label1.Left= 0-ThisForm.Label1.Width ENDIF Click事件代碼： ThisForm.Release,命令按鈕組（commandGroup）,主要屬性：ButtonCount、Value 主要事件：Click,容器類,包含command1、command2等， 設(shè)置每個按鈕的caption屬性： 單擊右鍵，選擇“編輯”,Tmandgroup1.value=i i=1，表示鼠標(biāo)單擊第一個命令按鈕；i=2，表示 鼠標(biāo)單擊第二個命令按鈕。,教材P119,DO CASE CASE This.Value=1 ThisForm.Timer1.Enabled=.t. CASE This.Value=2 ThisForm.Timer1.Enabled=.f. CASE This.Value=3 ThisForm.Timer1.Enabled=.f. STORE 0 TO f,m,bfm ThisForm.Label1.Caption=“ 0: 0: 0” CASE This.Value=4 ThisForm.Release ENDCASE,P94實驗4.3任務(wù)1,1表示邏輯真，0表示邏輯假,復(fù)選框（check）,主要屬性：Caption、Value,控件類,選項按鈕組（OptionGroup）,主要屬性：ButtonCount、Caption、ControlSource、valu