计算机VF编程参考答案

计算机VF编程参考答案PAGEPAGE3四、结构化程序设计顺序结构程序设计从键盘输入长方体的长、宽、高，求长方体的表面积。input“输入长方体的长：”tox input“输入长方体的长：”toy input“输入长方体的长：”toz s=2*x*y+2*x*z+2*y*z ?”长方体的表面积为：”,s从键盘输入圆的半径，计算圆的面积。input“输入圆的半径：”tors=3.14*r^2?”圆的面积为：”,s建立数据库XS，将表XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。CreatedatabasexsAddxsqkBrowseCloseallelses=n*0.5+(n-50)*0.4endif?"应收费用为：",sreturn7．编写根据当前日期显示当前季节的程序。clearinput"请输入日期："todm=month(d)docasecasem>=3andm<=5 ?"春季"casem>=6andm<=8?"夏季"casem>=9andm<=11?"秋季"otherwise?"冬季"endcasereturn8．某百货公司为促销，采用购物打折扣的优惠办法，每位顾客一次购物：1000元至1999元之间者，按九五折优惠。2000元至2999元之间者，按九折优惠。3000元至4999元之间者，按八五折优惠。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元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循环结构1.求S=1+2+3+……+100settalkoffclears=0i=1dowhilei<=100 s=s+i i=i+1enddo?"1~100的和为：",sReturn2.求N！的值。（N！=1*2*3*……*N）clearinput"请输入n的值："tons=1fori=1tons=s*iendfor?"n!=",sreturn3.计算101～500之间的所有奇数之和。clears=0fori=101to500ifi%2!=0s=s+iendifendfor?"101-500的奇数和为：",sreturn4.输出100～1000之间能被37整除的数。settalkoffclearfori=100to1000ifi%37=0?iendifendforsettalkonreturn5．求S=1！+2！+3！+……+10！clears=0T=1forI=1to10T=T*iS=S+1endfor?"S=",Sreturn6．求S=1+（1+2）+（1+2+3）+……+（1+2+3+……+N）clearinput"请输入N的值："toNs=0t=0fori=1toNt=t+is=s+tendfor?"总和为：",s7.从键盘输入一个数，判断其是否为素数。clearinput"请输入数字："tons=0fori=2ton-1ifn%i=0s=1endifendforifs=0?n,"是素数"else?n,"不是素数"endifreturn8.输出从2000到2100年之间的所有闰年。提示：设N为年份数，若N能满足如下两个条件中任一个，则N为闰年。N能被4整除并且N不能被100整除，或者N能被400整除clearfori=2000to2100if(i%4=0andi%100!=0)ori%400=0?iendifendfor9.在表BXCJ.DBF中，已经有数学、计算机、英语、物理四门课程的成绩，编写程序根据每人的平均成绩，在“总评”字段中填入对应的等级。等级评定办法是：90分以上为优，75～89为良，60～74为及格，60分以下为不及格。clearusebxcjexclusivescanavgscore=(数学+计算机+物理+英语)/4docasecaseavgscore>=90 M="优"caseavgscore>=75M="良"caseavgscore>=60M="及格"caseavgscore<60 M="不及格"endcasereplace总评withMendscanuse10．编写程序，分别统计表XSQK.DBF中男、女同学的人数。clearusexsqkexclusivestore0tom,nscan if性别='男' m=m+1 else n=n+1 endifendscan?"男生人数："+str(m)?"女生人数："+str(n)use11．编写程序，中记录倒序逐条显示。clearusexsqkexclusiven=reccount()gobottomfori=1ton display wait skip-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个数的最小值为：”,minPAGEPAGE712．编写程序，使表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…………