2022年VFP常見編程實例

1、vfp常見編程實例1、1-100的累加* 求1到100的累加值clear s=0 i=1 do while i=100 s=s+i i=i+1 & 一定記住先累加后循環(huán)enddo ?s return 2、階乘* 求5的階乘clear j=1 i=1 do while i=5 j=j*i 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 1 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 1 頁，共 28 頁 - - - - - - - - -i=i+

2、1 enddo ?j return 3、求階乘和* 求1至5的階乘和clear s=0 i=1 j=1 do while i=5 j=j*i s=s+j i=i+1 enddo ?s return 4、條件定位精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 2 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 2 頁，共 28 頁 - - - - - - - - -* 查詢定位記錄指針在趙偉上clear use 學(xué)生locate for 姓名=趙偉 if f

3、ound() display else cancel endif continue 5、用 scan 語句查詢定位* 用 scan 語句查詢定位記錄在趙偉上clear scan for 姓名=趙偉 display endscan return 6、用 scan 語句掃描符合條件的記錄，并顯示出來* 把年齡小于 30歲的人顯示出來精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 3 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 3 頁，共 28 頁 - -

4、- - - - - - -clear scan for 年齡30 display endscan return 7、查找男性職工* 查找男性職工clear locate for 性別=男 do while found() display continue enddo return * 查找男性職工clear locate for 性別=男 do while not eof() display continue 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 4 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - -

5、 - - - - - - - - - - - - 第 4 頁，共 28 頁 - - - - - - - - -enddo return * 查找男性職工clear use 職員基本信息表locate for 性別=男 do while .t. if found() then display else & 記住最后一個 else語句后面不需要條件表達(dá)式 cancel endif continue enddo * 查找男性職工 set talk off clear open database 家庭成員管理 .dbc use stu.dbf 精品學(xué)習(xí)資料 可選擇p d f - - - - -

6、 - - - - - - - - - 第 5 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 5 頁，共 28 頁 - - - - - - - - -scan for not eof() if xb=女 skip else display skip endif endscan close database use set talk on return 8、新值換舊值* 有一對新生的兔子，從第三個月開始，每個月出生一對兔子，請問到第十二個月共出生多少對兔子？clear store 1 to a,b i

7、=3 do while i=12 c=a+b a=b 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 6 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 6 頁，共 28 頁 - - - - - - - - -b=c i=i+1 enddo ?一年共出生兔子： ,c return 9、多位整數(shù)各個位數(shù)相加* 求多位整數(shù)各個位數(shù)之和clear s=0 input 請輸入一個多位整數(shù) : to a do while a0 s=s+mod(a,10) &

8、將 a 取余正好是個位上的數(shù)a=int(a/10) &將 a 除10取整正好是除個位之后的數(shù)enddo ?這個整數(shù)的各個位數(shù)之和是：,s return 10、找100-999之間的“水仙花數(shù)”clear for i=100 to 999 a=int(i/100) 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 7 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 7 頁，共 28 頁 - - - - - - - - - b=int(i-100*a)/

