VFP程序設(shè)計(jì)基礎(chǔ)

1、VFP程序設(shè)計(jì)基礎(chǔ)大綱要求1、命令文件的建立與運(yùn)行：(1)程序文件的建立。(2)簡(jiǎn)單的交互式輸入輸出命令。(3)應(yīng)用程序的調(diào)試與執(zhí)行。2、結(jié)構(gòu)化程序設(shè)計(jì)：(1)順序結(jié)構(gòu)程序設(shè)計(jì)。(2)選擇結(jié)構(gòu)程序設(shè)計(jì)。(3)循環(huán)結(jié)構(gòu)程序設(shè)計(jì)。3、過程與過程調(diào)用。(1)子程序設(shè)計(jì)與調(diào)用。(2)過程與過程文件。(3)局部變量和全局變量、過程調(diào)用中的參數(shù)傳遞。4、用戶定義對(duì)話框(MESSAGEBOX)的使用。知識(shí)要點(diǎn)1.Visual FoxPro的工作方式Visual FoxPro系統(tǒng)提供有三種工作方式：即命令操作方式、菜單操作方式及程序文件操作方式。2.程序的概念有關(guān)此Visual FoxPro程序的幾點(diǎn)說明:(

2、1)注釋語句【格式1】NOTE【格式2】*【格式3】&【功能】為程序行加注釋說明，以增強(qiáng)程序文件的易讀性。(2)對(duì)話開關(guān)語句【格式】SET TALK OFF|ON【功能】關(guān)閉或打開命令執(zhí)行時(shí)的對(duì)話開關(guān)(3)命令的分行Visual FoxPro程序是命令行的序列，每個(gè)命令都以回車鍵結(jié)束，一行只能寫一條命令;若一條命令太長(zhǎng)，一行寫不下，也可分行書寫，并在分行處加上續(xù)行符“;”，再按回車鍵。3.建立或修改程序文件可用兩種方式調(diào)用系統(tǒng)內(nèi)置的文本編輯器建立或修改程序文件:命令方式MODIFY COMMAND程序文件名或MODIFY FILE程序文件名菜單方式打開“文件”菜單，選擇“新建”;在“新建”窗口

3、，選擇“程序”，再選擇“新建文件”4.保存程序程序輸入、編輯完畢，單擊【文件】|【保存】菜單項(xiàng)，或按Ctrl+W復(fù)合鍵，在“另存為”對(duì)話框中指定程序文件的存放位置和文件名，并單擊“保存”按鈕保存程序文件并退出文本編輯器。程序文件的默認(rèn)擴(kuò)展名是.PRG。5.執(zhí)行程序程序文件建立后，可以用多種方式、多次執(zhí)行它。下面是兩種常用的方式。(1)菜單方式單擊【程序】|【運(yùn)行】菜單項(xiàng)，打開“運(yùn)行”對(duì)話框，選擇程序文件，單擊“運(yùn)行”按鈕;從文件列表框中選擇要運(yùn)行的程序文件，打開該程序文件，并單擊“運(yùn)行”命令按鈕。(2)命令方式【格式】DO【功能】執(zhí)行指定、下的程序文件注意：執(zhí)行程序文件時(shí)，將依次執(zhí)行文件中的命

4、令，直到所有命令執(zhí)行完畢。以下是終止程序運(yùn)行的幾個(gè)常用命令：CANCAL:終止程序運(yùn)行，清除所有私有變量，返回命令窗口。DO：轉(zhuǎn)去執(zhí)行另一個(gè)程序。RETURN：結(jié)束當(dāng)前程序的執(zhí)行，返回到調(diào)用它的上級(jí)程序，若無上級(jí)程序則返回到命令窗口。QUIT：退出VF系統(tǒng)，返回到操作系統(tǒng)。例題：(1)在Visual FoxPro中，程序文件的擴(kuò)展名為_。A.prg B.qpr C.scx D.sct【解析】本題考查的知識(shí)點(diǎn)是程序文件的擴(kuò)展名。在V1sual FoxPro中，程序文件的擴(kuò)展名為.prg。答案A是程序文件的擴(kuò)展名。選項(xiàng)B是生成的查詢程序文件的擴(kuò)展名。選項(xiàng)C是表單文件的擴(kuò)展名。選項(xiàng)D是表單備注文件的

