VisualFoxPro90程序設計基礎第五章程序設計基礎第五章VFP程序設計基礎數據庫技術及應用教學目的和要求了解程序設計的一些基本概念；熟悉程序設計的基本方法和步驟；掌握VisualFoxpro中三種基本控制結構的實現方法和使用方法；掌握自定義函數和過程的使用。2022/12/183教學重點結構化程序設計中的三種控制結構；自定義函數和過程的使用；參數傳遞的不同類型。2022/12/184章節內容5.1VisualFoxpro程序設計基礎5.1.1基本概念5.1.2程序設計方法與步驟5.1.3順序程序設計5.1.4選擇結構程序設計5.1.5循環結構程序設計2022/12/185章節內容5.1.6子程序、過程與自定義函數5.1.7過程文件5.1.8自定義函數5.2程序設計綜合應用舉例2022/12/1865.1.1基本概念程序是使計算機完成某種功能的指令序列。程序可分為源語言程序和可執行程序。

程序設計是指設計、編制、調試程序的方法和過程。程序設計方法主要有結構化程序設計與面向對象設計之分。

2022/12/1875.1.1基本概念執行程序就是依次執行其中的每一條命令，直至全部命令執行完畢。程序通常以文件形式存放在磁盤上，在VisualFoxPro中，程序文件也稱為命令文件，其擴展名為.prg。程序文件一旦建立，可以多次重復執行。

2022/12/1885.1.2程序設計方法與步驟程序設計一般包含以下幾個步驟：（1）分析問題，確定需求，對能夠建立數學模型的問題，根據需求建立數學模型。2022/12/1895.1.2程序設計方法與步驟程序設計一般包含以下幾個步驟：（2）確定數據結構和算法。算法由三種基本控制結構描述，主要描述程序的控制流程和工作過程，數據結構是對程序中數據的描述。在高級程序設計語言中，數據結構通過數據類型體現，而算法可用任何形式的工具來描述，通常有流程圖、N-S圖和偽代碼等。其中流程圖是最早提出的用圖形表示算法的工具，它具有直觀性強、便于閱讀等特點，是采用較多的算法描述工具。

2022/12/18105.1.2程序設計方法與步驟流程圖的基本圖形元素起止框處理框判斷框輸入輸出框連接點流程線2022/12/18115.1.2程序設計方法與步驟程序設計一般包含以下幾個步驟：（2）確定數據結構和算法。計算機能夠實現的基本功能操作包括以下四種類型：邏輯運算：邏輯與、邏輯或、邏輯非；算術運算：加、減、乘、除；數據比較：大于、小于、等于、不等于、大于等于、小于等于；數據傳送：輸入、輸出、賦值。2022/12/18125.1.2程序設計方法與步驟（3）編制程序。（4）調試程序。2022/12/18135.1.3順序程序設計順序結構是程序設計中最簡單、最常用的基本結構，同時也是程序設計中最基本的控制結構。該結構中，指令按照出現的先后順序依次執行。它是任何程序的主體，即使在選擇結構或循環結構內部中，也大多為順序結構程序段。2022/12/18141.數據輸出命令格式：?/??[<表達式表>]功能：計算并輸出表達式的值。說明：①命令中的表達式可以包含字段變量和內存變量，表達式之間以逗號分隔。②兩個命令的區別在于：?命令先換行，再開始輸出；??命令不換行即開始輸出。③?后面若沒有表達式表，則只進行換行操作。5.1.3順序程序設計2022/12/18152.語句的續行當一條語句或一個命令很長時，在代碼編輯窗口或命令窗口閱讀時將不便查看，使用滾動條又比較麻煩。這時，就可以使用續行功能，用分號“；”將較長的語句分為兩行或多行。作為續行符的分號只能出現在行尾。5.1.3順序程序設計2022/12/18163．注釋命令為增加程序的可讀性，常常要在程序中加入一些注釋，對程序中使用的變量、算法進行說明。注釋僅起說明作用，不參與程序運行。VisualFoxPro提供了2種注釋的方法其一：在程序行開頭加“*”表示本行為注釋行其二：命令行中字符“&&”后面的部分為注釋

