VFP编程题答案内容

PAGEPAGE4顺序结构程序设计1.从键盘输入长方体的长、宽、高，求长方体的表面积。input“输入长方体的长：”tox input“输入长方体的宽：”toy input“输入长方体的高：”toz s=2*x*y+2*x*z+2*y*z ?”长方体的表面积为：”,s2.从键盘输入圆的半径，计算圆的面积。input“输入圆的半径：”tors=3.14*r^2?”圆的面积为：”,s3.建立数据库XS，将表XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。CreatedatabasexsAddxsqkBrowseCloseall4.在表XSQK.DBF中，查找出生日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。UsexsqkLocatefor出生日期

={^1983-10-8}DisplayContinueDisplayUse分支结构程序设计1.从键盘输入一个数，若为正数则输出，非正数则结束。 input“输入一个数：”tox ifx>0 ?x endif return2.求一元二次方程AX2+BX+C=0的实根。 input“输入系数A：”toa input“输入系数B：”tob input“输入系数C：”toc m=b^2-4*a*c ifm>=0 x1=(-b+sqrt(m))/(2*a) x2=(-b-sqrt(m))/(2*a) ?”x1=”,x1,”x2=”,x2 else ?”方程无实根！”endif3. 从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。usexsqk accept“输入待查学生学号：”tox locatefor学号=x ifnoteof() display else ?“该学号不存在” Endif Use4.从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。input“输入一个自然数：”tox ifx%2=0 ?”偶数” else ?”奇数” endif return5.计算函数Y的值。Y=Y=3ex+2-12X+5x>=0X<05.答案input“输入X的值：”tox ifx>=0 f=3*exp(x+2)-1 else f=2*x+5 endif?”f=”,f return6.计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费0.5元；若行李重量超过50公斤，其超重部分加收0.4元。编写计算运费的程序。clearinput"请输入行李的重量："tonifn<50s=n*0.5elses=n*0.5+(n-50)*0.4endif?"应收费用为：",sreturn7．编写根据当前日期显示当前季节的程序。clearinput"请输入日期："todm=month(d)docasecasem>=3andm<=5 ?"春季"casem>=6andm<=8?"夏季"casem>=9andm<=11?"秋季"otherwise?"冬季"endcasereturn8．某百货公司为促销，采用购物打折扣的优惠办法，每位顾客一次购物：(1)1000元至1999元之间者，按九五折优惠。(2)2000元至2999元之间者，按九折优惠。(3)3000元至4999元之间者，按八五折优惠。(4)5000元以上者，按八折优惠。编写程序，输入购物款数，计算并输出优惠价。clearinput"输入你的购物金额："toddocase cased>=1000andd<=1999 m=d*0.95 cased>=2000andd<=2999 m=d*0.9 cased>=3000andd<=4999 m=d*0.85 cased>=5000 m=d*0.8endcase?"打折后的金额是：",mreturn9．编写程序，输入一个数字（0～7），显示其对应星期几的中英文信息。clearinput"请输入一个数字："tondocase casen=1 M="星期一(Monday)" casen=2 M="星期二（Tuesday）" casen=3 M="星期三（Wednesday）" casen=4 M="星期四（Thursday）"casen=5 M="星期五（Friday）" casen=6 M="星期六（Saturday）" casen=0 M="星期日（Sunday）" otherwise M="重新输入" endcase?"您输入的是："+M return10.设计个人纳税计算程序。“税法”规定，使用超额累进税率，以每月收入额减去1600元后的余额，为应纳税所得额，其税率见下表：级数全月应纳税所得额税率（%）1不超过500元52500～2000元1032000～5000元1545000～20000元20gobottomfori=1ton display wait skip-1endforsettalkonreturn12．编写程序，使表GONGZI.DBF中每条记录根据职称情况自动进行工资普调。普调规定是：教授每人增加100元，副教授每人增加80元，讲师每人增加50元，助教每人增加30元。settalkoffclearusegongziexclusivebrowselastdocase case职称='教授' replace基本工资with基本工资+100for职称="教授" case职称='副教授' replace基本工资with基本工资+80for职称="副教授" case职称='讲师' replace基本工资with基本工资+50for职称="讲师" case职称='助教' replace基本工资with基本工资+30for职称="助教"endcasebrowselastusesettalkonreturn13．编写程序，输出如下乘法表。1×1＝12×1＝22×2＝43×1＝33×2＝63×3＝9……9×1＝99×2＝18………………9