5、擴(kuò)展名?！敬鸢浮緼(2)在Visual FoxPro中，用來建立程序文件的命令是_。A.OPEN COMMANDB.CREATE COMMANDC.MODIFY COMMANDD.以上答案都不對(duì)【解析】本題考查的知識(shí)點(diǎn)是建立程序文件的命令的使用。在VisualFoxPro中，建立程序文件的命令是MODIFY COMMAND。選項(xiàng)A和B語法錯(cuò)誤。選項(xiàng)C是建立程序文件的命令。選項(xiàng)D的說法錯(cuò)誤。【答案】C6.輸入命令I(lǐng)NPUT【格式】INPUTTO【功能】在程序執(zhí)行過程中，將用戶交互式輸入的內(nèi)容賦值給指定內(nèi)存變量,可以輸入字符型、數(shù)值型、邏輯型、日期型和日期時(shí)間型等類型數(shù)據(jù)，而且可以是常量、變量、函

6、數(shù)或表達(dá)式等形式，按回車鍵結(jié)束輸入，系統(tǒng)將輸入的數(shù)據(jù)賦值給。注意：(1)如果選用，那么系統(tǒng)會(huì)首先顯示該表達(dá)式的值，作為提示信息。(2)輸入的數(shù)據(jù)可以是常量、變量、表達(dá)式。但不能不輸入任何內(nèi)容直接按回車。(3)輸入字符串時(shí)必須加定界符，邏輯常量必須用圓點(diǎn)定界，日期常量用大括號(hào)(如2004-12-23)【舉例】1.輸入”張航”到XM變量中。INPUT”請(qǐng)輸入員工姓名：”TO XM請(qǐng)輸入員工姓名：”李小林”?XM李小林2.輸入邏輯值到HF變量中表示婚姻狀況。INPUT”已婚否：”TO HF已婚否：.T.?HF.T.7.輸入命令A(yù)CCEPT【格式】ACCEPTTO【功能】在程序執(zhí)行過程中，將用戶交互式

7、輸入的內(nèi)容作為字符串賦值給指定內(nèi)存變量。該命令只接受字符型數(shù)據(jù)，輸入的字符串不需要加定界符。注意：(1)如果選用，那么系統(tǒng)會(huì)首先顯示該表達(dá)式的值，作為提示信息。(2)該命令只能接收字符串。在輸入字符串時(shí)不需要加定界符。(3)如果不輸入任何內(nèi)容直接按回車。系統(tǒng)會(huì)把空串賦給指定的內(nèi)存變量。【例1】輸入“平衡”到XM變量中。ACCEPT”請(qǐng)輸入教師姓名：”TO XM請(qǐng)輸入教師姓名：平衡?XM平衡【例2】編程從鍵盤輸入某數(shù)據(jù)庫的文件名，要求打開該數(shù)據(jù)庫并顯示其內(nèi)容。程序文件名為PA1.PRG。MODI COMMAND PA1SET TALK OFFCLEARACCEPT請(qǐng)輸入數(shù)據(jù)庫名：TO AOPEN

8、 DATABASE&AACCEPT請(qǐng)輸入表名：TO BUSE&BLISTUSESET TALK ONRETURN8.WAIT命令【格式】WAITTOWINDOWAT,NOWAITCLEAR|NOCLEARTIMEOUT【功能】顯示提示信息，暫停程序執(zhí)行，直到用戶按任意鍵或單擊鼠標(biāo)時(shí)繼續(xù)執(zhí)行程序。若選擇可選項(xiàng)TO，將輸入的單個(gè)字符作為字符型數(shù)據(jù)賦給指定的;若用戶是按Enter鍵或單擊鼠標(biāo)，的值為空串。若省略所有可選項(xiàng)，屏幕顯示“鍵入任意鍵繼續(xù)”默認(rèn)提示信息?！纠吭赟TUDENT數(shù)據(jù)庫的STUD表中顯示任意一個(gè)系學(xué)生的情況。程序文件名為PA2.PRGSET TALK OFFCLEAROPEN D

