王彦祺版vfp课后实验编程题答案Word文档格式.docx

1、3.判断是否是闰年. CLEARinput 输入一个年份 to y & 请保证输入的是数字，不再做错误处理IF y % 4 = 0 .and. y % 100 != 0 .or.y % 400 = 0 MESSAGEBOX（是闰年）ELSE不是闰年ENDIF4. 从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。use xsqk accept “输入待查学生学号： locate for 学号=x if not eof（） display“该学号不存在” Endif Use5. 从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为

2、奇数则输出信息“奇数”。input “输入一个自然数： if x%2=0” 偶数” 奇数”6. 计算函数Y的值。6.答案input “输入X的值： y=3*x-1 y=2*x+5”y=”,y7. 计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费0.5元；若行李重量超过50公斤，其超重部分加收0.4元。编写计算运费的程序。clear请输入行李的重量： to nif n=3 and m=5春季=6 and m=8夏季=9 and m=11秋季 otherwise冬季 endcase9编写程序，输入一个数字（07），显示其对应星期几的中英文信息。请输入一个数字： c

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

4、00060000元3076000080000元35880000100000元409100000元以上45请输入月收入：s=n-1600 case s=500 r=s*0.05=2500 r=s*10=5000 r=s*15=20000 r=s*20=40000 r=s*25=60000 r=s*30=80000 r=s*35=100000 r=s*40 r=r*0.45endcase应纳税额为：,rreturn三.循环结构1. 求S=1+2+3+100set talk offs=0i=1do while i=100 s=s+i i=i+1enddo1100的和为：Return2. 求N！的值。

5、 （N！=1*2*3*N）请输入n的值：s=1for i=1 to n s=s*iendforn!=3. 计算101500之间的所有奇数之和。for i=101 to 500 if i%2!101-500的奇数和为：4. 输出1001000之间能被37整除的数。for i=100 to 1000 if i%37=0iset talk on5求S=1！+2！+3！+10！s=0 T=1 for I=1 to 10 T=T*i S=S+1 S=,S6求S=1+（1+2）+（1+2+3）+（1+2+3+N）请输入N的值： to Nt=0 for i=1 to N t=t+i s=s+t总和为：7.

6、求S（n）=a+aa+aaa+.+aaa.aaa（其中有n个a）之值，a是一个数字，n和a由键盘键入（例如：2+22+222+2222+22222，此时n=5） clea inpu a= to a n= to n t=a for i=1 to n s=s+t t=a+t*10 endfor s 8.求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身）Clea for x=100 to 999 a=int（x/100） b= mod（int（x/10）,10） c=mod（x,10） if x=a*a*a+b*b*b+c*c*c x Endif 9.输出Fibonacci（斐

7、波那契）数列的前40项Clear Dime a（40） a（1）=1 a（2）=1 For i=3 to 40 a（i）=a（i-1）+a（i-2） Endfor For i=1 to 40 A（i） 10. 输入两个正整数m和n 求其最大公约数和最小公倍数m= to mn=for i=min（m,n） to 1 step -1 if m%i=0 and n%i=0 y=m*n/i exit endfor这两个数的最大公约数是：,i这两个数的最小公倍数是：,y11. 从键盘输入一个数，判断其是否为素数。请输入数字：for i=2 to n-1if n%i=0 s=1 if s=0n,是素数不是

8、素数12.求第1000到2000nr=0for ny=2000 to 3000if mod（ny,400）=0 .or. （mod（ny,4）=0 .and. mod（ny,100）0）闰年,nynr=nr+1有+str（nr）+个闰年13.从键盘输入10个数到数组a（10）中,显示数组中所有元素值dime a（10）for i=1 to 10 to a（i）a（ + STR（i） +）= ,a（i）14.设计一个程序可以从键盘接收数据给数组a（3,4）中所有元素赋值,并计算所有数组元素的累加和,打印结果dimension a（3,4）for m=1 to 3 for n=1 to 4 请输入

9、第+str（m,1）+行第+str（n,1）+列数据: to a（m,n） s=s+a（m,n） 所有数组元素的累加和是15. 在表BXCJ.DBF中，已经有数学、计算机、英语、物理四门课程的成绩，编写程序根据每人的平均成绩，在“总评”字段中填入对应的等级。等级评定办法是：90分以上为优，7589为良，6074为及格，60分以下为不及格。 clearuse bxcj exclusiveavgscore=0scanavgscore=（数学+计算机+物理+英语）/4 case avgscore=90 M=优=75 M=良=60及格 case avgscore60不及格replace 总评 with

10、 M endscanuse16编写程序，分别统计表XSQK.DBF中男、女同学的人数。use xsqk exclusivestore 0 to m,n if 性别=男 m=m+1 n=n+1男生人数：+str（m）女生人数：+str（n）use 或者use 表count for 性别=男 to ls 女 to ns ,ls ,ns17.编写程序，输出如下乘法表。111212 224313 326 339 919 9218 9981for x=1 to 9 &外层循环y=1 do while ya（j） temp=a（i） a（i）=a（j） a（j）=temp endif for i=1 to n &输出排序以后的数组a（i） cancel