5.1.3順序程序設計2022/12/1817試編寫一個程序完成兩個變量內容的交換。分析：要完成兩個變量內容的交換，需引入第三個變量作為臨時變量，需要三個步驟來完成交換，設變量a、b分別保存不同的值，引入第三個變量c，則需下述步驟：（１）將變量a賦值給c；（２）將變量b賦值給a；（３）將變量c賦值給b；5.1.3順序程序設計2022/12/1818代碼如下：a＝１b＝2?a，bc＝aa＝bb＝c?a，b5.1.3順序程序設計2022/12/1819順序結構按程序中的語句順序依次執行。例STORE4TOrS=3.14*r*r?S5.1.3順序程序設計2022/12/18205.1.4選擇結構程序設計

選擇結構根據給定的條件是否為真(即條件成立)決定可以執行的分支語句。在VFP中，實現分支結構的語句分支語句IF…ELSE…ENDIF多分支語句DO

CASE…END

CASE2022/12/18215.1.4選擇結構程序設計

1．IF…ELSE…ENDIF結構2022/12/18225.1.4選擇結構程序設計IF結構示例之一

STORE70TOCJIFCJ>=60?”及格”

ENDIFcj=70CJ>60？輸出“及格”.T..F.2022/12/18235.1.4選擇結構程序設計IF結構示例之二

STORE70TOCJIFCJ>=60?”及格”

ELSE?”不及格”

ENDIFcj=70CJ>60？輸出“及格”輸出“不及格”.T..F.2022/12/1824閏年問題一個年份滿足以下條件之一即為閏年：能被4整除且不能被100整除能被400整除nYear=2005IFMOD(nYear,4)=0ANDMOD(nYear,100)<>0ORMOD(nYear,400)=0

?”是閏年“

ELSE

?”不是閏年”

ENDIF2022/12/1825判斷某一年是否是閏年。Y=2005IFy/4=INT(y/4)ANDy/100<>INT(y/100)ORy/400=INT(y/400)?STR(y)+'是閏年'ELSE?STR(y)+'不是閏年'ENDIF5.1.4選擇結構程序設計

2022/12/18263．多分支選擇結構5.1.4選擇結構程序設計

2022/12/1827說明：⑴DoCase和第一個Case子句之間不能插入任何命令。⑵DoCase和Endcase必須配對使用，且DoCase、Case、Otherwise和Endcase各子句必須各占一行。⑶<命令組>中可含有任何VisualFoxPro命令，包括可嵌套DoCase命令。5.1.4選擇結構程序設計

2022/12/1828多重判斷的問題？選擇的嵌套例：cj在80分以上為優秀，60-80為及格，60分以下不及格？2022/12/1829DOCASE結構示例

cj=70DOCASE CASEcj>=80 ?”優良”

CASEcj>=60 ?”及格”

OTHERWISE ?”不及格”ENDCASE2022/12/1830已知分支函數，編寫程序。X=5,b=10,c=1DOCASECASEx>0fx=(a*x+b)/(a*x-b)CASEx=0fx=1OTHERWISEfx=(a*x-b)/(a*x+b)ENDCASE?"函數F(X)的值為："+STR(fx,6,1)5.1.4選擇結構程序設計

2022/12/1831循環結構程序設計

循環結構也稱為重復結構，是指程序執行過程中，其中的某段代碼被重復執行若干次。被重復執行的代碼段，通常稱之為循環體。VisualFoxPro支持循環結構的命令包括：For-Endfor

DoWhile-EnddoScan-Endscan2022/12/18321．DoWhile命令格式：DoWhile＜條件＞＜命令序列＞[Loop]＜命令序列＞[Exit]＜命令序列＞Enddo功能：首先判斷條件表達式的值，若為.T.，就執行DoWhile與Enddo之間的命令序列(稱為循環體)，然后再判斷條件表達式的值，重復剛才的過程。一旦條件取值為.F.，就跳出循環體轉而執行Enddo后的下一條命令。循環結構程序設計

2022/12/18332022/12/1834根據職工的職稱修改職工的工資。若職稱為“高級工程師”，則工資增加200，若職稱為“工程師”，則則工資增加150，若職稱為“助理工程師”，則工資增加100。循環結構程序設計

2022/12/1835CLEARUSE職工DO

WHILE

.NOT.EOF()DO

CASECASE

職稱=“高級工程師”

REPLACE

工資

WITH

