vfp程序與程序文件

一、程序與程序文獻(xiàn)

1、程序的概念：由命令動(dòng)詞或短語(yǔ)參數(shù)以及語(yǔ)法構(gòu)造所構(gòu)成的可以自動(dòng)處理的命令文獻(xiàn)，擴(kuò)展名為PRG。

2、程序的特點(diǎn)

⑴可以運(yùn)用編輯器，以便地輸入、修改和保留程序。

⑵可以用多種方式，多次運(yùn)行程序。

⑶可在一種程序中調(diào)用另一種程序。

⑷它是一種自動(dòng)處理方式。

3、編程中要遵照的原則：

⑴在輸入命令動(dòng)詞或短語(yǔ)時(shí)，命令動(dòng)詞的輸入規(guī)定與命令窗口中規(guī)定一致即：不分字母大小寫、命令動(dòng)詞可縮寫前四個(gè)字母、命令動(dòng)詞或短語(yǔ)之間至少有一空格隔開。

⑵一行只能寫一條語(yǔ)句，輸入完后必須回車，才能在第二行輸入下面的內(nèi)容。

⑶當(dāng)一行輸入不完語(yǔ)句時(shí)，在該行的最終輸入“；”，再回車，轉(zhuǎn)到下一行，系統(tǒng)回默認(rèn)下一行是上一行的繼續(xù)。

⑷在程序中容許使用注釋語(yǔ)句：用“*”或“&&”或NOTE開頭，命令行后也可以用注釋，用“&&”開頭，當(dāng)然注釋語(yǔ)句可以有可以無(wú)，在程序運(yùn)行時(shí)不運(yùn)行注釋語(yǔ)句。

⑸在編輯程序中，并不是每句都執(zhí)行，只有在運(yùn)行時(shí)才執(zhí)行程序，并且是按照自然次序執(zhí)行。4、程序文獻(xiàn)的建立與執(zhí)行

⑴程序文獻(xiàn)的建立

環(huán)節(jié)1：點(diǎn)擊“文獻(xiàn)”，在彈出的下拉菜單中選擇“新建”，然后在“新建”的對(duì)話框中選擇“程序”，再單擊“新建文獻(xiàn)”按鈕。

環(huán)節(jié)2：在彈出的“程序”框中，可以輸入語(yǔ)句。

環(huán)節(jié)3：保留文獻(xiàn)。從“文獻(xiàn)”的下拉菜單中選擇“保留”或“另存為”或用快捷鍵“CTRL+W”,在“另存為”對(duì)話框中指定程序寄存的途徑和文獻(xiàn)名，并單擊“保留”按鈕。

⑵編輯或修改程序

環(huán)節(jié)1：點(diǎn)擊“文獻(xiàn)”，在彈出的菜單中選擇“打開”，彈出“打開”對(duì)話框。

環(huán)節(jié)2：從文獻(xiàn)類型中選擇“程序”。

環(huán)節(jié)3：從“搜尋”后下拉框中選擇保留程序的途徑。

環(huán)節(jié)4：從文獻(xiàn)列表框中選擇要修改的文獻(xiàn)，并單擊“確定”按鈕。

環(huán)節(jié)5：編輯完畢后，從“文獻(xiàn)”選擇保留按鈕或按下“CTRL+W”來(lái)保留文獻(xiàn)。

也可以用命令動(dòng)詞來(lái)建立或修改程序文獻(xiàn)，格式：modifycommand<文獻(xiàn)名>該格式中文獻(xiàn)名前可以指定途徑。不必加擴(kuò)展名，系統(tǒng)會(huì)默認(rèn).PRG。當(dāng)執(zhí)行該命令時(shí)，系統(tǒng)首先檢索該磁盤的文獻(xiàn)，假如指定文獻(xiàn)存在，則打開修改；否則系統(tǒng)認(rèn)為要建立一種指定的文獻(xiàn)。

⑶執(zhí)行程序文獻(xiàn)

措施1：從“程序”菜單中選擇“運(yùn)行”，打開運(yùn)行窗口。再選擇要運(yùn)行的文獻(xiàn)名，此時(shí)系統(tǒng)默認(rèn)運(yùn)行的類型為程序，并單擊“運(yùn)行”按鈕。

