VFP编程题汇总-.pdf

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

1、第 1 页 共 6 页阅读理解题1、下面程序在输入100 时的运行结果是。set talk off input to x if x50 y=abs(x)+100 else y=sqrt(x)endif?y set talk on 2、下面程序的运行结果是。set talk off s=1 for i=1 to 5 step 1 s=s*i endfor?s set talk on 3、下面程序的运行结果是。set talk off dimension bb(100)for i=1 to 100 if mod(i,3)=1 bb(i)=10+i else bb(i)=2*i endif endf

2、or?bb(34)+bb(50)set talk on 4、已知数据表xscj.dbf中有姓名(c)、专业(c)、成绩(n)三个字段，下面程序的功能是。set talk off use xscj.dbf mcj=成绩do while not eof()if mcjmax max=n endif next?max 7、下面程序的运行结果是。set talk off s=0 mp=0 do cc with mp,7 s=s+mp mp=0 do cc with mp,10 s=s+mp?s set talk on return procedure cc parameters p,w p=w*w r

3、eturn endproc 第 2 页 共 6 页8、从键盘上输入一个整数x，计算并输出函数的值。x+5（x 为奇数）y=x3-25（x 为偶数）input to x if mod(x,2)=0 y=x3-25 else y=x+5 endif?y 9、从 键 盘 输 入 一 个 正 整 数n，计 算 并 输 出s=1+2+3+,+n。input to n s=0 for i=1 to n s=s+i next?s 10下面程序在分别输入4、一 3、5、16 时的运行结果分别为。set talk 0ff input t0 x d0 case case x0 y=10一 x case x5 y=

4、x*x case xlo y=2*x otherwise y=sqrt(x)endcase?y set talk 0n return 11.下面程序的运行结果为。set talk 0ff n=10 do while n24 if mod(n,3)=0/判断 n 是否能够被3 整除?n endif n=n+l enddo set talk 0n return 12下面程序的运行结果为。set talk off dimension sz(10)for i=l t0 lo sz(i)=i*2 endfor?sz(4)+sz(7)set talk 0n return 13已知数据表xsda.dbf包含

5、字段：学号(c)、姓名(c)、性别(c)、专业(c)、年龄(n)，则下面程序的功能是 _ _ _；求 xsda 表中计算机专业女生的平均年龄_ set talk 0ff use xsda dbf xs=0 mage=0 scan for 专业=计算机 if 性别=女 xs=xs+l mage=mage+年龄 endif endscan?magexs set talk 0n return 第 3 页 共 6 页14已知：s=1!+2!+3!+4!+5!求下面程序的运行结果为。set talk off s=0 for i=1 to 5 s=s+jc(i)next i?s set talk on r

6、eturn endfunc 子过程(函数)function jc parameters n/参数变量ms=1 for j=1 to n ms=ms*j n!next j return ms 15.某邮局关于邮寄包裹重量收费标准如下：100 克以下收费 5元，超过100 克部分，每增加l 克加收 01元。请根据键盘输入的包裹重量，计算并输出邮寄费。input to x if x15 b=10 case a25 b=20 endcase?b a）10 b）20 c）27 d）出错信息18下列程序段的功能是。store 0 to x,s do while xb a=a+b b=a*b otherwi

7、se a=a*b b=a-b endcase?”a=”,a,”b=”,b20、下列程序的运行结果是。i=1 s=0 do while is s=年龄 endif if 年龄 0 s=x2*pi()?s else?”该数无效！”endif 第 5 页 共 6 页25、请用循环嵌套结构编程输出下面图形。*clear for i=1 to 4 for j=1 to 4-i?next for j=1 to 2*i+3?*next?next 26、查找 100-999 间所有的水仙花数for n=100 to 999 x=int(n/100)y=int(n-100*x)/10)z=mod(n,10)if

8、 n=x3+y3+z3?n endif endfor return 27、从键盘输入一个数，判断是不是质数input 请输入一个数:to x bt=.t.for i=2 to x-1 if mod(x,i)=0 bt=.f.exit endif endfor if bt=.f.?该数不是质数 else?该数是质数 endif return 28、请输出下列结果（本题难在“通向公式”，当图案改变时，怎样确定？）*clea for i=1 to 4 for j=1 to 2*i-2?endfor for k=1 to 10-2*i?*endfor?Endfor 29、求下列程序的结果。clea x

9、=2 y=3?x,y do sub1?x,y procedure sub1&定义一个子程序,名称为 sub1 private y&定义一个私有变量,y x=4 y=5 return 第 6 页 共 6 页30、计算：1！+2！+3！+,+n!S=0 Input“从键盘输入一个数:”to n For i=1 to n K=1 For j=1 to i K=k*j Endfor S=s+k Endfor?s Return 31、从键盘输入两个正整数m,n，求两数的最大公约数Input“请输入一个正整数”to a Input“请输入另一个正整数”to b If ab c=a a=b b=c endi

10、f r=mod(a,b)do while r#0 a=b b=r r=mod(a,b)enddo?b 32、求前 100 个奇数的和Count=0 I=1 S=0 Do while count=100 If mod(I,2)=1 S=s+i Count=count+1 Endif I=i+1 Enddo?s,i Return 33、编写程序输出下列图像 *Clear For i=1 to 5 For j=1 to 5-i?”Endfor For k=1 to 2*i-1?”*”Endfor?Endfor 打印九九乘法口诀表clea For i=1 to 9 For j=1 to i?+alltrim(str(j)+*+alltrim(str(i)+=+alltrim(str(i*j)Endfor?Endfor return