vfp程序與程序文件

一、1、程序的概念2、3、編程中要遵照的原則4、2：在彈出的“程序”3：保存文獻(xiàn)。從“文獻(xiàn)”的下拉菜單中選擇“保存”或“另存為”或用快捷鍵“CTRL+W”,在“另存2：從文獻(xiàn)類型中選擇“程序”。3：從“搜尋”4：從文獻(xiàn)列表框中選擇要修改的文獻(xiàn)，并單擊“擬定”環(huán)節(jié)2：在命令窗口輸入“DO文獻(xiàn)名”，也能夠運(yùn)行程序1、命令格式：INPUT字符串體現(xiàn)式TO例1Input”請輸入一種數(shù)：”toaInput”請輸入一種數(shù)：”to?a&&?b&&c=a&&Cac中a=b&&aba中b=c&&c中的數(shù)據(jù)（a中的數(shù)據(jù)）b中?”換位后的2ACCEPT命令格式：ACCEPT字符體現(xiàn)式to例2opendatabaseuse職工狀況表exclusiveaccept”請輸入職工號：towlistfor職工號=wclosedatabase面中只需要選擇“取消”無視：跳過出錯行，程序繼續(xù)往下運(yùn)行。3、WAIT命令格式：字符體現(xiàn)式>][to<內(nèi)存變量>][window[at行>,<列>]][nowait][clar|noclear][tieout<數(shù)值體現(xiàn)式>]⑵[]中的內(nèi)容都是參數(shù)，能夠加能夠不加，只有一種t是系統(tǒng)會出現(xiàn)提示信息：“按任意鍵繼續(xù)……”。⑶<內(nèi)存變量>Enter鍵或單擊了鼠標(biāo)，那么<內(nèi)存變量>TO<內(nèi)存變量>短語，輸入的單字符不保存。WINDOWWAIT提示窗口，用以顯示提示信息。提示窗口普通顯示在主窗口中AT短語指定（某行某列）其在主窗口的位置。提示窗口。NOWAITNOCLEARWAITWINDOWWAITCLEAR命令為止。⑻TIMEOUT意思為時間限制，等待的時間為秒，在限定的秒數(shù)內(nèi)，顧客輸入數(shù)據(jù)或按任意鍵，程三、1條件選擇構(gòu)造IF<條件ELSE子句時，兩組可供選擇的代碼分別是<1>和<2>。如果<條件>成立，則執(zhí)行<1>，否則執(zhí)行<2>ENDIF的下一條語句。ELSE子句時，能夠看作第二組代碼不涉及任何命令。如果<條件>成立，則執(zhí)行<1>，然ENDIFENDIF的下一條語句去執(zhí)行。⑶IFENDIF必須成對出現(xiàn)，IF是本構(gòu)造的入口，ENDIF⑸<條件>的形式是比較運(yùn)算或邏輯運(yùn)算，只要最后成果為邏輯型即可。即.T.或IFENDIF例1inputx的值″toifx<0例21200.06元，1200.05元。試編輯一種程序。input”請輸入包裹的重量：”towifw<=120f=(w-例34100input”輸入年份：”toify%4=0.and.y%100<>0.or.y%400=0&&%*ifmod(y,4)=0.and.mod(y,100)!=0.or.mod(y,400)=0&&opendatabaseuse職工狀況表accept”請輸入要查找的職工號：”toslocatefor職工號=sifwaitwindowat23,45timeout10closedatabase例5顯示“查無此人”opendatabase職工管理useexclusiveaccept”請輸入職工號”towlocatefor職工號=wifif性別=’男wait該統(tǒng)計(jì)為男性統(tǒng)計(jì)″windowtimeout10wait該統(tǒng)計(jì)為女性統(tǒng)計(jì)″windowtimeout10closedatabase2、DOCASECASE1><CASE<<CASE<<N>OTHERWISEENDCASEENDCASE背面的語句。CASECASECASEOTHERWISE⑶DOCASEENDCASE必須成對出現(xiàn)，DOCASE是本構(gòu)造的入口，ENDCASE⑷DOCASEENDCASEDOCASEENDCASE1：settalkoffinput”X的值：toxdocasecasey=2*abs(x)-1&&ABS是取絕對值函數(shù)casex>=0.and.x<4y=3**x+5&&**是乘方運(yùn)算casex>=4.and.x<8y=5*int(x)+1&&int取整函數(shù)casex>=8.and.x<10y=5^x-3&&^y=7*sqrt(x)+2&&sqrt是求平方根函數(shù)?’fsettalkon例2settalkoffopendatabaseuseexclusive1—2—3—4—5—6—wait”請選擇（1-6）”towdocasecasebrowseallfieldscasew=’2’appendblankcasew=’3’deleteallfor基本工資caseaccept”輸入職工號：”toxlocatefor職工號=xifwait”該統(tǒng)計(jì)顯示以下windowat12,21timeout5casereplaceallwith基本工資+150,with獎金+100for工齡>3casew=’6’closedatabasesettalkon3、dowhilenddodowhile條件DOWHILEDOWHILE與ENDDO背面的語句。LOOPLOOP時，就結(jié)束循環(huán)體的本次運(yùn)行，不再執(zhí)行其背面的DOWHILE處重新判斷條件。⑷普通LOOP或EXITLOOP⑸DOWHILEENDDODOWHILEENDDO11+2+3+……100的和1s=s+ii=i+1，i100。每一次執(zhí)行，s的值累加，i1。settalkoffdowhilei<=100settalkon例2settalkopendatabase職工管理useexclusivelocatefor性別=’女’dowhile.not.eof()closedatabasesettalkon例3settalkoffdowhielopendatabaseuseexclusivelocatefor性別=’女’iffound()waitwindowwait”與否繼續(xù)（Y/N）”tokifupper(k)=’Y’closedatabasesettalkon例4settalkdowhilei<=9dowhile4、FOR-ENDFORFOR內(nèi)存變量>=<初值>TO終值>[STEP<步長<循環(huán)體ENDFOR背面的語句。⑴<步長>1⑷EXITLOOPLOOP命令時，結(jié)束循環(huán)例111000settalkofffork=1to例21100010settalkofffork=1to??k&&if?&&settalkon例settalkoffforI=100to999ifsettalkon例410settalkoffinput”請輸入一種數(shù)：”tostorextoma,mifori=2to10input”請輸入一種數(shù)：”toifma<xifmi>=xsettalk?”例5110000settalkoffforp=1to10000settalkon5、SCAN-ENDSCAN<循環(huán)體⑵EXITL