9、10) c=i-int(i/10)*10 if i=a3+b3+c3 ?i endif endfor return 11、判斷一個大于 3的數(shù)是否為素數(shù)clear input 請輸入一個數(shù) (=3): to s f=0 i=2 do while i=int(sqrt(s) if mod(s,i)0 i=i+1 loop else f=1 exit endif enddo 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 8 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - -

10、 - - 第 8 頁，共 28 頁 - - - - - - - - - if f=0 ?str(s,3)+是素數(shù) else f=1 &這個表達(dá)式可有可無，為了省事完全省略也可以。一般最后一個 else語句后面不需要表達(dá)式 ?str(s,3)+不是素數(shù) endif return 12、求一個班級每個學(xué)生的平均成績* 計算一個班級共三十名學(xué)生，每位學(xué)生5門功課的平均成績clear & 清屏dimension x(30,5) & 定義一個數(shù)組變量， r 為學(xué)生數(shù)， i 為功課數(shù)r=1 & 給30個學(xué)生的計數(shù)變量r 賦初值 1 do while r=30 & 循

11、環(huán)30次，以計算出 30個學(xué)生的平均成績 s=0 & 為學(xué)生一門功課成績賦初值0 i=1 & 為五門功課計數(shù)變量賦初值1 do while i=97 and k=122 then & 97是小寫字母 a 的 asc碼值，122是小寫字母 z 的 asc碼值?x, 的大寫字母是 ,chr(k-32) & 輸出大寫字母 .chr 函數(shù)是 asc精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 10 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - -

12、- - - 第 10 頁，共 28 頁 - - - - - - - - -碼所對應(yīng)的字符else wait 您輸入的不是小寫字母 window timeout 5 cancel endif return & 返回到調(diào)用程序15、找出最大數(shù)和最小數(shù)clear input 請輸入一個數(shù)： to x store x to ma,mi for i=2 to 10 &因為已經(jīng)輸入一個數(shù)x，所以循環(huán)次數(shù)只有9次input 請輸入一個數(shù)： to x if max mi=x endif endfor ?最大數(shù)是： ,ma 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - -

13、- - - - 第 11 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 11 頁，共 28 頁 - - - - - - - - -?最小數(shù)是： ,mi return 16、絕對值函數(shù)的實現(xiàn)* 絕對值函數(shù)的實現(xiàn)clear input 請輸入一個數(shù)值 to n if n=0 ?n else ?-n endif cancel 17、絕對值函數(shù)實現(xiàn)的另一種方法* 絕對值函數(shù)和另一種實現(xiàn)方法clear input 請輸入一個數(shù)值 to n ?iif(n=0,n,-n) cancel 18、輸出成績等級精品學(xué)

14、習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 12 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 12 頁，共 28 頁 - - - - - - - - -* 用 do case 語句實現(xiàn)：clear input 請輸入一個成績 to cj do case case cj=90 dj=優(yōu)秀 case cj=80 dj=良好 case cj=60 dj=合格 otherwise dj=不合格 endcase ?dj return * 用 if 語句實現(xiàn)：set

15、 talk off clear input 請輸入一個成績： to s if s=90 grade=優(yōu)秀 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 13 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 13 頁，共 28 頁 - - - - - - - - - else if s=80 grade=良好 else if s=60 grade=及格 else grade=不及格 endif endif endif ?ltrim(str(s)+分對應(yīng)的等

16、級是： +grade set talk on return 19、求一名學(xué)生的平均成績* 求一個學(xué)生 5門功課的平均成績clear s=0 i=1 do while i=5 input 請輸入各門功課的成績 to x s=s+x 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 14 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 14 頁，共 28 頁 - - - - - - - - -i=i+1 enddo ?s/5 20、用數(shù)組的方法，計算一個學(xué)生的平

17、均成績* 用數(shù)組保存一個學(xué)生五門功課的成績，然后再計算機(jī)其平均成績clear dimension x(5) s=0 i=1 do while i0 s=1 case n=0 s=0 case n0 s=1 else if n=0 s=0 else 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 16 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 16 頁，共 28 頁 - - - - - - - - - if n0 s=1 endif if n0 s=-

18、1 endif ?s 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 17 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 17 頁，共 28 頁 - - - - - - - - -24、打開數(shù)據(jù)庫和數(shù)據(jù)表set talk off clear accept 請輸入數(shù)據(jù)庫名 to x open database &x accept 請輸入數(shù)據(jù)表名 to y use &y list use set talk off return 25、顯示表中

19、指定信息set talk off clear open database 時代超越總公司職員信息數(shù)據(jù)庫use 職員基本信息表wait 請輸入待查職工的編號 (1-3) to n if val(n)3 wait 輸入無效，結(jié)束程序運行! window timeout 5 return else 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 18 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 18 頁，共 28 頁 - - - - - - - - -sto

20、re 0+n to a list for 職員編號 =a endif close databases set talk on return 26、詢問后再由用戶按（ y/n)鍵執(zhí)行的程序?qū)崿F(xiàn)* 求任意一個數(shù)的階乘clear do while .t. input 請輸入一個數(shù) to n p=1 s=0 for i=1 to n p=p*i s=s+p endfor ?s wait 是否繼續(xù)計算 (y/n) to yn window if upper(yn)=y then loop 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 19 頁，共 28 頁