工資+200CASE

職稱=“工程師”

REPLACE

工資

WITH

工資+150CASE

職稱=“助理工程師”

REPLACE工資

WITH

工資+100ENDCASESKIPENDDOUSE循環結構程序設計

2022/12/1836求1－100以內的所有奇數和與偶數和Odd=0&&存放奇數和Evev=0&&存放偶數和i=1&&循環變量Dowhilei<=100ifi%2=1odd=odd+1elseeven=even+1endifi=i+1Endfor?odd,even2022/12/18372．For-Next循環命令格式：For＜內存變量＞=＜表達式l＞To＜表達式2＞[Step＜表達式3＞]＜命令序列＞[Exit][Loop]Endfor|Next功能：本命令中的內存變量（又稱循環變量）的作用類似于計數器。它的取值范圍由＜表達式1＞（初值）與＜表達式2＞（終值）確定。通過判斷內存變量的取值是否在指定范圍中來確定循環體是否重復執行

循環結構程序設計

2022/12/1838循環結構程序設計

2022/12/1839求N的階乘。CLEARJC=1N=5FORI=1toNJC=JC*IENDFOR?STR(N,5)+'的階乘是：'+STR(JC,5)RETURN循環結構程序設計

2022/12/18403．Scan-EndScan命令格式：Scan[<范圍>][For<條件表達式>]<命令序列>[Exit][Loop]EndScan功能:對當前表的指定記錄，依次重復執行循環體，每循環一次，表的指針自動下移一位。說明：在數據庫應用程序中，經常要對表中的指定記錄逐個進行某種處理，VisualFoxPro專門提供了表記錄掃描循環，利用它能非常方便地完成逐條記錄掃描。請注意，Scan循環只能用于表打開的情況。循環結構程序設計

2022/12/18412022/12/1842查詢職工表中年齡大于20的所有女性職工的姓名。CLEARUSE職工SCANALLFOR年齡>=20IF性別="男"LOOPENDIFDISPLAYENDSCAN循環結構程序設計

2022/12/1843LOOP命令和EXIT命令循環結構中的LOOP命令和EXIT命令：

LOOP是短路語句，表示重新開始下一次循環；

EXIT是退出語句，表示跳出循環。2022/12/1844累加示例計算S=1+3+5+…+99

S=0

FORI=1TO99STEP2

S=S+I

ENDFOR計算N=1*1+2*2+3*3+…+10*10

N=0

FORJ=ITO10

N=N+J*J

ENDFOR？S=1+2+3+…+100？

N=1*2*3*…*1002022/12/1845累乘示例計算P=3*5*7*…*25

P=1

FORK=3TO25STEP2

P=P*K

ENDFOR計算10！

F=1

FORI=1TO10

F=F*I

ENDFOR2022/12/1846SCAN…ENDSCAN示例

USExscjSCANALLFORcj<60?xm,cjENDSCANUSE2022/12/1847典型應用（1）1.累加/累乘1+2+3+…+1001x2x3x…10練習：(1)1+3+5+…99(2)3x6x9x…99(3)(4)2022/12/1848典型應用（2）2.大小寫轉換小寫數字與大寫數字nx=9Cstring=“零一二三四五六七八九”nd=subs(cstring,nx*2+1,2)練習：123.45一百二十三元四角五分2022/12/1849典型應用（3）3.字符的反序顯示stor“abcdefg”tocstringp=spac(0)dowhillen(cstring>0)c=left(cstring,1)p=c+pcstring=subs(cstring,2)Enddo?p練習：“123456中華人民共和國”2022/12/1850典型應用（4）4.統計字符/數字個數Dimenc(10)C=0S=“0101123569”Dowhillen(s)>0M=left(s,1)n=int(val(m))+1c(n)=c(n)+1s=right(s,len(s)-1)Enddodispmemolikec*練習：統計“abcdfghkyidlfjkt”中的字符個數(僅限于a-z之間)2022/12/1851典型應用（5）5.其它十進制與二進制的轉換2022/12/1852子程序使用子程序的目的是提高程序代碼的可重用性，簡化程序設計，其作用與過程和自定義函數類似。一般的，子程序是一段以獨立的程序文件方式存放在磁盤上的程序，功能相對獨立且通用性強，可被其它程序（主程序）多次調用。創建格式：MODIFYCOMMAND子程序文件名在子程序的適當位置要加上返回命令（至少一條），以便主程序在調用子程序后能返回到調用命令后的第一條可執行命令處，（主程序與子程序的主要區別也體現在這里）。即RETURN[<表達式>|TO<程序文件名>|TOMASTER]子程序、過程與自定義函數

