1、VFP常見編程實(shí)例1、1-100的累加* *求1到100的累加值CLEARs=0i=1DOWHILEi=100s=s+ii=i+1&一定記住先累加后循環(huán)ENDDO?sRETURN2、階乘* *求5的階乘CLEARj=1i=1DOWHILEi=5j=j*ii=i+1ENDDO?jRETURN3、求階乘和* *求1至5的階乘和CLEARs=0i=1j=1DOWHILEi=5j=j*is=s+ji=i+1ENDDO?sRETURN4、條件定位* *查詢定位記錄指針在趙偉上CLEARUSE學(xué)生LOCATEFORE名=趙偉”IFFOUND()DISPLAYELSECANCELENDIFCONTINUE5

2、、用scan語句查詢定位* *用scan語句查詢定位記錄在趙偉上CLEARSCANFOR生名=趙偉”DISPLAYENDSCANRETURN6、用scan語句掃描符合條件的記錄，并顯示出來* *把年齡小于30歲的人顯示出來CLEARSCANFOFR齡30DISPLAYENDSCANRETURN7、查找男性職工* *查找男性職工CLEARLOCATEFO勝別=男DOWHILEFOUND()DISPLAYCONTINUEENDDORETURN* *查找男性職工CLEARLOCATEFO勝別=男DOWHILENOTEOF()DISPLAYCONTINUEENDDORETURN* *查找男性職工CLE

3、ARUSE職員基本信息表LOCATEFO勝別=男DOWHILE.t.IFFOUND()thenDISPLAYELSE&己住最后一個ELSE語句后面不需要條件表達(dá)式CANCELENDIFCONTINUEENDDO* *查找男性職工settalkoffclearopendatabase家庭成員管理.dbcusestu.dbfscanfornoteof()ifxb=女skipelsedisplayskipendifendscanclosedatabaseusesettalkonreturn8、新值換舊值*有一對新生的兔子，從第三個月開始，每個月出生一對兔子，請問到第十二個月共出生多少對兔子？clea

4、rstore1toa,bi=3dowhilei=12c=a+ba=bb=ci=i+1enddo?”一年共出生兔子：,creturn9、多位整數(shù)各個位數(shù)相加*求多位整數(shù)各個位數(shù)之和CLEARs=0input請輸入一個多位整數(shù)：toaDOWHILEa0s=s+MOD(a,10)&將a取余正好是個位上的數(shù)a=INT(a/10)&將a除10取整正好是除個位之后的數(shù)ENDDO?這個整數(shù)的各個位數(shù)之和是：”,sRETURN10、找100-999之間的“水仙花數(shù)”CLEARFORi=100TO999a=INT(i/100)b=INT(i-100*a)/10)c=i-INT(i/10)*10IFi=aA3+b

