vfp程序與程序文件

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

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

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

⑴能夠運(yùn)用編輯器，方便地輸入、修改和保存程序。

⑵能夠用多個(gè)方式，多次運(yùn)行程序。

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

⑷它是一種自動(dòng)解決方式。

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

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

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

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

⑷在程序中允許使用注釋語句：用“*”或“&&”或NOTE開頭，命令行后也能夠用注釋，用“&&”開頭，固然注釋語句能夠有能夠無，在程序運(yùn)行時(shí)不運(yùn)行注釋語句。

⑸在編輯程序中，并不是每句都執(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：在彈出的“程序”框中，能夠輸入語句。

環(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”來保存文獻(xiàn)。

也能夠用命令動(dòng)詞來建立或修改程序文獻(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í)，為了讓程序多樣化、靈活化，能夠?qū)Τ绦虻倪\(yùn)行加以顧客的規(guī)定，從而使程序更加符合顧客的規(guī)定，對(duì)程序的控制普通通過交互式命令來控制程序運(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ù)暫無，把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ù)，即無論輸入何種數(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)顯示統(tǒng)計(jì)

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所示，選擇“取消”即可修改程序。

無視：跳過出錯(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ì)顯示任何提示，如果沒有指定<符體現(xiàn)式>，則顯示系統(tǒng)默認(rèn)的提示信息“按任意鍵繼續(xù)……”。

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

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

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

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

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

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

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

⑼參數(shù)能夠在一起混用，但NOCLEAR和CLEAR不能在同一行使用，一行語句能夠使用多個(gè)參數(shù)。

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

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

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

語句格式：

IF<條件>

<語句序列1>

[ELSE

<語句序列2>]

ENDIF

功效注釋：

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

⑵無ELSE子句時(shí)，能夠看作第二組代碼不涉及任何命令。如果<條件>成立，則執(zhí)行<語句序列1>，然后轉(zhuǎn)向ENDIF的下一條語句；否則直接轉(zhuǎn)向ENDIF的下一條語句去執(zhí)行。

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

⑷條件語句能夠嵌套，但不能交叉。在嵌套時(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克以上，超出的重量每克為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ùn)行

?y,”為閏年”

else

?y,”不是閏年”

endif

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

clear

opendatabase職工管理

use職工狀況表exclusive

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

locatefor職工號(hào)=s

iffound()

waitwindowat23,45timeout10

disp

else

?”查無此人”

endif

use

closedatabase

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

clear

opendatabase職工管理

use職工狀況表exclusive

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

locatefor職工號(hào)=w

if!found()

?”查無此人”

else

if性別=’男’

wait″該統(tǒng)計(jì)為男性統(tǒng)計(jì)″windowtimeout10

disp

else

wait″該統(tǒng)計(jì)為女性統(tǒng)計(jì)″windowtimeout10

endif

endif

use

closedatabase

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

語句格式：

DOCASE

CASE<條件1>

<語句序列1>

CASE<條件2>

<語句序列2>

……

CASE<條件N>

<語句序列N>

[OTHERWISE]

<語句序列>

ENDCASE

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

功效注釋：

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

⑵如果全部的CASE條件都不成立，且沒有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—修改統(tǒng)計(jì)

2—追加統(tǒng)計(jì)

3—?jiǎng)h除統(tǒng)計(jì)

4—查找統(tǒng)計(jì)

5—替代統(tǒng)計(jì)

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”該統(tǒng)計(jì)顯示以下”windowat12,21timeout5

disp

else

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

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)造

語句格式：

dowhile<條件>

<語句序列1>

[loop]

<語句序列2>

[exit]

<語句序列3>

enddo

闡明：

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

功效注釋：

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

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

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

⑷普通LOOP或EXIT出現(xiàn)在循環(huán)體內(nèi)嵌套的選擇語句中，根據(jù)條件來決定是LOOP回去，還是EXIT出去。

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

解題思路：

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

⑵重復(fù)執(zhí)行命令s=s+i和i=i+1，i直至的值超出100。每一次執(zhí)行，s的值累加，i的值增加1。

clear

settalkoff

s=0

i=1

dowhilei<=100

s=s+I

i=i+1

enddo

?s

settalkon

return

顯示成果為：5050例2：逐條顯示性別為女的統(tǒng)計(jì)

clear

settalkoff

opendatabase職工管理

use職工狀況表exclusive

locatefor性別=’女’

dowhile.not.eof()

disp

continue

enddo

closedatabase

settalkon

return例3：重復(fù)查找統(tǒng)計(jì)

clea

settalkoff

dowhiel.t.

opendatabase職工管理

use職工狀況表exclusive

locatefor性別=’女’

iffound()

waitwindow

disp

else

?”查無此人！”

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)

語句格式：

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

<循環(huán)體>

ENDFOR|NEXT

闡明：執(zhí)行該語句時(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)值，并再次判斷循環(huán)條件與否成立，以擬定與否再次執(zhí)行循環(huán)體。若循環(huán)條件不成立，則結(jié)束該循環(huán)語句，執(zhí)行ENDFOR背面的語句。

功效注釋：

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

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

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

⑷EXIT和LOOP命令同樣能夠出現(xiàn)在該循環(huán)語句的循環(huán)體內(nèi)。當(dāng)執(zhí)行到LOOP命令時(shí)，結(jié)束循環(huán)體的本次運(yùn)行，然后循環(huán)體增加一種步長(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á)在現(xiàn)在行顯示內(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