1、精選學(xué)習(xí)資料 - - - 歡迎下載vfp程序考試題型一.表單操作1按要求在考生文件夾下完成以下操作：1）按下圖設(shè)計(jì)一表單文件formcalc1 ；設(shè)置表單 名稱為 form1 標(biāo)題為 “人民幣兌換美元 ”；2）表單中添加兩個(gè)標(biāo)簽,設(shè)置第一個(gè)標(biāo)簽label1標(biāo)題為 “輸入人民幣 ”、其次個(gè)標(biāo)簽 label2標(biāo)題為“兌換為美元 ”；3）添加兩個(gè)文本框 名稱分別為 text1 和text2,顯示美元的文本框 （ text2 ）設(shè)為只讀；精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載4）表單中添加一個(gè)命令按鈕,其 名稱為 command1的標(biāo)題為“兌換”,編寫(xiě)精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎

2、下載“兌換”命令按鈕的代碼 、 要求運(yùn)行表單時(shí) 、 在文本框（ text1 ）中輸入人民幣后,單擊“兌換”命令按鈕、 算出兌換的的美元（人民幣兌換成美元的比 例為： 1美元=7元人民幣）,在 文本框（ text2 ）中顯示結(jié)果；操作完成后將操作結(jié)果儲(chǔ)存在考生文件夾下；command1的click代碼 : thisform.text2.value=valthisform.text1.value/82按要求在考生文件夾下完成以下操作：1）按下圖設(shè)計(jì)一表單文件formdbca12；設(shè)置表單 名稱為 form1 標(biāo)題為 “人數(shù)統(tǒng)計(jì)”；2）在數(shù)據(jù)環(huán)境中添加 ygb.dbf ；3）表單中添加兩個(gè)文本框,

3、名稱分別為 text1 和text2,顯示人數(shù)的文本框設(shè)為“只讀”；精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載4）表單中添加一個(gè)命令按鈕 名稱為command1的標(biāo)題為“統(tǒng)計(jì)人數(shù)” ,編寫(xiě)精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載此命令按鈕的代碼 、 要求運(yùn)行表單時(shí) 、 在在文本框（ text1 ）中輸入性別“男”（或“女”）,統(tǒng)計(jì)文本框（ text1 ）指定性別的人數(shù) . 將結(jié)果顯示在文本框（text2 ）中；操作完成后將操作結(jié)果儲(chǔ)存在考生文件夾下；精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載代碼:count for性別=alltthisform.text1.value to x

4、thisform.text2.value=x學(xué)問(wèn)點(diǎn)： vfp部分/ 表單設(shè)計(jì)3. 按要求在考生文件夾下完成以下操作：1）按下圖設(shè)計(jì)一表單文件formdbca19 ；設(shè)置表單 名稱為 form1 標(biāo)題為“人數(shù)統(tǒng)計(jì)”；2）在數(shù)據(jù)環(huán)境中添加 student.dbf；3）表單中添加一個(gè)列表框 名稱為 list1,列表框中有 4個(gè)選項(xiàng)：“2005會(huì)計(jì)一” 、 “2005會(huì)計(jì)二 ”、“2005會(huì)計(jì)三 ”、“2005會(huì)計(jì)四 ”；在表單中添加一個(gè)標(biāo)簽 名稱為 label1、標(biāo)題為 ”挑選班級(jí)名稱 ”；表單中添加一個(gè)文本框 名稱為text1,此文本框設(shè)為只讀；精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載4）表

5、單中添加一個(gè)命令按鈕 名稱為command1的標(biāo)題為“統(tǒng)計(jì)人數(shù)” ,編寫(xiě)精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載此命令按鈕的代碼 、 要求運(yùn)行表單時(shí) 、在列表框挑選班級(jí),按列表框指定班級(jí)統(tǒng)計(jì)人數(shù),將結(jié)果顯示在文本框（text1 ）中；操作完成后將操作結(jié)果儲(chǔ)存在考生文件夾下；代碼: count for班級(jí)= thisform.list1.value to x thisform.text2.value=x 3按要求在考生文件夾下完成以下操作：1）按下圖設(shè)計(jì)一表單文件formdbca20；設(shè)置表單 名稱為 form1 標(biāo)題為 “按班級(jí)統(tǒng)計(jì)同學(xué)平均分 ”；2）在數(shù)據(jù)環(huán)境中添加 student.d