9、ATABASE學(xué)生管理USE學(xué)生WAIT請(qǐng)輸入待查學(xué)生的學(xué)號(hào)(1-3)：TO NIF VAL(N)3WAIT輸入無效，結(jié)束程序運(yùn)行!WINDOW TIMEOUT 5RETURNELSESTORE0+N TO AAALIST FOR學(xué)號(hào)=AAAENDIFCLOSE DATABASESET TALK ONRETURN三條輸入命令的異同INPUT命令可接受數(shù)值型、字符型、邏輯型、日期型和日期時(shí)間型數(shù)據(jù)，數(shù)據(jù)形式可以是常量、變量、函數(shù)和表達(dá)式，如果是字符串，需用定界符，輸入完畢按回車鍵結(jié)束。ACCEPT命令只能接受字符型數(shù)據(jù)，不需定界符，輸入完畢按回車鍵結(jié)束;WAIT命令只能輸入單個(gè)字符，且不需定界符

10、，輸入完畢不需按回車鍵;例題1.下列關(guān)于Visual FoxPro輸入輸出指令的說法不正確的是_。A.INPUT命令用來從鍵盤輸入數(shù)據(jù)B.用INPUT命令輸入數(shù)據(jù)時(shí)，若不輸入任何數(shù)據(jù)，直接按回車鍵，則系統(tǒng)會(huì)把空字符賦給指定的內(nèi)存變量C.ACCEPT命令只能接收字符串D.WAIT命令能暫停程序執(zhí)行，直到用戶按任意鍵或單擊鼠標(biāo)時(shí)繼續(xù)程序【解析】本題考查的知識(shí)點(diǎn)是一些基礎(chǔ)知識(shí)。本題一目了然選擇B?！敬鸢浮緽9.程序結(jié)構(gòu)是指程序中命令或語句執(zhí)行的流程結(jié)構(gòu)。Visual FoxPro提供了三種基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。10.順序結(jié)構(gòu)程序設(shè)計(jì)是程序中最簡(jiǎn)單、最基本的結(jié)構(gòu)。使用該結(jié)構(gòu)只需先把過

11、程的各個(gè)步驟詳細(xì)列出，然后將有關(guān)命令按處理的邏輯順序自上而下排列起來。Visual FoxPro就能按程序排列的順序，一條接一條地依次執(zhí)行。11.分支結(jié)構(gòu)形式有如下三種：(1)單向分支單向分支語句，即根據(jù)用戶設(shè)置的條件表達(dá)式的值，決定某一操作是否執(zhí)行。語句格式：IF條件表達(dá)式命令行序列ENDIF語句功能：該語句首先計(jì)算條件表達(dá)式的值，當(dāng)條件表達(dá)式的值為真時(shí)，執(zhí)行命令行序列;否則，執(zhí)行ENDIF后面的第一條命令。【例】求一元二次方程AX2+BX+C=0的實(shí)根。程序文件名為PA3.PRG。SET TALK OFFCLEARINPUTA=TO AINPUTB=TO BINPUTC=TO CZ=B2-

