最新VFP編程題答案

歡迎來主頁下載---精品文檔順序結(jié)構(gòu)程序設(shè)計(jì)從鍵盤輸入長(zhǎng)方體的長(zhǎng)、寬、高，求長(zhǎng)方體的表面積。input“輸入長(zhǎng)方體的長(zhǎng)：”toxinput“輸入長(zhǎng)方體的寬：”toyinput“輸入長(zhǎng)方體的高：”tozs=2*x*y+2*x*z+2*y*z?”長(zhǎng)方體的表面積為：”,s從鍵盤輸入圓的半徑，計(jì)算圓的面積。input“輸入圓的半徑：”tors=3.14*rA2?”圓的面積為:”,s建立數(shù)據(jù)庫*、，將表XSQK.DBF添加到該數(shù)據(jù)庫，并瀏覽該表所有數(shù)據(jù)，最后關(guān)閉數(shù)據(jù)庫。CreatedatabasexsAddxsqkBrowseCloseall在表XSQK.DBF中，查找出生日期為1983年10月8日的記錄，并顯示該記錄；繼續(xù)查找下一個(gè)滿足上述條件的記錄，并顯示該記錄。UsexsqkLocatefor出生日期={人1983-10-8}DisplayContinueDisplayUse分支結(jié)構(gòu)程序設(shè)計(jì)從鍵盤輸入一個(gè)數(shù)，若為正數(shù)則輸出，非正數(shù)則結(jié)束。input“輸入一個(gè)數(shù)：”toxifx>0?xendifreturn求一元二次方程AX2+BX+C=0的實(shí)根。input“輸入系數(shù)A：”toainput“輸入系數(shù)B：”tobinput“輸入系數(shù)C：”toc精品文檔m=bA2-4*a*cifm>=0x1=(-b+sqrt(m))/(2*a)x2=(-b-sqrt(m))/(2*a)?”x1=”,x1,”x2=”,x2else?”方程無實(shí)根！”endif從鍵盤輸入一個(gè)待查學(xué)生的學(xué)號(hào)，在表XSQK.DBF中查找。若能找到，則顯示該記錄，否則，顯示信息“該學(xué)號(hào)不存在”。usexsqkaccept“輸入待查學(xué)生學(xué)號(hào)：”toxlocatefor學(xué)號(hào)=xifnoteof()displayelse?“該學(xué)號(hào)不存在”EndifUse從鍵盤輸入一個(gè)自然數(shù)，若為偶數(shù)則輸出信息“偶數(shù)”，若為奇數(shù)則輸出信息“奇數(shù)”。input“輸入一個(gè)自然數(shù)：”toxifx%2=0?，，偶數(shù)”else?”奇數(shù)”endifreturn計(jì)算函數(shù)Y的值。3ex+21x>=0Y=V2X+5X<05：答案input“輸入X的值：”toxifx>=0f=3*exp(x+2)-1else歡迎來主頁下載---精品文檔f=2*x+5endif?”f=”,freturn計(jì)算運(yùn)費(fèi)。車站從甲地到乙地托運(yùn)行李，收費(fèi)規(guī)定：若行李重量不超過50公斤，每公斤收費(fèi)0.5元；若行李重量超過50公斤，其超重部分加收0.4元。編寫計(jì)算運(yùn)費(fèi)的程序。clearinput"請(qǐng)輸入行李的重量：”tonifn<50s=n*0.5elses=n*0.5+(n-50)*0.4endif?"應(yīng)收費(fèi)用為：",sreturn編寫根據(jù)當(dāng)前日期顯示當(dāng)前季節(jié)的程序。clearinput"請(qǐng)輸入日期："todm=month(d)docasecasem>=3andm<=5?”春季”casem>=6andm<=8?”夏季”casem>=9andm<=11?”秋季”otherwise?”冬季”endcasereturn某百貨公司為促銷，采用購(gòu)物打折扣的優(yōu)惠辦法，每位顧客一次購(gòu)物：1000元至1999元之間者，按九五折優(yōu)惠。2000元至2999元之間者，按九折優(yōu)惠。3000元至4999元之間者，按八五折優(yōu)惠。5000元以上者，按八折優(yōu)惠。編寫程序，輸入購(gòu)物款數(shù)，計(jì)算并輸出優(yōu)惠價(jià)。精品文檔clearinput-輸入你的購(gòu)物金額："toddocasecased>=1000andd<=1999m=d*0.95cased>=2000andd<=2999m=d*0.9cased>=3000andd<=4999m=d*0.85cased>=5000m=d*0.8endcase?”打折后的金額是：”,mreturn編寫程序，輸入一個(gè)數(shù)字（0?7），顯示其對(duì)應(yīng)星期幾的中英文信息。clearinput"請(qǐng)輸入一個(gè)數(shù)字：”tondocasecasen=1M="星期一（Monday）”casen=2M=”星期二（Tuesday）”casen=3M=”星期三（Wednesday）”casen=4M=”星期四（Thursday）”casen=5M=”星期五（Friday）”casen=6M="星期六（Saturday）"casen=0M="星期日（Sunday）"otherwiseM="重新輸入”endcase?”您輸入的是："+Mreturn設(shè)計(jì)個(gè)人納稅計(jì)算程序?！岸惙ā币?guī)定，使用歡迎來主頁下載---精品文檔超額累進(jìn)稅率，以每月收入額減去1600元后的余額，為應(yīng)納稅所得額，其稅率見下表：級(jí)數(shù)全月應(yīng)納稅所得額稅率（%）1不超過500元52500?2000元1032000?5000元1545000?20000元20520000?40000元25640000?60000元30760000?80000元35880000?100000元409100000元以上45clearinput"請(qǐng)輸入月收入：”tons=n-1600docasecases<=500r=s*0.05cases<=2500r=s*10cases<=5000r=s*15cases<=20000r=s*20cases<=40000r=s*25cases<=60000r=s*30cases<=80000r=s*35cases<=100000r=s*40otherwiser=r*0.45endcase?”應(yīng)納稅額為：”,rreturn循環(huán)結(jié)構(gòu)