6、bf；3）表單中添加一個(gè)組合框 名稱為 combo1,組合框中有 4個(gè)選項(xiàng)：“2005會(huì)計(jì)一” 、 “2005會(huì)計(jì)二 ”、“2005會(huì)計(jì)三 ”、“2005會(huì)計(jì)四 ”； 在表單中添加一個(gè)標(biāo)簽 名稱為 label1、標(biāo)題為 ”挑選班級(jí) ”；在表單中添加一個(gè)文本框 名稱為 text1,此文本框設(shè)為只讀；精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載4）表單中添加一個(gè)命令按鈕 名稱為command1的標(biāo)題為“統(tǒng)計(jì)平均分” ,編精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載寫(xiě)此命令按鈕的代碼 、 要求運(yùn)行表單時(shí) 、在組合框挑選班級(jí),按組合框指定班級(jí)統(tǒng)計(jì)平均分,將結(jié)果顯示在文本框（text1 ）中；精品學(xué)

7、習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載操作完成后將操作結(jié)果儲(chǔ)存在考生文件夾下；代碼:set talk offaver成果 for班級(jí)= bo1.value to x thisform.text2.value=x4.按要求在考生文件夾下完成以下操作：1）按下圖設(shè)計(jì)一表單文件formdbup37；設(shè)置表單 名稱為 form1 標(biāo)題為“修改員工信息 ”；2） 在 數(shù) 據(jù) 環(huán) 境 中 添 加 ygb.dbf ；3）表單中添加三個(gè)標(biāo)簽和三個(gè)文本框,分別用于顯示當(dāng)前記錄的員工編號(hào).姓名和聯(lián)系電話,且將顯示員工編號(hào)的文本框設(shè)為只讀；精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載4）表單中添加二個(gè)命令按鈕、

8、 第一個(gè)命令按鈕 名稱為 command1的標(biāo)題為“上精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載一條”,其次個(gè)命令按鈕 名稱為 command1的標(biāo)題為“下一條” ；編寫(xiě)這兩個(gè)精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載命令按鈕的代碼 、 要求運(yùn)行表單時(shí) 、 單擊“上一條”命令按鈕 command1時(shí),記錄指針移動(dòng)到上一條記錄,單擊“下一條”命令按鈕 command1時(shí),記錄指針移動(dòng)到下一條記錄； 然后在三個(gè)文本框 text1.text2 和text3中分別顯示當(dāng)前記錄的學(xué)號(hào).姓名和地址；操作完成后將操作結(jié)果儲(chǔ)存在考生文件夾下；command1代碼:skip-1thisform.refr

9、eshcommand1代碼:skipthisform.refresh5按要求在考生文件夾下完成以下操作：1）按下圖設(shè)計(jì)一表單文件formlogin41；設(shè)置表單 名稱為 form1 標(biāo)題為 “系統(tǒng)登陸”；2）設(shè)置“工資治理系統(tǒng) ”標(biāo)簽label1字號(hào)設(shè)為 20,字的顏色為紅色；3）要求在運(yùn)行表單時(shí),向輸入密碼的文本框（text2 ）中輸入字符,回顯字符顯示的為“ * ”；4）編寫(xiě)“退出”命令按鈕（command）2 的代碼 、 要求運(yùn)行表單時(shí) 、 單擊“退精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載出”命令按鈕時(shí) 、 關(guān)閉表單；操作完成后將操作結(jié)果儲(chǔ)存在考生文件夾下；command代2 碼:

10、thisform.release6. 在考生文件夾下完成如下操作：設(shè)計(jì)名為 formfont102的表單（控件名為 form1 ,文件名為 formfont102 ）；表單的標(biāo)題設(shè)為 " 設(shè)置字體格式 " ；表單中有一個(gè)標(biāo)簽（名稱為label1、 標(biāo)題 為“挑選字體 ”）、 一個(gè)組合框（名稱為 combo）1.一個(gè)文本框（名稱為 text1 ）和兩個(gè)命令按鈕 " 設(shè)置" （名稱為 command）1 和" 退出" （名稱為 command）2； 文本框的字體大小設(shè)為 16運(yùn)行表單時(shí),組合框中有三個(gè)條目" 宋體" .

11、" 黑體" ." 隸書(shū)" 可供挑選,在組合框中挑選字體后,假如單擊" 設(shè)置" 命令按鈕,按組合框選定的字體設(shè)置文本框中內(nèi)容的字體；單擊" 退出" 按鈕關(guān)閉表單；操作完成后將操作結(jié)果儲(chǔ)存在考生文件夾下；command1代碼:thisform.text1.fontname=bo1.valuecommand2 代 碼 :thisform.release 7在考生文件夾下完成如下操作：1）設(shè)計(jì)名為 formfont105 的表單（控件名為 form1 ,文件名為 formfont105 ）；精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - -

12、 - 歡迎下載表單的標(biāo)題設(shè)為 " 設(shè)置字體格式 " ；2）表單中添加一個(gè)列表框 （名稱為 listbox1）.列表框中有三個(gè)條目 " 宋體" ." 黑體" ." 隸書(shū)" 可供挑選；3）表單中添加一個(gè)標(biāo)簽 （名稱為 label1 ）,標(biāo)題為“湖南財(cái)經(jīng)高等?？茖W(xué)?！?, 同時(shí)設(shè)置此標(biāo)簽字號(hào)為 20,字的顏色為紅色；4）表單中添加兩個(gè)命令按鈕" 設(shè)置" （名稱為 command）1 和" 退出" （名稱為 command）2；編寫(xiě)其代碼,要求運(yùn)行表單時(shí),在列表框中挑選字體后,如 果

13、單擊 " 設(shè)置" 命令按鈕, 按列表框選定的字體設(shè)置標(biāo)簽中內(nèi)容的字體；單擊" 退出" 按鈕關(guān)閉表單；操作完成后將操作結(jié)果儲(chǔ)存在考生文件夾下；command1代碼:thisform.label1.fontname=thisform.list1.valuecommand2代碼:thisform.release二.程序填空1.程序功能：求 150 全部整數(shù)的立方和；set talk offclear（1）x= 1do while x<=30 s= s+ x3x=（ 2）enddo. s return答案：（ 1） s=0（ 2） x+1學(xué)問(wèn)點(diǎn)：求和2.運(yùn)

14、算分段函數(shù)的值：當(dāng)x>5 時(shí), y=x-5 ；當(dāng) x<=5 時(shí), y=x2+19 set talk offinput“請(qǐng)輸入 x 的值: ”toxif x>3精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載y=1 else y=x*x+192.y return答案：（1） x-5（ 2） endif學(xué)問(wèn)點(diǎn)：雙分支結(jié)構(gòu)3.運(yùn)算分段函數(shù)的值：當(dāng)x>0 時(shí), y=15；當(dāng) x<=0 時(shí), y= -5 ；當(dāng) x=0 時(shí), y=0 set talk offinput“請(qǐng)輸入 x 的值: ”toxdo casecase x>0y=1 case x<0y= -5oth

15、erwise y=0endcase.”y=”,return答案： （1） 15（2） y學(xué)問(wèn)點(diǎn)：多分支結(jié)構(gòu)4.設(shè) eee.dbf為職工數(shù)據(jù)表,姓名為一個(gè)字段名,查找名為“王林”的職工,如找到顯示該員工信息,否就顯示“查無(wú)此人”信息；set talk off（ 1）locate for姓名=”王林”if（2）disp else？”查無(wú)此人 ”endif useset talk on答案： （1） use eee（2） found（）學(xué)問(wèn)點(diǎn)：記錄查找,雙分支5.下面程序?qū)?“春光明媚 ”先縱向顯示出來(lái)然后再橫向顯示“明媚春光 ”請(qǐng) 填空完成該程序：精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載se

16、t talk off clearstore“春光明媚 ” toxyn=1do while n<8n=n+2enddo. substr2.substrxy、1、4return.substr1答案：（ 1） xy、n、2（ 2） xy、5、4學(xué)問(wèn)點(diǎn)：?jiǎn)窝h(huán)結(jié)構(gòu)6.輸入一個(gè)三位整數(shù),將其反向輸出；如輸入123,輸出 321； set talk offinput" 請(qǐng)輸入一個(gè)三位數(shù) " to（1）（ 2） =100*moda、10+10*modinta/10、10+modinta/100、10.b return答案： 1 a2 b學(xué)問(wèn)點(diǎn)：次序結(jié)構(gòu)7. 子程序調(diào)用主程序： t1

17、.prgset talk off store nhto k1、k2 do t2.k1+k2屏幕上顯示的結(jié)果為1return子程序： t2.prg private k1k1=k2+100.k1屏幕上顯示的結(jié)果為2 return答案： 1 nhnh2 nh100學(xué)問(wèn)點(diǎn)：子程序調(diào)用7.子程序調(diào)用主程序： z.prg精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載set talk off store 4 to y1、 y2、 y3 y1=y1+1. y1+y2+y3&&屏幕上顯示的結(jié)果為1do z1. y1+y2+y3&&屏幕上顯示的結(jié)果為2return子程序： z1.p