措施2：在命令窗口輸入“DO文獻(xiàn)名”，也可以運(yùn)行程序二、交互式輸出輸入命令

有時(shí)，為了讓程序多樣化、靈活化，可以對(duì)程序的運(yùn)行加以顧客的規(guī)定，從而使程序愈加符合顧客的規(guī)定，對(duì)程序的控制一般通過(guò)交互式命令來(lái)控制程序運(yùn)行。

1、INPUT

命令格式：INPUT字符串體現(xiàn)式TO內(nèi)存變量

該格式表達(dá)程序暫停，按照給定的字符串的提醒信息，從鍵盤上此外賦值給指定的內(nèi)存變量。從鍵盤上輸入數(shù)據(jù)后，程序繼續(xù)運(yùn)行。

功能注釋：

⑴字符串體現(xiàn)式可以選用和可以不選用,假如不選用,信息提醒不會(huì)出現(xiàn),但程序也是暫停；假如選用，系統(tǒng)會(huì)首先顯示該體現(xiàn)式的值，作為提醒信息。

⑵輸入的數(shù)據(jù)類型可以是數(shù)值型、字符型、邏輯型、日期型，不容許不輸入任何內(nèi)容就回車。

⑶在輸入不一樣數(shù)據(jù)類型時(shí)，必須加上對(duì)應(yīng)的定界符，以回車結(jié)束輸入。

例1：任意輸入兩個(gè)數(shù)字，運(yùn)行后可以形成兩個(gè)數(shù)字的位置互換。

Clear

Input”請(qǐng)輸入一種數(shù)：”toa

Input”請(qǐng)輸入一種數(shù)：”toa

?a&&該成果顯示的是未換位前的從鍵盤輸入的數(shù)據(jù)

?b&&同上

c=a&&C是任意指定的內(nèi)存變量，先把a(bǔ)的只放如c中

a=b&&a中的數(shù)據(jù)暫無(wú)，把b中的數(shù)據(jù)直接放入a中

b=c&&再將c中的數(shù)據(jù)（即a中的數(shù)據(jù)）放入b中

?”換位后的”,a

?”換位后的”,b

return

2、ACCEPT命令

命令格式：ACCEPT[<字符體現(xiàn)式>]to內(nèi)存變量

該格式表達(dá)程序暫停，按照給定的字符串的提醒信息，從鍵盤上此外賦值給指定的內(nèi)存變量。從鍵盤上輸入數(shù)據(jù)后，程序繼續(xù)運(yùn)行。

功能注釋：

⑴字符串體現(xiàn)式可以選用和可以不選用,假如不選用,信息提醒不會(huì)出現(xiàn),但程序也是暫停；假如選用，系統(tǒng)會(huì)首先顯示該體現(xiàn)式的值，作為提醒信息。

⑵該命令只接受字符型數(shù)據(jù)，即無(wú)論輸入何種數(shù)據(jù)類型的數(shù)據(jù)系統(tǒng)一律默認(rèn)為字符型。

⑶輸入數(shù)據(jù)時(shí)，不加定界符，以回車結(jié)束輸入。

⑷假如不輸入任何內(nèi)容，直接回車，系統(tǒng)會(huì)默認(rèn)輸入的數(shù)據(jù)為空字符串。例2：根據(jù)職工號(hào)顯示記錄

opendatabaseab

use職工狀況表exclusive

accept”請(qǐng)輸入職工號(hào)：”tow

listfor職工號(hào)=w

use

closedatabase

return

假如把上述程序中的”accept”換成“input”后，輸入數(shù)據(jù)時(shí)不加定界符，系統(tǒng)會(huì)彈出一種對(duì)話框。在該界面中只需要選擇“取消”即可。

此外其他按鈕的作用如下：

取消：取消該程序的運(yùn)行，返回命令窗口。

掛起：暫停程序運(yùn)行，光標(biāo)在出錯(cuò)的程序行閃動(dòng)，提醒修改程序，這是會(huì)有提醒窗口如圖17.2所示，選擇“取消”即可修改程序。