求S=1+2+3+……+100settalkoffclears=0i=1dowhilei<=100s=s+ii=i+1enddo?”1?100的和為：”,sReturn求N！的值。（N！=1*2*3*……*N）clearinput"請(qǐng)輸入n的值："tons=1fori=1tons=s*iendfor?”n!=”,sreturn計(jì)算101?500之間的所有奇數(shù)之和。clears=0fori=101to500ifi%2!=0s=s+iendifendfor?"101-500的奇數(shù)和為：”,sreturn輸出100?1000之間能被37整除的數(shù)。settalkoffclearfori=100to1000ifi%37=0?iendifendforsettalkon歡迎來主頁下載---精品文檔return求S=1!+2!+3!+……+10!clears=0T=1forI=1to10T=T*iS=S+1endfor?"S=",Sreturn求S=1+(1+2)+(1+2+3)+……+(1+2+3+……+N)clearinput"請(qǐng)輸入N的值：”toNs=0t=0fori=1toNt=t+is=s+tendfor?”總和為：”,s從鍵盤輸入一個(gè)數(shù)，判斷其是否為素?cái)?shù)。clearinput"請(qǐng)輸入數(shù)字：”tons=0fori=2ton-1ifn%i=0s=1endifendforifs=0?n,”是素?cái)?shù)”else?n,”不是素?cái)?shù)”endifreturn輸出從2000到2100年之間的所有閏年。提示：設(shè)N為年份數(shù)，若N能滿足如下兩個(gè)精品文檔條件中任一個(gè)，則N為閏年。N能被4整除并且N不能被100整除，或者N能被400整除clearfori=2000to2100if(i%4=0andi%100!=0)ori%400=0?iendifendforreturn9.在表BXCJ.DBF中，已經(jīng)有數(shù)學(xué)、計(jì)算機(jī)、英語、物理四門課程的成績(jī)，編寫程序根據(jù)每人的平均成績(jī)，在“總評(píng)”字段中填入對(duì)應(yīng)的等級(jí)。等級(jí)評(píng)定辦法是：90分以上為優(yōu)，75?89為良，60?74為及格，60分以下為不及格。clearusebxcjexclusiveavgscore=0scanavgscore=(數(shù)學(xué)+計(jì)算機(jī)+物理+英語)/4docasecaseavgscore>=90M="優(yōu)”caseavgscore>=75M="良”caseavgscore>=60M="及格”caseavgscore<60M="不及格”endcase?replace總評(píng)withMendscanusereturn10.編寫程序，分別統(tǒng)計(jì)表XSQK.DBF中男、女同學(xué)的人數(shù)。clearusexsqkexclusivestore0tom,n歡迎來主頁下載---精品文檔scanif性別='男’m=m+1elsen=n+1endifendscan?”男生人數(shù)："+str(m)?”女生人數(shù)："+str(n)usereturn編寫程序，中記錄倒序逐條顯示。clearusexsqkexclusiven=reccount()gobottomfori=1tondisplaywaitskip-1endforsettalkonreturn編寫程序，使表GONGZI.DBF中每條記錄根據(jù)職稱情況自動(dòng)進(jìn)行工資普調(diào)。普調(diào)規(guī)定是：教授每人增加100元，副教授每人增加80元，講師每人增加50元，助教每人增加30元。settalkoffclearusegongziexclusivebrowselastdocasecase職稱='教授'replace基本工資with基本工資+100for職稱="教授”case職稱='副教授'replace基本工資with基本工資+80for職稱="副教授”case職稱='講師'replace基本工資with基本工資+50for職稱="講師”case職稱='助教'replace基本工資with基本工資+30for職稱="助教”endcasebrowselastus