21、- - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 19 頁，共 28 頁 - - - - - - - - -else exit endif enddo return 27、根據(jù) exact 的設(shè)置進(jìn)行字符串匹配比較* exact設(shè)置的變化對取值結(jié)果的影響set exact on & exact為打開狀態(tài) , 字符精確匹配s=in+space(2) if s=in if s=in ?a else ?b endif else if s=in ?c else ?d endif 精品學(xué)習(xí)資料 可選擇p d f - -

22、- - - - - - - - - - - - 第 20 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 20 頁，共 28 頁 - - - - - - - - -endif return 28、使一個多位正整數(shù)逆序排列clear input 請輸入一個整數(shù)： to x do while x0 y=x%10 ?y x=int(x/10) enddo return 29、按編號查找并列出一條記錄set talk off clear accept 請輸入數(shù)據(jù)庫名：家庭成員管理： to a open da

23、tabase accept 請輸入數(shù)據(jù)表名： stu ： to b use list wait 請輸入一個編號 : to c windows timeout 5 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 21 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 21 頁，共 28 頁 - - - - - - - - -if val(c)4 wait 輸入的數(shù)字不合法，請重新輸入一個合法的數(shù)字: to c windows timeout 5 else st

24、ore 0+c to aaa list for bh=aaa endif close database set talk on return 30、打開一個數(shù)據(jù)庫，并顯示其中的表內(nèi)容set talk off clear accept 請輸入一個數(shù)據(jù)庫名：家庭成員管理.dbc to x open database accept 請輸入一個數(shù)據(jù)表名：stu.dbf to y use list use set talk on return 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 22 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料

25、 可選擇p d f - - - - - - - - - - - - - - 第 22 頁，共 28 頁 - - - - - - - - -30、驗證密碼程序：set talk off clear accept 請輸入密碼： to aaa if aaa=abc clear wait 歡迎使用本系統(tǒng) ! else wait 密碼錯誤，程序?qū)⒃?5秒鐘退出！ windows timeout 5 endif set talk on return 31、編程求稅金set talk off clear input 請輸入營業(yè)收入： to p do case case p800 r=0 case p=200

26、0 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 23 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 23 頁，共 28 頁 - - - - - - - - -r=0.05 case p=5000 r=0.1 endcase x=p*r ?應(yīng)納稅金為： , x set talk on return 32、用三角形列出乘法口訣表：set talk off clear x=1 do while x=9 y=1 do while y=x s=x*y ? st

27、r(y,1)+*+str(x,1)+=+str(s,2)+ y=y+1 enddo 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 24 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 24 頁，共 28 頁 - - - - - - - - -? x=x+1 enddo set talk on return 33、將變量 a、b值互換：a=1 b=2 a=a+b b=a-b a=a-b ?a,b 34、找出已知三個數(shù)的中間數(shù)：input 請輸入 a 的值：

28、 to a input 請輸入 b 的值： to b input 請輸入 c 的值： to c if max(a,b)c ? max(a,b) else if min(a, b)c 精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 25 頁，共 28 頁 - - - - - - - - -精品學(xué)習(xí)資料 可選擇p d f - - - - - - - - - - - - - - 第 25 頁，共 28 頁 - - - - - - - - - ? c else ? min(a,b) endif endif 35、調(diào)用子程序：* main.prg set talk off ? ”正在執(zhí)行主程序”do sub1 set talk on procedure sub1 ? ”正在執(zhí)行 sub1 ”return 36、用參數(shù)傳遞計算圓的面積：set t