计算机VF编程参考答案

1、海量资源，欢迎共阅四、结构化程序设计顺序结构程序设计1、 从键盘输入长方体的长、宽、高，求长方体的表面积。input“输入长方体的长：”toxinput“输入长方体的长：”toyinput“输入长方体的长：”tozs=2*x*y+2*x*z+2*y*z?”长方体的表面积为：”,s2、 从键盘输入圆的半径，计算圆的面积。input“输入圆的半径：”tors=3.14*r2?”圆的面积为：”,s3、 建立数据库XS，将表XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。CreatedatabasexsAddxsqkBrowseCloseall4、 在表XSQK.DBF中，查找出生

2、日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。UsexsqkLocatefor出生日期=1983-10-8DisplayContinueDisplayUse分支结构程序设计1.从键盘输入一个数，若为正数则输出，非正数则结束。input“输入一个数：”toxifx0?xendifreturn2.求一元二次方程AX2+BX+C=0的实根。input“输入系数A：”toainput“输入系数B：”tobinput“输入系数C：”tocm=b2-4*a*cifm=0x1=(-b+sqrt(m)/(2*a)x2=(-b-sqrt(m)/(2*a)?”x1

3、=”,x1,”x2=”,x2else?”方程无实根！”endif3.从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。usexsqkaccept“输入待查学生学号：”toxlocatefor学号=xifnoteof()displayelse?“该学号不存在”EndifUse4.从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。input“输入一个自然数：”toxifx%2=0?”偶数”else?”奇数”endifreturn5.计算函数Y的值。Y=3ex+2-12X+5x=0X=0f=3*exp(x+2

4、)-1elsef=2*x+5endif?”f=”,freturn6.计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费0.5元；若行李重量超过50公斤，其超重部分加收0.4元。编写计算运费的程序。clearinput请输入行李的重量：tonifn=3andm=6andm=9andm=1000andd=2000andd=3000andd=5000m=d*0.8endcase?打折后的金额是：,mreturn9编写程序，输入一个数字（07），显示其对应星期几的中英文信息。clearinput请输入一个数字：tondocasecasen=1M=星期一(Monday)c

5、asen=2M=星期二（Tuesday）casen=3M=星期三（Wednesday）casen=4M=星期四（Thursday）casen=5M=星期五（Friday）casen=6M=星期六（Saturday）casen=0M=星期日（Sunday）otherwiseM=重新输入endcase?您输入的是：+Mreturn10.设计个人纳税计算程序。“税法”规定，使用超额累进税率，以每月收入额减去1600元后的余额，为应纳税所得额，其税率见下表：级数全月应纳税所得额税率（%）1不超过500元525002000元10320005000元154500020000元2052000040000元2

6、564000060000元3076000080000元35880000100000元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循环结构1.求S=1+2+3+100settalkoffclears=0

7、i=1dowhilei=90M=优caseavgscore=75M=良caseavgscore=60M=及格caseavgscore60M=不及格endcasereplace总评withMendscanuse10编写程序，分别统计表XSQK.DBF中男、女同学的人数。clearusexsqkexclusivestore0tom,nscanif性别=男m=m+1elsen=n+1endifendscan?男生人数：+str(m)?女生人数：+str(n)use11编写程序，中记录倒序逐条显示。clearusexsqkexclusiven=reccount()gobottomfori=1tondi

8、splaywaitskip-1endforsettalkonreturn12输入10个数倒数组中，求它们的和cleardimentiona(10)fori=1to10input“请输入数据：”toa(i)endfors=0fori=1to10s=s+a(i)endfor?”10个数的和为：”,s13输入10个数倒数组中，求它们的最小值cleardimentiona(10)fori=1to10input“请输入数据：”toa(i)endformin=a(1)fori=2to10ifa(i)minmin=a(i)endifendfor?”10个数的最小值为：”,min12编写程序，使表GONGZI

9、.DBF中每条记录根据职称情况自动进行工资普调。普调规定是：教授每人增加100元，副教授每人增加80元，讲师每人增加50元，助教每人增加30元。settalkoffclearusegongziexclusivebrowselastdocasecase职称=教授replace基本工资with基本工资+100for职称=教授case职称=副教授replace基本工资with基本工资+80for职称=副教授case职称=讲师replace基本工资with基本工资+50for职称=讲师case职称=助教replace基本工资with基本工资+30for职称=助教endcasebrowselastusesettalko