忽視：跳過(guò)出錯(cuò)行，程序繼續(xù)往下運(yùn)行。3、WAIT命令

命令格式：wait[<字符體現(xiàn)式>][to<內(nèi)存變量>][window[at<行>,<列>]][nowait][clear|noclear][timeout<數(shù)值體現(xiàn)式>]

該命令顯示字符體現(xiàn)式作為提醒符，該程序暫停運(yùn)行，直到顧客按任意鍵或單擊鼠標(biāo)時(shí)繼續(xù)程序運(yùn)行。

功能注釋：

⑴假如字<符體現(xiàn)式>值為空串，那么不會(huì)顯示任何提醒，假如沒(méi)有指定<符體現(xiàn)式>，則顯示系統(tǒng)默認(rèn)的提醒信息“按任意鍵繼續(xù)……”。

⑵[]中的內(nèi)容都是參數(shù)，可以加可以不加，只有一種wait是系統(tǒng)會(huì)出現(xiàn)提醒信息：“按任意鍵繼續(xù)……”。

⑶<內(nèi)存變量>用來(lái)保留顧客鍵入的字符，其類型為字符型。若顧客按的是Enter鍵或單擊了鼠標(biāo)，那么<內(nèi)存變量>中保留的將是空串。若不選TO<內(nèi)存變量>短語(yǔ)，輸入的單字符不保留。

⑷在從鍵盤上輸入數(shù)據(jù)時(shí)，只能輸入一種字節(jié)的字符型數(shù)據(jù)，不加定界符，不用回車。

⑸一般狀況下，提醒信息被顯示在系統(tǒng)主窗口中的空白背景上，或目前顧客自定義窗口里。假如指定了WINDOW子句，則會(huì)出現(xiàn)一種WAIT提醒窗口，用以顯示提醒信息。提醒窗口一般顯示在主窗口中的右上角，也可以用AT短語(yǔ)指定（某行某列）其在主窗口的位置。提醒窗口。

⑹若選用NOWAIT短語(yǔ)，系統(tǒng)將不等待顧客按鍵或輸入數(shù)據(jù)，程序繼續(xù)運(yùn)行。

⑺若選用NOCLEAR短語(yǔ)，則不關(guān)閉提醒窗口，直到顧客執(zhí)行下一條WAITWINDOW命令或WAITCLEAR命令為止。

⑻TIMEOUT意思為時(shí)間限制，等待的時(shí)間為秒，在限定的秒數(shù)內(nèi)，顧客輸入數(shù)據(jù)或按任意鍵，程序繼續(xù)運(yùn)行；相反，一旦超過(guò)限定的時(shí)間，程序就不再等待顧客按鍵，自動(dòng)往下運(yùn)行。

⑼參數(shù)可以在一起混用，但NOCLEAR和CLEAR不能在同一行使用，一行語(yǔ)句可以使用多種參數(shù)。

注意：以上交互式語(yǔ)句一般在程序中使用三、程序的基本語(yǔ)法構(gòu)造

程序構(gòu)造是指程序中命令或語(yǔ)句執(zhí)行的流程構(gòu)造，一般分次序構(gòu)造、選擇構(gòu)造、循環(huán)構(gòu)造。

次序構(gòu)造是程序按照先后自然的次序運(yùn)行，不過(guò)只有次序構(gòu)造是不行的，還要用到其他構(gòu)造。1、條件選擇構(gòu)造

語(yǔ)句格式：

IF<條件>

<語(yǔ)句序列1>

[ELSE

<語(yǔ)句序列2>]

ENDIF

功能注釋：

⑴有ELSE子句時(shí)，兩組可供選擇的代碼分別是<語(yǔ)句序列1>和<語(yǔ)句序列2>。假如<條件>成立，則執(zhí)行<語(yǔ)句序列1>，否則執(zhí)行<語(yǔ)句序列2>。然后轉(zhuǎn)向ENDIF的下一條語(yǔ)句。

⑵無(wú)ELSE子句時(shí)，可以看作第二組代碼不包括任何命令。假如<條件>成立，則執(zhí)行<語(yǔ)句序列1>，然后轉(zhuǎn)向ENDIF的下一條語(yǔ)句；否則直接轉(zhuǎn)向ENDIF的下一條語(yǔ)句去執(zhí)行。