2022/12/1853調用格式：DO<子程序文件名>子程序、過程與自定義函數

2022/12/1854變量的作用域和參數傳遞變量的作用域是變量的有效范圍。即一個變量在哪些程序單元（如主程序、子程序、過程、用戶自定義函數）內是“可見”的，這里“可見”的含義是指能夠被處理（如引用和賦值）。根據變量的有效范圍，變量可分為全局變量和私有變量兩種。（1）全局變量全局變量是指在整個程序運行期間，在任何程序單元中都可以使用的內存變量，當程序運行結束時，全局變量仍保存在內存中，除非使用RELEASE或CLEARMEMORY命令才能將其釋放。作用域為從定義點開始，到退出FoxPro時所執行的所有的程序或過程。全局變量要先定義，后使用，通常在主程序中定義，也可在子程序中定義，還可在命令窗口中定義。子程序、過程與自定義函數

2022/12/1855格式：PUBLIC<變量名表>說明：變量名表可以是簡單變量，也可以是數組。定義變量時未對變量進行賦值，變量的初值為.F.。若將PUBLIC語句所在程序單元中已經存在的局部變量說明為全局變量，則將導致語法錯誤。（2）私有變量只能在說明它的程序以及該程序嵌套調用的各級子程序中使用。數組說明命令定義內存變量后，這個變量自動被默認是私有變量，但也可以顯式說明。作用域為從定義點開始，到退出該程序時所執行的所有程序。格式1：PRIVATE<變量名表>子程序、過程與自定義函數2022/12/1856（3）參數傳遞在主程序的調用子程序的命令中把需要傳遞的實際參數進行說明，在子程序的最開始加上接受數據的命令，該命令中的形式參數（形參變量）用來接受主程序中傳遞過來的數據。格式1：DO<程序名>WITH<實參1>[，<實參2>，…]格式2：

<程序名>（<實參1>[，<實參2>，…]）PARAMETERS<形參表>子程序、過程與自定義函數

2022/12/1857說明：DO<子程序名>WITH<實參表>為發送數據命令，PARAMETERS<形參表>為接受數據命令；PARAMETERS<形參表>語句必須放在子程序或過程中的第一行；<實參表>可以是常量、變量或表達式；<形參表>是變量。實參與形參應一一對應：個數相同，類型一致，按參數表中的順序依次傳遞。子程序或過程中由參數接收語句說明的形參，事實上就是本程序或本過程中的變量，它們在本單元內能夠像普通變量一樣被使用，不同的是，形參在運行時一開始就具有確定的取值。子程序、過程與自定義函數2022/12/1858參數傳遞的類型有兩種，傳值和傳地址。傳值：將實參的值復制一個拷貝后傳遞給形參。因此，實參與其對應的形參作為變量，擁有各自的存儲單元，互不相干。改變形參的取值并不影響實參的值。實參是非簡單變量，如：有運算的表達式。傳地址：將實參存儲單元的地址傳遞給形參。因此，實參與其對應的形參作為變量，共同使用同一存儲單元，二者是同一存儲單元的兩個不同標識符號，其值要相互影響。實參一般是簡單變量。子程序、過程與自定義函數2022/12/1859一般地，形參對實參的影響唯一地取決于參數的傳遞方式，而與形參及實參的標識名無關。采用格式1調用模塊程序時，如果實參是常量或一般形式的表達式，系統會計算出實參的值，并把它們賦值給相應的形參變量。這種情形稱為按值傳遞。如果實參是變量，那么傳遞的是變量的地址。這種情形稱為按引用傳遞，如果強調以按值傳遞，則將變量用括號括起來。如果要強制引用傳遞，則需在實參變量前加&。采用格式2調用模塊程序時，默認情況下都以按值方式傳遞參數。子程序、過程與自定義函數2022/12/1860過程是具有一定功能、且相對獨立的一段程序，它可以被別的程序單元中的語句調用。與子程序基本一樣，所不同的是：過程既可以像子程序那樣獨立存在一個PRG文件中，也可以存放在調用它的主程序后面作為主程序的部分。過程與主程序其實都是程序文件，所不同的是：主程序是不被任何過程調用的程序，而過程既可被主程序和別的過程調用，又可以再調用別的過程。5.1.7過程文件2022/12/18611．過程的創建在程序設計中為了避免重復寫出完成相同任務的程序，提高編程的效率，使程序結構清晰，便于調試和修改是使用過程的重要原因所在。過程的創建格式如下格式：PROCEDURE<過程名>