5、A3+cA3?iENDIFENDFORRETURN11、判斷一個大于3的數(shù)是否為素數(shù)CLEARinput請輸入一個數(shù)(=3):tosf=0i=2DOWHILEi=INT(SQRT(s)IFMOD(s,i)0i=i+1LOOPELSEf=1EXITENDIFIFf=0?str(s,3)+是素數(shù)ELSEf=1&啦個表達(dá)式可有可無，為了省事完全省略也可以一般最后一個ELSE語句后面不需要表達(dá)式?str(s,3)+不是素數(shù)ENDIFRETURN12、求一個班級每個學(xué)生的平均成績*計算一個班級共三十名學(xué)生，每位學(xué)生5門功課的平均成績CLEAR&清屏DIMENSIOIX(30,5)&定義一個數(shù)組變量，r為

6、學(xué)生數(shù)，i為功課數(shù)r=1&給30個學(xué)生的計數(shù)變量r賦初值1DOWHILEr=30&循環(huán)30次，以計算出30個學(xué)生的平均成績s=0&為學(xué)生一門功課成績賦初值0i=1&為五門功課計數(shù)變量賦初值1DOWHILEi=97ANDk=122then&97是小寫字母a的ASC碼值，122是小寫字母z的ASC馬值?x,的大寫字母是,CHR(k-32)&輸出大寫字母.chr函數(shù)是ASC碼所對應(yīng)的字符ELSEWAIT”您輸入的不是小寫字母WINDOWTIMEOUT5cancelENDIFRETURN&返回到調(diào)用程序15、找出最大數(shù)和最小數(shù)CLEARinput請輸入一個數(shù)：toxSTORExTOma,miFORi=

7、2TO10&因為已經(jīng)輸入一個數(shù)X,所以循環(huán)次數(shù)只有9次input請輸入一個數(shù)：toxIFmaxmi=xENDIFENDFOR?”最大數(shù)是：,ma?”最小數(shù)是：”,miRETURN16、絕對值函數(shù)的實(shí)現(xiàn)*絕對值函數(shù)的實(shí)現(xiàn)CLEARinput請輸入一個數(shù)值tonIFn=0?nELSE?-nENDIFCANCEL17、絕對值函數(shù)實(shí)現(xiàn)的另一種方法*絕對值函數(shù)和另一種實(shí)現(xiàn)方法CLEARinput請輸入一個數(shù)值ton?IIF(n=0,n,-n)CANCEL18、輸出成績等級* *用DOCAS睛句實(shí)現(xiàn)：CLEARinput請輸入一個成績tocjDOcaseCASEcj=90dj=優(yōu)秀CASEcj=80dj=

8、良好CASEcj=60dj=合格OTHERWISEdj=不合格ENDCASE?djRETURN* *用IF語句實(shí)現(xiàn)：settalkoffclearinput請輸入一個成績：tosifs=90grade=優(yōu)秀elseifs=80grade=良好elseifs=60grade=及格elsegrade=不及格endifendifendif?ltrim(str(s)+”分對應(yīng)的等級是：+gradesettalkonreturn19、求一名學(xué)生的平均成績* *求一個學(xué)生5門功課的平均成績CLEARs=0i=1DOWHILEi=5input請輸入各門功課的成績toxs=s+xi=i+1ENDDO?s/52

9、0、用數(shù)組的方法，計算一個學(xué)生的平均成績*用數(shù)組保存一個學(xué)生五門功課的成績，然后再計算機(jī)其平均成績CLEARDIMENSIONx(5)s=0i=1DOWHILEi0s=1CASEn=0s=0CASEn0s=1ELSEIFn=0s=0IFn0s=1ENDIFIFn0s=-1ENDIF?s24、打開數(shù)據(jù)庫和數(shù)據(jù)表SETtalkoffCLEARaccept請輸入數(shù)據(jù)庫名toxOPENDATABASE&xaccept請輸入數(shù)據(jù)表名toyUSE&yLISTuseSETtalkoffreturn25、顯示表中指定信息SETTALKOFFCLEAROPENDATABASE代超越總公司職員信息數(shù)據(jù)庫USE職員

10、基本信息表WAIT”請輸入待查職工的編號(1-3)”TOnIFVAL(n)3WAIT”輸入無效，結(jié)束程序運(yùn)行！WINDOWtimeout5RETURNSTORE0+nTOaLISTfor職員編號二aENDIFCLOSEDATABASESSETTALKONreturn26、詢問后再由用戶按(Y/N)鍵執(zhí)行的程序?qū)崿F(xiàn)*求任意一個數(shù)的階乘CLEARDOWHILE.t.input請輸入一個數(shù)tonp=1s=0FORi=1TOnp=p*is=s+pENDFOR?sWAIT”是否繼續(xù)計算(Y/N)TOynwindowIFUPPER(yn尸YTHENLOOPELSEEXITENDIFENDDORETURN2

11、7、根據(jù)exact的設(shè)置進(jìn)行字符串匹配比較*exact設(shè)置的變化對取值結(jié)果的影響SETexactON&exact為打開狀態(tài)，字符精確匹配s=in+SPACE(2)IFs=inIFs=in?aELSE?bENDIFELSEIFs=in?cELSE?dENDIFENDIFRETURN28、使一個多位正整數(shù)逆序排列CLEARinput請輸入一個整數(shù)：toxDOWHILEx0y=x%10?yx=INT(x/10)ENDDORETURN29、按編號查找并列出一條記錄settalkoffclearaccept”請輸入數(shù)據(jù)庫名：家庭成員管理：toaopendatabaseaccept請輸入數(shù)據(jù)表名：stu：

12、tobuselistwait請輸入一個編號：tocwindowstimeout5ifval4wait輸入的數(shù)字不合法，請重新輸入一個合法的數(shù)字：tocwindowstimeout5elsestore0+ctoaaalistforbh=aaaendifclosedatabasesettalkonreturn30、打開一個數(shù)據(jù)庫，并顯示其中的表內(nèi)容settalkoffclearaccept請輸入一個數(shù)據(jù)庫名：家庭成員管理.dbctoxopendatabaseaccept請輸入一個數(shù)據(jù)表名：stu.dbftoyuselistusesettalkonreturn30、驗證密碼程序：settalkoff

13、clearaccept請輸入密碼：toaaaifaaa=abcclearwait歡迎使用本系統(tǒng)！elsewait密碼錯誤，程序?qū)⒃?秒鐘退出！windowstimeout5endifsettalkonreturn31、編程求稅金settalkoffclearinput請輸入營業(yè)收入：topdocasecasep800r=0casep=2000r=0.05casep=5000r=0.1endcasex=p*r?”應(yīng)納稅金為：,xsettalkonreturn32、用三角形列出乘法口訣表：settalkoffclearX=1DOWHILEX=9Y=1DOWHILEY=XS=X*Y?STR(Y,1)

14、+*+STR(X,1)+”=+STR(S,2)+”Y=Y+1X=X+1ENDDOSETTALKONRETURN33、將變量A、B值互換：a=1b=2a=a+bb=a-ba=a-b?a,b34、找出已知三個數(shù)的中間數(shù)：INPUT”請輸入a的值：TOaINPUT”請輸入b的值：TObINPUT”請輸入c的值：”TOcIFMAX(a,b)c?MAX(a,b)ELSEIFMIN(a,b)cELSE?MIN(a,b)ENDIFENDIF35、調(diào)用子程序：*MAIN.PRGSETTALKOFF?”正在執(zhí)行主程序”DOSUB1SETTALKONProcedureSUB1?”正在執(zhí)行SUBfRETURN36、用參數(shù)傳遞計算圓的面積：settalkoffclearinput請輸入圓的半徑tors=0&用參數(shù)傳遞計算必須給實(shí)際參數(shù)賦初值do arer with r,s&蜩用子程序，并指定實(shí)際參數(shù)r,s?”圓的面積為：”,ssettalkon?procedurearer&被調(diào)用的子程序arerparameterx,y&指定的形式參數(shù)x,yy=3.14*xA2returnsettalkon37、我國古代數(shù)學(xué)家張