12、4*A*CIF Z=0X1=(-B+SQRT(Z)/(2*A)X2=(-B-SQRT(Z)/(2*A)?X1,X2ENDIFSET TALK ONRETURN(2)雙向分支雙向分支語句，即根據(jù)用戶設(shè)置的條件表達(dá)式的值，選擇兩個(gè)操作中的一個(gè)來執(zhí)行。語句格式：IF條件表達(dá)式命令行序列1ELSE命令行序列2ENDIF語句功能：該語句首先計(jì)算條件表達(dá)式的值，當(dāng)條件表達(dá)式的值為真時(shí)，執(zhí)行命令行序列1中的命令;否則，執(zhí)行命令行序列2中的命令;執(zhí)行完命令行序列1或命令行序列2后都將執(zhí)行ENDIF后面的第一條命令?！纠烤帉懸幻艽a校驗(yàn)程序(假設(shè)密碼為ABC)。程序文件名為PA4.PRG。SET TALK OF

13、FCLEARACCEPT“請(qǐng)輸入您的密碼：”TO AAAIF AAA=”ABC”CLEAR?”歡迎使用本系統(tǒng)!”ELSE?”密碼錯(cuò)誤!”WAITQUITENDIFSET TALK ON(3)多向分支多向分支語句，即根據(jù)多個(gè)條件表達(dá)式的值，選擇執(zhí)行多個(gè)操作中的一個(gè)對(duì)應(yīng)執(zhí)行。語句格式：DO CASECASE條件表達(dá)式1命令行序列1CASE條件表達(dá)式2命令行序列2CASE條件表達(dá)式N命令行序列NOTHERWISE命令行序列N+1ENDCASE【例】假設(shè)收入(P)與稅率(R)的關(guān)系如下表，編程求稅金。程序文件名為PA5.PRG。0 P800R=0.05 800P20000.08 2000P50000.

14、1 P5000SET TALK OFFCLEARINPUT“請(qǐng)輸入收入：”TO PDO CASECASE P800R=0CASE P2000R=0.05CASE P5000R=0.08OTHERWISER=0.1ENDCASETAX=P*R?”稅金為：”,TAXSET TALK ONRETURN語句功能：該語句根據(jù)給出的N個(gè)條件表達(dá)式的值，選擇N+1個(gè)命令行序列中的一個(gè)執(zhí)行。當(dāng)所有CASE中條件表達(dá)式的值都是假時(shí)，如果有OTHERWISE項(xiàng)，則執(zhí)行命令行序列N+1，再執(zhí)行ENDCASE后面的第一條命令;否則，直接執(zhí)行ENDCASE后面的第一條命令。(4)使用分支語句應(yīng)注意的幾點(diǎn)IFENDIF和

15、DO CASEENDCASE必須配對(duì)使用，DO CASE與第一個(gè)CASE條件表達(dá)式之間不應(yīng)有任何命令。條件表達(dá)式可以是各種表達(dá)式或函數(shù)的組合，其值必須是邏輯值。命令行序列可以由一個(gè)或多個(gè)命令組成，可以是條件控制語句組成的嵌套結(jié)構(gòu)。DO CASEENDCASE命令，每次最多只能執(zhí)行一個(gè)命令行序列。在多個(gè)CASE項(xiàng)的條件表達(dá)式值為真時(shí)，只執(zhí)行第一個(gè)條件表達(dá)式值為真的命令行序列，然后執(zhí)行ENDCASE的后面的第一條命令?！纠肯旅娉绦蚨蔚墓δ苁怯?jì)算-個(gè)函數(shù)f(x)的值，請(qǐng)寫出表達(dá)式。SET TALK OFFINPUT“請(qǐng)輸入x值：”TO xDO CASECASE x-lf=0CASE X1f=2*x

16、*x-xCASE x5f=xOTHERWISEf=0ENDCASE?f(X)=,fSET TALK ONRETURN由以上程序得A：f(x)=_?！窘馕觥勘绢}考查的知識(shí)點(diǎn)是用分支語句來實(shí)現(xiàn)求一個(gè)函數(shù)的值。由分支語句的特點(diǎn)和程序的結(jié)構(gòu)可知,函數(shù)f(x)是一個(gè)分段函數(shù)，我們可以較為容易地寫出函數(shù)的表達(dá)式?！敬鸢浮?(x5)f(x)=2x2-x(-1=x1)x(1=x5)12.循環(huán)結(jié)構(gòu)程序設(shè)計(jì)循環(huán)結(jié)構(gòu)也稱為重復(fù)結(jié)構(gòu)，是指程序在執(zhí)行過程中，其中的某段代碼被重復(fù)執(zhí)行若干次。被重復(fù)執(zhí)行的代碼段通常稱為循環(huán)體。Visual FoxPro支持循環(huán)結(jié)構(gòu)的語句包括：DOWHILE-ENDDO、FOR-ENDFOR

