VFP编程题汇总

第 1 页 共 6 页

阅读理解题

1、下面程序在输入100时的运行结果是 。 bb(i)=10+i max=n

set talk off input to x if x<50

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

else

bb(i)=2*i endif endfor

?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 mcj<成绩 mcj=成绩 endif skip enddo ?mcj use

set talk on

6、从键盘输入10个数,找最大数 input “请输入一个数” to n for i=1 to 9

input “请输入一个数” to n if n>max 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 return endproc

第 2 页 共 6 页

8、从键盘上输入一个整数x，计算并输出函数的值。 set talk 0ff input t0 x 12．下面程序的运行结果为 。 set talk off x+5（x为奇数） y= x3-25（x为偶数） input to x if mod(x,2)=0 y=x^3-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时的运行结果分别为 。

d0 case case x<0 y=10一x case x<5 y=x*x case x

14． 已知： s=1!+2!+3!+4!+5! 求下面程序input to x a=27 的运行结果为 。 set talk off s=0 for i=1 to 5 s=s+jc(i) next i ?s set talk on return 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克加收0．1元。请根据键盘输入的包裹重量，计算并输出邮寄费。

if x<100 y=5 else y=5+(x-100)*0.1 endif ?y 16．通过键盘输入30名学生的成绩，计算并输出平均成绩。 s=0 for i=1 to 30 input to score s=s+score next ?s/30 input to n jc=1 for i=1 to n jc=jc*i next ?jc 17．运行下列程序段时，b的显示结果为 。 do case case a>15 b=10 case a>25 b=20 endcase ? b a）10 b）20 c）27 d）出错信息 18．下列程序段的功能是 。 store 0 to x, s do while x<=100 if x%2=1 s=s+x endif x=x+1 enddo ? s a）求1～100之间的自然数中个位数不为1的那些数的累加和 b）求1～100之间的自然数中个位数为1的那些数的累加和 c）求1～100之间的偶数的累加和 d）求1～100之间的奇数的累加和 第 4 页 共 6 页

19、下列程序的运行结果是 。 a=5 b=3 do case case a>b a=a+b b=a*b otherwise a=a*b b=a-b endcase ?”a=”,a,”b=”,b 20、下列程序的运行结果是 。 i=1 s=0 do while i<=5 s=s+i i=i+2 enddo ?”s=”,s

21、下列程序的运行结果是 。 dimesion x(3,3) s=0 for i=1 to 3 for j=1 to 3 x(i,j)=i*j if i=j s=s+x(i,j) endif next endfor ?”s=”,s 22、已知数据表xsxx.dbf中包含：学号（c）、姓名（c）、年龄（n）三个字段。下列程序的功能是 。 use xsxx store 年龄 to s,t scan if 年龄>s s=年龄 endif if 年龄0 s=x^2*pi( ) ?s else ?” 该数无效！” endif 第 5 页 共 6 页

25、请用循环嵌套结构编程输出下面图形。 27、从键盘输入一个数，判断是不是质数 clea ***** ******* ********* *********** 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 n=x^3+y^3+z^3 ?n endif endfor return

input \请输入一个数:\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、请输出下列结果 （本题难在当图案改变时，怎样确定？） ******** ****** **** ** ，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=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 a

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 ??\+\ Endfor ? Endfor 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 a

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 ??\+\ Endfor ? Endfor return