⑶IF和ENDIF必須成對(duì)出現(xiàn)，IF是本構(gòu)造的入口，ENDIF是本構(gòu)造的出口。

⑷條件語(yǔ)句可以嵌套，但不能交叉。在嵌套時(shí)，為了使程序清晰、易于閱讀，可以用縮進(jìn)格式書寫。

⑸<條件>的形式是比較運(yùn)算或邏輯運(yùn)算，只要最終止果為邏輯型即可。即.T.或.F.

⑹在嵌套時(shí)，有一種IF必須有一種ENDIF相對(duì)應(yīng)。例1：有一分段函數(shù)，根據(jù)內(nèi)容編輯一種程序。

y=2x+1(x<0),y=2**x-1(x>=0)

clear

input″請(qǐng)輸入x的值″tox

ifx<0

y=2*x+1

else

y=2**x-1

endif

return例2：某郵局專門對(duì)包裹的郵寄制定收費(fèi)原則：在120克以內(nèi)，收費(fèi)原則是0.06元，120克以上，超過(guò)的重量每克為0.05元。試編輯一種程序。

clear

input”請(qǐng)輸入包裹的重量：”tow

ifw<=120

f=w*0.06

else

f=(w-120)*0.05+120*0.06

endif

?”該包裹的費(fèi)用為：”,f,”元”

return例3：任意輸入年份，可判斷出與否為閏年。判斷的原則是：能被4整除但不能被100整除或者能被400整除。

clear

input”輸入年份：”toy

ify%4=0.and.y%100<>0.or.y%400=0&&%表達(dá)取余運(yùn)算

*ifmod(y,4)=0.and.mod(y,100)!=0.or.mod(y,400)=0&&該句是注釋語(yǔ)句，程序不運(yùn)行

?y,”為閏年”

else

?y,”不是閏年”

endif

return例4：任意輸入職工號(hào)，根據(jù)職工號(hào)進(jìn)行定位，找到并顯示出該職工號(hào)所對(duì)應(yīng)的記錄，假如找不到就顯示“查無(wú)此人”。

clear

opendatabase職工管理

use職工狀況表exclusive

accept”請(qǐng)輸入要查找的職工號(hào)：”tos

locatefor職工號(hào)=s

iffound()

waitwindowat23,45timeout10

disp

else

?”查無(wú)此人”

endif

use

closedatabase

return例5：同樣運(yùn)用職工號(hào)進(jìn)行定位查詢，找到后先不顯示，判斷是男性記錄或女性記錄，再分別顯示，否則顯示“查無(wú)此人”。

clear

opendatabase職工管理

use職工狀況表exclusive

accept”請(qǐng)輸入職工號(hào)”tow

locatefor職工號(hào)=w

if!found()

?”查無(wú)此人”

else

if性別=’男’

wait″該記錄為男性記錄″windowtimeout10

disp

else

wait″該記錄為女性記錄″windowtimeout10

endif

endif

use

closedatabase

return2、多分支選擇構(gòu)造

語(yǔ)句格式：

DOCASE

CASE<條件1>

<語(yǔ)句序列1>

CASE<條件2>

<語(yǔ)句序列2>

……

CASE<條件N>

<語(yǔ)句序列N>

[OTHERWISE]

<語(yǔ)句序列>

ENDCASE

闡明：語(yǔ)句執(zhí)行時(shí)，依次判斷CASE背面的條件與否成立。當(dāng)發(fā)現(xiàn)某個(gè)CASE背面的條件成立時(shí)，就執(zhí)行該CASE和下一種CASE之間的命令序列，然后執(zhí)行ENDCASE背面的命令。假如所有的條件都不成立，則執(zhí)行OTHERWISE與ENDCASE之間的命令序列，然后轉(zhuǎn)向ENDCASE背面的語(yǔ)句。

功能注釋：

⑴不管有幾種CASE條件成立，只有最先成立的那個(gè)CASE條件的對(duì)應(yīng)命令序列被執(zhí)行。