17、SCAN-ENDSCAN語句。(1)DO WHILE循環(huán)語句【格式1】DO WHILEENDDO【功能】執(zhí)行該語句時(shí)，先判斷是否成立，如果為真，執(zhí)行，執(zhí)行到ENDDO時(shí)，返回到DO WHILE，再判斷。若條件為假，則結(jié)束循環(huán)，執(zhí)行ENDDO后面的語句?！靖袷?】DO WHILELOOPEXITENDDOLOOP語句：強(qiáng)行返回到循環(huán)開始語句。EXIT語句：強(qiáng)行跳出循環(huán)，接著執(zhí)行ENDDO后的語句DO WHILE循環(huán)一般由如下部分組成：初始部分。通常位于程序開頭，用來保證循環(huán)程序能夠開始執(zhí)行。如果第一次判斷條件時(shí)，條件為假，則循環(huán)體一次都部執(zhí)行。工作部分，即循環(huán)體。這部分除了需要重復(fù)執(zhí)行的命令外、

18、還應(yīng)包括對(duì)于循環(huán)控制變量的修改，使循環(huán)進(jìn)行有限次以后能夠自動(dòng)終止?？刂撇糠??？刂撇糠謶?yīng)保證循環(huán)程序按預(yù)定條件恰到好處地執(zhí)行完畢。做到這一點(diǎn)，不僅要選擇適當(dāng)?shù)娜肟跅l件，還要給有關(guān)的量設(shè)定適當(dāng)?shù)某踔?，并在循環(huán)體中對(duì)有關(guān)的量進(jìn)行適當(dāng)?shù)男薷?，關(guān)鍵在于這三者恰到好處地配合?！纠?】編程求1+2+3+100之和。程序文件名為PA6.PRG。SET TALK OFFCLEARS=0I=1DO WHILE I=100S=S+II=I+1ENDDO?”1+2+3+100=”,SSET TALK ONRETURN【例2】逐條顯示在“學(xué)生管理”數(shù)據(jù)庫的“學(xué)生”表中性別為“男”的所有記錄。程序文件名為PA7.PRG。

19、SET TALK OFFCLEAROPEN DATABASE學(xué)生管理USE學(xué)生DO WHILE.NOT.EOF()IF性別=”男”DISPLAYENDIFSKIPENDDOCLOSE DATABASESET TALK ONRETURN【例3】編程顯示“學(xué)生管理”數(shù)據(jù)庫的“學(xué)生”表中除“李寧”以外的所有記錄。程序文件名為PA8.PRG。SET TALK OFFCLEAROPEN DATABASE STUDENTUSE STUDDO WHILE.NOT.EOF()IF姓名=”李寧”SKIPLOOPENDIFDISPLAYSKIPENDDOCLOSE DATABASESET TALK ONRETUR

20、N(2)FOR循環(huán)語句【格式】FOR=TOSTEPENDFOR|NEXT使用FOR循環(huán)語句的有關(guān)說明：省略STEP，則步長(zhǎng)為默認(rèn)值1;初值、終值和步長(zhǎng)都可以是數(shù)值表達(dá)式，但這些表達(dá)式僅在循環(huán)語句開始執(zhí)行時(shí)計(jì)算一次。循環(huán)語句執(zhí)行過程中，初值、終值和步長(zhǎng)是不會(huì)改變的，并由此確定循環(huán)的次數(shù);可以在循環(huán)體內(nèi)改變循環(huán)變量的值，但會(huì)改變循環(huán)執(zhí)行次數(shù);EXIT和LOOP命令可以出現(xiàn)在循環(huán)體內(nèi)。執(zhí)行LOOP命令時(shí)，結(jié)束本次循環(huán)，循環(huán)變量增加一個(gè)步長(zhǎng)值，返回FOR循環(huán)頭判斷循環(huán)條件是否成立。執(zhí)行EXIT命令時(shí),程序跳出循環(huán)，執(zhí)行循環(huán)尾后面的語句?！纠繌逆I盤輸入10個(gè)數(shù)，編程找出其中的最大值和最小值。程序文件名

