最新VFP编程题答案

欢迎来主页下载---精品文档顺序结构程序设计从键盘输入长方体的长、宽、高，求长方体的表面积。input“输入长方体的长：”toxinput“输入长方体的宽：”toyinput“输入长方体的高：”tozs=2*x*y+2*x*z+2*y*z?”长方体的表面积为：”,s从键盘输入圆的半径，计算圆的面积。input“输入圆的半径：”tors=3.14*rA2?”圆的面积为:”,s建立数据库*、，将表XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。CreatedatabasexsAddxsqkBrowseCloseall在表XSQK.DBF中，查找出生日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。UsexsqkLocatefor出生日期={人1983-10-8}DisplayContinueDisplayUse分支结构程序设计从键盘输入一个数，若为正数则输出，非正数则结束。input“输入一个数：”toxifx>0?xendifreturn求一元二次方程AX2+BX+C=0的实根。input“输入系数A：”toainput“输入系数B：”tobinput“输入系数C：”toc精品文档m=bA2-4*a*cifm>=0x1=(-b+sqrt(m))/(2*a)x2=(-b-sqrt(m))/(2*a)?”x1=”,x1,”x2=”,x2else?”方程无实根！”endif从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。usexsqkaccept“输入待查学生学号：”toxlocatefor学号=xifnoteof()displayelse?“该学号不存在”EndifUse从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。input“输入一个自然数：”toxifx%2=0?，，偶数”else?”奇数”endifreturn计算函数Y的值。3ex+21x>=0Y=V2X+5X<05：答案input“输入X的值：”toxifx>=0f=3*exp(x+2)-1else欢迎来主页下载---精品文档f=2*x+5endif?”f=”,freturn计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费0.5元；若行李重量超过50公斤，其超重部分加收0.4元。编写计算运费的程序。clearinput"请输入行李的重量：”tonifn<50s=n*0.5elses=n*0.5+(n-50)*0.4endif?"应收费用为：",sreturn编写根据当前日期显示当前季节的程序。clearinput"请输入日期："todm=month(d)docasecasem>=3andm<=5?”春季”casem>=6andm<=8?”夏季”casem>=9andm<=11?”秋季”otherwise?”冬季”endcasereturn某百货公司为促销，采用购物打折扣的优惠办法，每位顾客一次购物：1000元至1999元之间者，按九五折优惠。2000元至2999元之间者，按九折优惠。3000元至4999元之间者，按八五折优惠。5000元以上者，按八折优惠。编写程序，输入购物款数，计算并输出优惠价。精品文档clearinput-输入你的购物金额："toddocasecased>=1000andd<=1999m=d*0.95cased>=2000andd<=2999m=d*0.9cased>=3000andd<=4999m=d*0.85cased>=5000m=d*0.8endcase?”打折后的金额是：”,mreturn编写程序，输入一个数字（0〜7），显示其对应星期几的中英文信息。clearinput"请输入一个数字：”tondocasecasen=1M="星期一（Monday）”casen=2M=”星期二（Tuesday）”casen=3M=”星期三（Wednesday）”casen=4M=”星期四（Thursday）”casen=5M=”星期五（Friday）”casen=6M="星期六（Saturday）"casen=0M="星期日（Sunday）"otherwiseM="重新输入”endcase?”您输入的是："+Mreturn设计个人纳税计算程序。“税法”规定，使用欢迎来主页下载---精品文档超额累进税率，以每月收入额减去1600元后的余额，为应纳税所得额，其税率见下表：级数全月应纳税所得额税率（%）1不超过500元52500〜2000元1032000〜5000元1545000〜20000元20520000〜40000元25640000〜60000元30760000〜80000元35880000〜100000元409100000元以上45clearinput"请输入月收入：”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?”应纳税额为：”,rreturn循环结构

求S=1+2+3+……+100settalkoffclears=0i=1dowhilei<=100s=s+ii=i+1enddo?”1〜100的和为：”,sReturn求N！的值。（N！=1*2*3*……*N）clearinput"请输入n的值："tons=1fori=1tons=s*iendfor?”n!=”,sreturn计算101〜500之间的所有奇数之和。clears=0fori=101to500ifi%2!=0s=s+iendifendfor?"101-500的奇数和为：”,sreturn输出100〜1000之间能被37整除的数。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"请输入N的值：”toNs=0t=0fori=1toNt=t+is=s+tendfor?”总和为：”,s从键盘输入一个数，判断其是否为素数。clearinput"请输入数字：”tons=0fori=2ton-1ifn%i=0s=1endifendforifs=0?n,”是素数”else?n,”不是素数”endifreturn输出从2000到2100年之间的所有闰年。提示：设N为年份数，若N能满足如下两个精品文档条件中任一个，则N为闰年。N能被4整除并且N不能被100整除，或者N能被400整除clearfori=2000to2100if(i%4=0andi%100!=0)ori%400=0?iendifendforreturn9.在表BXCJ.DBF中，已经有数学、计算机、英语、物理四门课程的成绩，编写程序根据每人的平均成绩，在“总评”字段中填入对应的等级。等级评定办法是：90分以上为优，75〜89为良，60〜74为及格，60分以下为不及格。clearusebxcjexclusiveavgscore=0scanavgscore=(数学+计算机+物理+英语)/4docasecaseavgscore>=90M="优”caseavgscore>=75M="良”caseavgscore>=60M="及格”caseavgscore<60M="不及格”endcase?replace总评withMendscanusereturn10.编写程序，分别统计表XSQK.DBF中男、女同学的人数。clearusexsqkexclusivestore0tom,n欢迎来主页下载---精品文档scanif性别='男’m=m+1elsen=n+1endifendscan?”男生人数："+str(m)?”女生人数："+str(n)usereturn编写程序，中记录倒序逐条显示。clearusexsqkexclusiven=reccount()gobottomfori=1tondisplaywaitskip-1endforsettalkonreturn编写程序，使表GONGZI.DBF中每条记录根据职称情况自动进行工资普调。普调规定是：教授每人增加100元，副教授每人增加80元，讲师每人增加50元，助教每人增加30元。settalkoffclearusegongziexclusivebrowselastdocasecase职称='教授'replace基本工资with基本工资+100for职称="教授”case职称='副教授'replace基本工资with基本工资+80for职称="副教授”case职称='讲师'replace基本工资with基本工资+50for职称="讲师”case职称='助教'replace基本工资with基本工资+30for职称="助教”endcasebrowselastus