VFP编程题答案.pdf

《VFP编程题答案.pdf》由会员分享，可在线阅读，更多相关《VFP编程题答案.pdf（6页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、1 顺序结构程序设计1.从键盘输入长方体的长、宽、高，求长方体的表面积。input“输入长方体的长：”to x input“输入长方体的宽：”to y input“输入长方体的高：”to z s=2*x*y+2*x*z+2*y*z?”长方体的表面积为：”,s 2.从键盘输入圆的半径，计算圆的面积。input“输入圆的半径：”to r s=3.14*r2?”圆的面积为：”,s 3.建立数据库XS，将表 XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。Create database xs Add xsqk Browse Close all 4.在表 XSQK.DBF 中，查找出

2、生日期为1983 年10 月 8 日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。Use xsqk Locate for 出生日期 =1983-10-8 Display Continue Display Use 分支结构程序设计1.从键盘输入一个数，若为正数则输出，非正数则结束。input“输入一个数：”to x if x0?x endif return 2.求一元二次方程AX2+BX+C=0 的实根。input“输入系数A：”to a input“输入系数B：”to b input“输入系数C：”to c m=b2-4*a*c if m=0 x1=(-b+sqrt(m

3、)/(2*a)x2=(-b-sqrt(m)/(2*a)?”x1=”,x1,”x2=”,x2 else?”方程无实根！”endif 3.从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。use xsqk accept“输入待查学生学号：”to x locate for 学号=x if not eof()display else?“该学号不存在”Endif Use 4.从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。input“输入一个自然数：”to x if x%2=0?”偶数”else?”奇数”end

4、if return 5.计算函数Y 的值。5.答案input“输入 X 的值：”to x if x=0 f=3*exp(x+2)-1 else f=2*x+5 endif?”f=”,f returnY=3ex+2-1 2X+5 x=0 X0 2 6.计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50 公斤，每公斤收费0.5 元；若行李重量超过50 公斤，其超重部分加收 0.4 元。编写计算运费的程序。clear input 请输入行李的重量：to n if n=3 and m=6 and m=9 and m=1000 and d=2000 and d=3000 and d=50

5、00 m=d*0.8 endcase?打折后的金额是：,m return 9编写程序，输入一个数字（07），显示其对应星期几的中英文信息。clear input 请输入一个数字：to n do case case n=1 M=星期一(Monday)case n=2 M=星期二（Tuesday）case n=3 M=星期三（Wednesday）case n=4 M=星期四（Thursday）case n=5 M=星期五（Friday）case n=6 M=星期六（Saturday）case n=0 M=星期日（Sunday）otherwise M=重新输入 endcase?您输入的是：+M re

6、turn 10.设计个人纳税计算程序。“税法”规定，使用超额累进税率，以每月收入额减去1600 元后的余额，为应纳税所得额，其税率见下表：级数全月应纳税所得额税率（%）1 不超过 500 元5 2 5002000 元10 3 20005000 元15 4 500020000 元20 3 5 2000040000 元25 6 4000060000 元30 7 6000080000 元35 8 80000100000 元40 9 100000 元以上45 clear input 请输入月收入：to n s=n-1600 do case case s=500 r=s*0.05 case s=2500

7、 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.45 endcase?应纳税额为：,r return 循环结构1.求 S=1+2+3+,+100 set talk off clear s=0 i=1 do while i=90 M=优 case avgscore=75 M=良 case avgscore=60 M=及格 case avgscore60 M=不

8、及格 endcase?replace 总评with M endscan use return 10编写程序，分别统计表XSQK.DBF中男、女同学的人数。clear use xsqk exclusive store 0 to m,n scan if 性别=男 m=m+1 else n=n+1 endif endscan?男生人数：+str(m)?女生人数：+str(n)use return 11编写程序，中记录倒序逐条显示。clear use xsqk exclusive n=reccount()5 go bottom for i=1 to n display wait skip-1 endf

9、or set talk on return 12编写程序，使表 GONGZI.DBF中每条记录根据职称情况自动进行工资普调。普调规定是：教授每人增加100 元，副教授每人增加80 元，讲师每人增加50 元，助教每人增加30 元。set talk off clear use gongzi exclusive browse last do case case 职称=教授 replace 基本工资with 基本工资+100 for 职称=教授 case 职称=副教授 replace 基本工资with 基本工资+80 for 职称=副教授 case 职称=讲师 replace 基本工资with 基本工资+50 for 职称=讲师 case 职称=助教 replace 基本工资with 基本工资+30 for 职称=助教 endcase browse last use set talk on return 13编写程序，输出如下乘法表。111 212 2 24 313 3 26 339,9 1 9 9 2 18,9981 clear for x=1 to 9&外层循环y=1 do while y=x&内层循环z=x*y?str(y,1)+*+str(x,1)+=+str(z,2)+y=y+1 enddo?endfor 6