[PARAMETERS<形參表>]

<語句序列>

[RETURN[TOMASTER]]ENDPROC功能：定義一個過程。5.1.7過程文件2022/12/1862說明：每個過程開始于說明語句PROCEDURE，結束于下一條PROCEDURE語句之前。每個過程至少應有一條RETURN語句，通常它是該過程的最后一條語句，以表控制的返回。不含選擇項的RETURN語句，控制返回到調用該過程的下一條命令處，若是用戶直接運行該過程，則控制返回到FoxPro命令窗口，帶有TOMASTER的RETURN語句一般在過程嵌套中使用，控制返回到最高一級主調程序。5.1.7過程文件

2022/12/1863含有“PARAMETERS<形參表>”的過程，稱為“有參過程”，否則稱“無參過程”。形參表中的各個形參需用逗號分開。形參可以是輸入參數，也可以是輸出參數。當調用一個有參過程時，主調程序將實在參數傳遞給被調過程的形參；過程執行完后，也可通過輸出參數將執行結果傳遞經主調程序中的某個內存變量。當然，某形參也可能同時是輸入參數和輸出參數即在過程中一開始接受主調程序傳來的一個實際值，在過程中又賦予其新值帶回到主調程序。5.1.7過程文件2022/12/1864過程的調用過程的調用與子程序調用一樣，使用Do命令。對于獨立保存的過程文件，主程序調用其中的過程前，首先要打開這個過程文件，使用完后要關閉。與主程序保存在一起的過程，則無須打開和關閉過程文件。5.1.7過程文件2022/12/1865⑴打開過程文件格式：SetProcedureTo<過程文件名表>[Addtive]功能：打開一個或多個過程文件。說明：若有[Addtive]可選項，在打開新的過程文件時，并不關閉已經打開的過程文件。若無此可選項，在打開新的過程文件時，自動關閉原來已打開的過程文件。5.1.7過程文件

2022/12/1866⑵關閉過程文件格式1：CloseProcedure格式2：SetProcedureTo格式3：ReleaseProcedure<過程文件名表>功能：格式1、格式2關閉所有打開的過程文件；格式3關閉指定的過程文件。5.1.7過程文件2022/12/1867自定義函數

1．自定義函數的定義自定義函數與過程定義方法相似，主要區別為：⑴過程以Procedure開頭，而自定義函數必須以Function開頭來定義。⑵自定義函數必須返回一個函數值，而子程序或過程卻無此限制。格式：Function＜函數名＞＜命令序列＞Return＜表達式＞

[Endfunc]2022/12/1868自定義函數說明：⑴自定義函數必須以Return<表達式>結尾，表示用函數名返回此表達式的值。⑵自定義函數名不能與VisualFoxPro系統的標準函數同名，也不能與內存變量同名。⑶

通常自定義函數放在程序文件中，也可以象子程序一樣保存為一個單獨的程序文件，此時程序文件名就是函數名