⑵假如所有的CASE條件都不成立，且沒(méi)有OTHERWISE子句，則直接跳出本構(gòu)造。

⑶DOCASE和ENDCASE必須成對(duì)出現(xiàn)，DOCASE是本構(gòu)造的入口，ENDCASE是本構(gòu)造的出口。

⑷DOCASE和ENDCASE可以出現(xiàn)嵌套，有一種DOCASE結(jié)尾必須有一種ENDCASE對(duì)應(yīng)。例1：settalkoff

clear

input”輸入X的值：”tox

docase

casex<0

y=2*abs(x)-1&&ABS是取絕對(duì)值函數(shù)

casex>=0.and.x<4

y=3**x+5&&**是乘方運(yùn)算

casex>=4.and.x<8

y=5*int(x)+1&&int取整函數(shù)

casex>=8.and.x<10

y=5^x-3&&^是乘方運(yùn)算

otherwise

y=7*sqrt(x)+2&&sqrt是求平方根函數(shù)

endcase

?’f(’,x,’)=’,y

settalkon

return例2：運(yùn)用菜單進(jìn)行維護(hù)表

settalkoff

clear

opendatabase職工管理

use職工狀況表exclusive

text

1—修改記錄

2—追加記錄

3—?jiǎng)h除記錄

4—查找記錄

5—替代記錄

6—退出

endtext

wait”請(qǐng)選擇（1-6）”tow

docase

casew=’1’

browseallfields姓名，基本工資，獎(jiǎng)金

casew=’2’

appendblank

casew=’3’

deleteallfor基本工資=0

pack

casew=’4’

accept”輸入職工號(hào)：”tox

locatefor職工號(hào)=x

iffound()

wait”該記錄顯示如下”windowat12,21timeout5

disp

else

?”對(duì)不起，查無(wú)此人”

endif

casew=’5’

replaceall基本工資with基本工資+150,獎(jiǎng)金with獎(jiǎng)金+100for工齡>3

list

casew=’6’

cancel

endcase

closedatabase

use

settalkon

return3、dowhil-enddo循環(huán)構(gòu)造

語(yǔ)句格式：

dowhile<條件>

<語(yǔ)句序列1>

[loop]

<語(yǔ)句序列2>

[exit]

<語(yǔ)句序列3>

enddo

闡明：

執(zhí)行該語(yǔ)句時(shí)，先判斷DOWHILE處的循環(huán)條件與否成立，假如條件為真，則執(zhí)行DOWHILE與ENDDO之間的命令序列。當(dāng)執(zhí)行到ENDDO時(shí)，返回DOWHILE，再次判斷循環(huán)條件與否為真，以確定與否再次執(zhí)行循環(huán)體。若條件為假，則結(jié)束該循環(huán)語(yǔ)句，執(zhí)行ENDDO背面的語(yǔ)句。

功能注釋：

⑴假如第一次判斷條件時(shí)，條件為假，則循環(huán)體一次都不執(zhí)行。

⑵假如循環(huán)體包括LOOP命令，則當(dāng)碰到LOOP時(shí)，就結(jié)束循環(huán)體的本次運(yùn)行，不再執(zhí)行其背面的語(yǔ)句，而是轉(zhuǎn)回到DOWHILE處重新判斷條件。

⑶假如循環(huán)體包括EXIT命令，則當(dāng)碰到EXIT時(shí)，就結(jié)束該語(yǔ)句的執(zhí)行，轉(zhuǎn)去執(zhí)行ENDDO背面的語(yǔ)句。

⑷一般LOOP或EXIT出目前循環(huán)體內(nèi)嵌套的選擇語(yǔ)句中，根據(jù)條件來(lái)決定是LOOP回去，還是EXIT出去。

⑸DOWHILE和ENDDO必須成對(duì)出現(xiàn)，有一種DOWHILE就必須有一種ENDDO。例1：計(jì)算1+2+3+……100的和

解題思緒：

⑴引進(jìn)變量s和I,s用來(lái)保留累加的成果，初值為0；i既作為被累加的數(shù)據(jù)，也作為控制循環(huán)條件與否成立的變量，初值為1

