1、计算机VF编程参考答案DOC四、结构化程序设计顺序结构程序设计1、 从键盘输入长方体的长、宽、高，求长方体的表面积。input“输入长方体的长：”tox input“输入长方体的长：”toy input“输入长方体的长：”toz s=2*x*y+2*x*z+2*y*z ”长方体的表面积为：”,s2、 从键盘输入圆的半径，计算圆的面积。input“输入圆的半径：”tors=*r2”圆的面积为：”,s3、 建立数据库XS，将表添加到该数据库，并浏览该表所有数据，最后关闭数据库。CreatedatabasexsAddxsqkBrowseCloseall4、 在表中，查找出生日期为1983年10月8日
2、的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。UsexsqkLocatefor出生日期=1983-10-8DisplayContinueDisplayUse分支结构程序设计1.从键盘输入一个数，若为正数则输出，非正数则结束。 input“输入一个数：”tox ifx0 x endif return2.求一元二次方程AX2+BX+C=0的实根。 input“输入系数A：”toa input“输入系数B：”tob input“输入系数C：”toc m=b2-4*a*c ifm=0 x1=(-b+sqrt(m)/(2*a) x2=(-b-sqrt(m)/(2*a) ”x1=”
3、,x1,”x2=”,x2 else ”方程无实根！”endif3. 从键盘输入一个待查学生的学号，在表中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。usexsqk accept“输入待查学生学号：”tox locatefor学号=x ifnoteof() display else “该学号不存在” Endif Use4.从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。input“输入一个自然数：”tox ifx%2=0 ”偶数” else ”奇数” endif return5.计算函数Y的值。5.答案input“输入X的值：”tox ifx=0
4、f=3*exp(x+2)-1 else f=2*x+5 endif”f=”,f return6.计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费元；若行李重量超过50公斤，其超重部分加收元。编写计算运费的程序。clearinput请输入行李的重量：tonifn=3andm=6andm=9andm=1000andd=2000andd=3000andd=5000 m=d*endcase打折后的金额是：,mreturn9编写程序，输入一个数字（07），显示其对应星期几的中英文信息。clearinput请输入一个数字：tondocase casen=1 M=星期一(M
5、onday) 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元525002000元10320005000元1545000
6、20000元2052000040000元2564000060000元3076000080000元35880000100000元409100000元以上45clearinput请输入月收入：tons=n-1600docasecases=500r=s*cases=2500r=s*10cases=5000r=s*15cases=20000r=s*20cases=40000r=s*25cases=60000r=s*30cases=80000r=s*35cases=100000r=s*40otherwiser=r*endcase应纳税额为：,rreturn循环结构1.求S=1+2+3+100settal
7、koffclears=0i=1dowhilei=90 M=优caseavgscore=75M=良caseavgscore=60M=及格caseavgscore60 M=不及格endcasereplace总评withMendscanuse10编写程序，分别统计表中男、女同学的人数。clearusexsqkexclusivestore0tom,nscan if性别=男 m=m+1 else n=n+1 endifendscan男生人数：+str(m)女生人数：+str(n)use11编写程序，中记录倒序逐条显示。clearusexsqkexclusiven=reccount()gobottomfo
8、ri=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个数的最小值为：”,min12编写程
9、序，使表中每条记录根据职称情况自动进行工资普调。普调规定是：教授每人增加100元，副教授每人增加80元，讲师每人增加50元，助教每人增加30元。settalkoffclearusegongziexclusivebrowselastdocase case职称=教授 replace基本工资with基本工资+100for职称=教授 case职称=副教授 replace基本工资with基本工资+80for职称=副教授 case职称=讲师 replace基本工资with基本工资+50for职称=讲师 case职称=助教 replace基本工资with基本工资+30for职称=助教endcasebrowselastusesettalkonreturn13编写程序，输出如下乘法表。11121222431332633991992189981clearforx=1to9&外层循环y=1dowhiley=x&内层循环 z=x*y str(y,1)+*+str(x,1)+=+str(z,2)+ y=y+1enddoendfor
