VFP编程题答案.doc

顺序结构程序设计1.从键盘输入长方体的长、宽、高，求长方体的表面积。input “输入长方体的长：” to xinput “输入长方体的宽：” to yinput “输入长方体的高：” to zs=2*x*y+2*x*z+2*y*z?”长方体的表面积为：”,s2.从键盘输入圆的半径，计算圆的面积。input “输入圆的半径：” to rs=3.14*r2?”圆的面积为：”,s3.建立数据库XS，将表XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。Create database xsAdd xsqkBrowseClose all4.在表XSQK.DBF中，查找出生日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。Use xsqkLocate for 出生日期=1983-10-8DisplayContinueDisplayUse分支结构程序设计1. 从键盘输入一个数，若为正数则输出，非正数则结束。input “输入一个数：” to xif x0?xendifreturn2. 求一元二次方程AX2+BX+C=0的实根。input “输入系数A：” to ainput “输入系数B：” to binput “输入系数C：” to cm=b2-4*a*cif m=0x1=(-b+sqrt(m)/(2*a)x2=(-b-sqrt(m)/(2*a)?”x1=”,x1, ”x2=”,x2else?”方程无实根！”endif3.从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。use xsqkaccept “输入待查学生学号：” to xlocate for 学号=xif not eof()displayelse?“该学号不存在” EndifUse4. 从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。input “输入一个自然数：” to xif x%2=0?” 偶数”else?” 奇数”endifreturn5. 计算函数Y的值。Y=3ex+2-12X+5x=0X=0f=3*exp(x+2)-1elsef=2*x+5endif?”f=”,freturn6. 计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费0.5元；若行李重量超过50公斤，其超重部分加收0.4元。编写计算运费的程序。clearinput 请输入行李的重量： to nif n=3 and m=6 and m=9 and m=1000 and d=2000 and d=3000 and d=5000 m=d*0.8endcase?打折后的金额是：,mreturn9编写程序，输入一个数字（07），显示其对应星期几的中英文信息。clearinput 请输入一个数字： to ndo casecase n=1M=星期一(Monday)case n=2M=星期二（Tuesday）case n=3M=星期三（Wednesday）case n=4M=星期四（Thursday）case n=5M=星期五（Friday）case n=6M=星期六（Saturday）case n=0M=星期日（Sunday）otherwiseM=重新输入endcase?您输入的是：+Mreturn10. 设计个人纳税计算程序。“税法”规定，使用超额累进税率，以每月收入额减去1600元后的余额，为应纳税所得额，其税率见下表：级数全月应纳税所得额税率（%）1不超过500元525002000元10320005000元154500020000元2052000040000元2564000060000元3076000080000元35880000100000元409100000元以上45clearinput 请输入月收入： to ns=n-1600do case case s=500 r=s*0.05 case s=2500 r=s*10 case s=5000 r=s*15 case s=20000 r=s*20 case s=40000 r=s*25 case s=60000 r=s*30 case s=80000 r=s*35 case s=100000 r=s*40 otherwise r=r*0.45endcase?应纳税额为：,rreturn循环结构1. 求S=1+2+3+100set talk offclears=0i=1do while i=90 M=优 case avgscore=75 M=良 case avgscore=60 M=及格 case avgscore60 M=不及格endcase?replace 总评 with M endscanusereturn10编写程序，分别统计表XSQK.DBF中男、女同学的人数。clearuse xsqk exclusivestore 0 to m,nscanif 性别=男m=m+1elsen=n+1endifendscan?男生人数：+str(m)?女生人数：+str(n)use return11编写程序，中记录倒序逐条显示。clearuse xsqk exclusiven=reccount()go bottomfor i=1 to ndisplaywaitskip -1endforset talk onreturn12编写程序，使表GONGZI .DBF中每条记录根据职称情况自动进行工资普调。普调规定是：教授每人增加100元，副教授每人增加80元，讲师每人增加50元，助教每人增加30元。set talk offclearuse gongzi exclusivebrowse lastdo casecase 职称=教授replace 基本工资 with 基本工资+100 for 职称=教授case 职称=副教授replace 基本工资 with 基本工资+80 for 职称=副教授case 职称=讲师replace 基本工资 with 基本工资+50 for 职称=讲师case 职称=助教replace 基本工资 with 基本工资+30 for 职称=助教endcasebrowse lastuse set talk onreturn13编写程序，输出如下乘法表。11121