自定義函數2022/12/18692．自定義函數的調用自定義函數的調用方法有兩種，其一，與系統標準函數一樣，作為命令語句中的一個因子；其二，與過程一樣，使用Do命令，但第二種方法無法體現作為函數調用的優越性。自定義函數2022/12/1870作業一．選擇題1、源程序如下所示，閱讀源程序回答下面的問題。A=’MnRspq’N=LEN(A)I=1DOWHILEI<=NB=SUBSTR(A,I,1)IFISUPPER(B)B=CHR(ASC(B)+32)A=STUFF(A,I,1,B)ENDIFI=I+2ENDDO?ARETURN注：STUFF(cExpression,nStartReplacement,nCharactersReplaced,cReplacement)的功能是返回一個字符串，此字符串是通過用另一個字符表達式*替換現有字符表達式中指定數目的字符得到的。ISUPPER（）確定一個字符表達式中的第一個字符是否是一個大寫的字母字符。（1）程序運行的結果是（）A）MNRSPQB）mnrspqC）MNRSpqD）MsRnpq（2）程序循環的次數是（）A）5B）4C）6D）72022/12/1871作業2、源程序如下所示，閱讀源程序回答下面的問題。CLEARCH='?+-*/?'N=1DOWHILEN<=LEN(CH)-2M=SUBSTR(CH,N+1,1)X=8&M.NY=4&M.N??X&M.YN=N+1ENDDORETURN本程序的運行結果是（）2022/12/1872作業A）82364.0000B）41722.0000C）1442882.0000D）41364.00003、源程序如下所示，請閱讀源程序回答下面的問題。CLEARN=10S=0DOWHILEN>0S=S+NIFMOD(N,2)=0N=N+1ELSEN=N-2ENDIFENDDO?'S=',STR(S,2)SETTALKONRETURN（1）上述程序執行后，共循環了（）次。A）11B）9C）7D）5（2）上述程序執行后，屏幕顯示為（）。A）S=46B）S=55C）S=36D）S=452022/12/1873作業二．填空題1、有一學生庫STUDENT.DBF，表中有：姓名(C,8)，英語(N,2)，數學(N,2)，獎學金(L,1)等字段，程序功能為確定是否發給獎學金(獎學金字段值目前均為.F.)。若英語數學兩門功能都大于或等于90分，則該學生可以發放獎學金，請對程序填空。SETTALKOFFCLEARUSESTUDENTDOWHILE.T.IF英語>=90.AND.數學>=90①ENDIFSKIPIFEOF()②ENDIFENDDORETURN2、請把下面的程序補充完整，使得該程序運行后能夠得到如下圖形：

2022/12/1874作業ADDGGGJJJJMMMMMSETTALKOFFCLEARK=ASC('A')FORI=1TO5FORJ=1TOI@①SAYCHR(K)ENDFOR②ENDFORSETTALKONRETURN3、下面的程序是將“中華人民共和國”顯示為“中華人民共和國”，即在每兩個漢字之間加入一個空格。閱讀下面的程序，將程序填寫完整。2022/12/1875作業SETTALKOFFCLEARX='中華人民共和國'Y=''DOWHILELEN(X)>=①Y=Y+SUBSTR(X,1,2)+''X=SUBSTR(②)ENDDO?③4．有一分支程序為：IFS>100DOP1.PRGELSEIFS>10DOP2.PRGELSEIFS>1DOP3.PRGELSEDOP4.PRGENDIFENDIFENDIF分別寫出執行P2，P3，P4子程序的條件表達式：DOP1.PRG條件為：S＝100DOP2.PRG條件為：______。DOP3.PRG條件為：______。DOP4.PRG條件為：______。三．程序控制結構2022/12/1876作業1．求出下列表達式的值：(x2+y)((xy)|2x-3y|)2．給定一個年份，判斷它是否閏年。閏年的條件是：能被4整除但不能被100整除，或能被100整除且能被400整除。3．從鍵盤輸入數據Az，通過類型判斷，輸出其數據類型的漢字說明。4．從鍵盤輸入x,y,z三個數值，將它們從大到小排列后輸出。四．程序閱讀題。閱讀下列程序，寫出運行結果1．注：字符"A"的ASCII碼為65。程序1CLEARC="一二三四五六七八九十"B="ABCD"R=0L=LEN(B)FORI=1TOLW=SUBSTR(B,I,1)D=ASC(W)+R-65S=""IFD<10 S=SUBSTR(C,2*D+1,2)ELSE S=SUBSTR(C,2*MOD(D,10)+1,2)ENDIF2022/12/1877作業?W+"----->"+SR=R+11ENDFOR2．設A的值為ABCDEF程序2CLEARACCEPT"A="TOAL=LEN(A)P=SPACE(0)I=1DOWHILEI<L P=P+SUBSTR(A,LI,2) I=I+2ENDDO?A+"------>"+P3．寫出運行結果程序代碼：

M=3 DOWHILEM＜10 N=2 DOWHILEN＜M IFINT(M/