21、為PA9.PRG。SET TALK OFFCLEARINPUT“請(qǐng)從鍵盤輸入一個(gè)數(shù)：”TO ASTORE A TO MAX,MINFOR I=2 TO 10INPUT“請(qǐng)從鍵盤輸入一個(gè)數(shù)：”TO AIF MAXA MAX=AENDIFIF MINAMIN=AENDIFENDFOR?“最大值為：”,MAX?“最小值為：”,MINSET TALK ONRETURN(3)“指針”型循環(huán)控制語句“指針”型循環(huán)控制語句，即根據(jù)用戶設(shè)置的表中的當(dāng)前記錄指針，決定循環(huán)體內(nèi)語句的執(zhí)行次數(shù)據(jù)。1)語句格式：SCAN范圍FOR條件表達(dá)式1WHILE條件表達(dá)式2命令行序列ENDSCAN2)語句功能：該語句在指定的范

22、圍內(nèi)，用數(shù)據(jù)記錄指針來控制循環(huán)次數(shù)。執(zhí)行語句時(shí)，首先判斷函數(shù)EOF()的值，若其值為“真”，則結(jié)束循環(huán)，否則，結(jié)合條件表達(dá)式1或條件表達(dá)式2，執(zhí)行命令行序列，記錄指針移到指定的范圍和條件內(nèi)的下一條記錄，重新判斷函數(shù)EOF()的值，直到函數(shù)EOF()的值為真時(shí)結(jié)束循環(huán)。【例】輸出“學(xué)生管理”數(shù)據(jù)庫的“學(xué)生”表中所有團(tuán)員的姓名和地址。程序文件名為PA10.PRG。SET TALK OFFCLEAROPEN DATABASE學(xué)生管理USE STUDSCAN FOR是否團(tuán)員?姓名,地址ENDSCANCLOSE DATABASESET TALK ONRETURN(4)使用循環(huán)語句時(shí)應(yīng)注意的幾點(diǎn)1)DO

23、WHILE和ENDDO、FOR和ENDFOR、SCAN和ENDSCAN必須配對(duì)使用。2)命令行序列可以是任何FoxPro命令或語句，也可以是循環(huán)語句，即可以為多重循環(huán)。3)循環(huán)變量應(yīng)是數(shù)值型的內(nèi)存變量或數(shù)組元素。4)EXIT和LOOP命令嵌入在循環(huán)體內(nèi)，可以改變循環(huán)次數(shù)，但是不能單獨(dú)使用。EXIT的功能是跳出循環(huán)，轉(zhuǎn)去執(zhí)行ENDDO、ENDFOR、ENDSCAN后面的第一條命令;LOOP的功能是轉(zhuǎn)回到循環(huán)的開始處，重新對(duì)“條件”進(jìn)行判斷，相當(dāng)于執(zhí)行了一次ENDDO、ENDFOR、ENDSCAN命令，它可以改變命令行序列中部分命令的執(zhí)行次數(shù)。EXIT、LOOP可以出現(xiàn)在命令行序列的任意位置。(5

24、)多重循環(huán)多重循環(huán)即循環(huán)的嵌套，是在一個(gè)循環(huán)結(jié)構(gòu)的循環(huán)體中又包含另一個(gè)循環(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)系如：DO WHILEDO WHILEDO WHILEENDDOENDDOENDDO例題：【例】編程輸出下三角形乘法口訣表。程序文件名為PA11.PRG。SET TALK OFFCLEARX=1DO WHILE X=9Y=1DO WHILE Y=XS=X*Y?STR(Y,1)+*+STR(X,1)+=+STR(S,2)+Y=Y+1ENDDO?X=X+1ENDDOSET TALK

25、ONRETURNurban traffic structure in the urban public transport system, rail traffic with a fast, large capacity, low pollution and high efficiency, become an indispensable part of urban traffic structure, is the contradiction between supply and demand of the growing metropolis, cities, effective mean

26、s to meet the needs of urban traffic. The following table is a rail transport and other modes of urban passenger transport capacity, transportation speed and resource consumption, and so on. Comparison of urban passenger traffic characteristics table 5.1-2 traffic volume (human/h) transport speed (k

27、m/people) Road area occupied (M2/people) scope bike 2,000 10-15 3,000 short car 20-50 10-20 wide bus 6,000-9,000 1-2 40-60 0.25-0.5 from the Metro light rail of 10,000-30,000 in long-distance line 3 More than 0,000 40-60 do not occupy an area both in terms of transport over long distances, transport efficiency, or from the level of resource consumption and environmental pollution, rail transport is undoubtedly an effective means to solve the proble