18、rg y2=y2+1do z2 y1=y1+1 return子程序： z2.prg y3=y3+1return to master答案： 1 132 15學(xué)問(wèn)點(diǎn)：子程序調(diào)用8.下面的程序?qū)崿F(xiàn)了多次在“aaa.dbf ”表中查找記錄的操作；請(qǐng)?jiān)诮⒘薬aa.dbf表的基礎(chǔ)上,任意輸入一位員工的“編號(hào)”,如查找到相應(yīng)的記錄就顯示,否就給出提示“無(wú)此人！”；依據(jù)提示輸入“n”或“n”就終止程序的運(yùn)行；set talk off clearuseaaa.dbfdo while .t. clearaccept "請(qǐng)輸入員工編號(hào) :" to zhgnolocate for編號(hào)= zhgn

19、oif（1）display 編號(hào)、 姓名、 部門(mén)代號(hào) 、 職稱、 基本工資else精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載." 無(wú)此人！ " endifwait " 連續(xù)查詢？ y/n:" to p if upperp<>"（2） "use exitendifenddoset talk on return答案： 1 not eof2 y學(xué)問(wèn)點(diǎn)：表的操作9.下面程序輸出如下列圖的圖形,請(qǐng)將程序補(bǔ)充完整；*set talk off clearfor n=4 to 1 step -1.（1）3-n for m=1 to 2

20、*n-1.（ 2）endfor endforset talk on return答案： 1 space2 "*"學(xué)問(wèn)點(diǎn)：雙循環(huán)結(jié)構(gòu)三.編程題（要求從三大類型的程序中各選其一,即不能選兩個(gè)同類型的程序題）（一）求和類型的程序1.編程運(yùn)算 s=1+1/3+1/5+1/49 ；參考答案： clears=0for i=1 to 49 step 2 s=s+1/iendf.s retu精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載2.編程運(yùn)算 100 到 1000 之間能被 4 除余 1 的全部數(shù)之和；參考答案：clear s=0for i=100 to 1000 if i%4=1s

21、=s+i endi endf.s retu3.運(yùn)算 100 到 500 中全部素?cái)?shù)的和；（所謂素?cái)?shù)為指除了1 和它本身外, 沒(méi)有任何因子被該數(shù)整除）參考答案：clea s=0for i=100 to 500for j=2 to i-1 if i%j=0 exitendif endfif j>=is=s+i endi endf.s retu編程運(yùn)算 1/4 ！+1/8 ！+1/10 ！ clea&&主程序.1/fac4+1/fac8+1/fac10 retufunc fac&&fac創(chuàng)建一個(gè)求階乘的函數(shù)para n s=1for i=1 to ns=s*i

22、endfor return s4.求全部五位數(shù)中,千位數(shù)字等于個(gè)位數(shù)字的數(shù)之和； clear精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載s=0for i=10000 to 99999 if i%10=inti/10000s=s+iendif endf.s retu（二）統(tǒng)計(jì)個(gè)數(shù)的類型1.統(tǒng)計(jì) 100 到 1000 中能被 5 或 9 整除的全部數(shù)的個(gè)數(shù)；clea s=0for i=100 to 1000if i%5=0 or i%9=0 s=s+1endif endfor.s retu答案:2362.求四位數(shù)中全部“回文數(shù)”的個(gè)數(shù)； （所謂“回文數(shù)” ,為指該數(shù)從左往右念與從右往左念相同,例

23、如：1221,3223 等）clea s=0for i=1000 to 9000 a=inti/1000 b=inti%1000/100 c=inti%100/10 d=i%10if a=d and b=c s=s+1endif endfor.s retu答案:803.統(tǒng)計(jì)全部五位數(shù)中萬(wàn)位數(shù)字大于等于個(gè)位數(shù)字的數(shù)的個(gè)數(shù)； cleas=0for i=10000 to 99999 a=inti/10000 b=i%10if a>=b精品學(xué)習(xí)資料精選學(xué)習(xí)資料 - - - 歡迎下載s=s+1 endif endfor.s retu（三）其他類型1.已知數(shù)列的前三個(gè)數(shù)分別為1,1,2,以后每個(gè)數(shù)為前三個(gè)數(shù)之和,求第20項(xiàng)的值及前 20 項(xiàng)之和cleadime a20 a1=1a2=1a3=2 s=a1+a2+a3for i=4 to 20ai=ai-1+ai-2+ai-3 s=s+aiendfor.a20、sreturn2.已知 s=1*2*3*n ,當(dāng) s 超過(guò) 300000 時(shí)的