⑵反復(fù)執(zhí)行命令s=s+i和i=i+1，i直至的值超過(guò)100。每一次執(zhí)行，s的值累加，i的值增長(zhǎng)1。

clear

settalkoff

s=0

i=1

dowhilei<=100

s=s+I

i=i+1

enddo

?s

settalkon

return

顯示成果為：5050例2：逐條顯示性別為女的記錄

clear

settalkoff

opendatabase職工管理

use職工狀況表exclusive

locatefor性別=’女’

dowhile.not.eof()

disp

continue

enddo

closedatabase

settalkon

return例3：反復(fù)查找記錄

clea

settalkoff

dowhiel.t.

opendatabase職工管理

use職工狀況表exclusive

locatefor性別=’女’

iffound()

waitwindow

disp

else

?”查無(wú)此人！”

endif

wait”與否繼續(xù)（Y/N）”tok

ifupper(k)=’Y’

loop

else

exit

endif

enddo

closedatabase

settalkon

return例4：九九乘法表

clear

settalkoff

i=1

dowhilei<=9

j=1

dowhilei<=j

??alltrim(str(i))+’*’+allttrim(stri(j))+’=’+alltrim(str(i*j))+space(3)

j=j+1

enddo

i=i+1

enddo4、FOR-ENDFOR步長(zhǎng)循環(huán)

語(yǔ)句格式：

FOR<內(nèi)存變量>=<初值>TO<終值>[STEP<步長(zhǎng)>]

<循環(huán)體>

ENDFOR|NEXT

闡明：執(zhí)行該語(yǔ)句時(shí)，首先將初值賦給內(nèi)存變量，然后判斷循環(huán)條件與否成立（若步長(zhǎng)為正值，<內(nèi)存變量><=<終值>,即步長(zhǎng)遞增；若步長(zhǎng)為負(fù)值，循環(huán)條件為<循環(huán)變量>>=<終值>,即步長(zhǎng)遞減。），若成立，則執(zhí)行循環(huán)體，然后循環(huán)變量增長(zhǎng)一種步長(zhǎng)值，并再次判斷循環(huán)條件與否成立，以確定與否再次執(zhí)行循環(huán)體。若循環(huán)條件不成立，則結(jié)束該循環(huán)語(yǔ)句，執(zhí)行ENDFOR背面的語(yǔ)句。

功能注釋：

⑴<步長(zhǎng)>的默認(rèn)值為1。

⑵<初值>、<終值>、<步長(zhǎng)>都可以是數(shù)值體現(xiàn)式。但這些體現(xiàn)式僅在循環(huán)語(yǔ)句執(zhí)行開始時(shí)被計(jì)算一次。在循環(huán)語(yǔ)句的執(zhí)行過(guò)程中，初值、終值和步長(zhǎng)是不會(huì)變化的。

⑶可以在循環(huán)體內(nèi)變化循環(huán)變量的值，但這會(huì)影響循環(huán)體的執(zhí)行次數(shù)。

⑷EXIT和LOOP命令同樣可以出目前該循環(huán)語(yǔ)句的循環(huán)體內(nèi)。當(dāng)執(zhí)行到LOOP命令時(shí)，結(jié)束循環(huán)體的本次運(yùn)行，然后循環(huán)體增長(zhǎng)一種步長(zhǎng)值，并再次判斷循環(huán)條件與否成立。例1：顯示1到1000的數(shù)字

settalkoff

clear

fork=1to1000

?k

endfor例2：顯示1到1000的數(shù)字，一行顯示10個(gè)。

settalkoff

clear

fork=1to1000

??k&&兩個(gè)？號(hào)表達(dá)在目前行顯示內(nèi)容

ifmod(k,10)=0?

?&&表達(dá)換行

endif

endfor

settalkon

return例3：找出100-999之間的所有“水仙花數(shù)”。所謂“水仙花數(shù)”是指一種三位數(shù)，其各位數(shù)字的立方和等于該數(shù)自身。

如：153=1^3+5^3+3^3

settalkoff

clear

forI=100to999

a=int(i/100)

b=int((i-100*a)/10)

c=i-int(i/10)*10

ifi=a^3+b^3+c^3

?i

en