VFP笔试试题复习
4.2.1表操作题 78统计出rsda.dbf表中职称为“工程师”的人数 Use rsda , store 0 to s , locate for 职称=“工程师“,do while not eof() , s=s+l , continue , enddo 461计算机等级考试成绩笔试和上机均大于等于80 优秀 Use student , do while .not.eof() , if 笔试>=80 and 上机>=80, REPL 等级 with “优秀“,endif , skip , enddo , list 462由工资表。Dbf按性别汇总工资 Use 工资表 ,index on 性别 to sy , total on 性别 to 汇总.dbf fildes 工资, use 汇总, list 4.2.2求和题: 437计算num的各位上的数字之和,将结果存入变量out中,用DO WHILE实现。 s=0 , DO WHILE numoO, s=s+num%10,num=int(num/10), enddo , out=s , ?out. 457 求 p=l-l/ (2*2) +l/(3*3)-l/(4*4)+l/(5*5)结果存在 out 中,用DO WHILE实现 p=o, M=l, DO WHILE M<=5,P=P+((-l)人(M+1))/(M*M), 414 求 p=l+l/ (2*2) +1/(3*3)+1/(10*10)将结果 存入变量out中,用DO WHILE实现 P=0, M=l, DO WHILE M<=10,P=P+1/(M*M), M=M+1, ENDDO ,?” P=” ,P , OUT=P 73输出10到50之间所有能被7整除的数(用do while 实现)并将这些数存入out中 i=io , s=o , do while i<=50 , if i%7=0 , ?i , S=S+i endif , i=i+l , enddo , OUT=s 79用子程序求出1〜15之间的能被3整除的整数的平 方和。将结果存入变量OUT中,要求用for循环实现。 N=1, S=0 , FOR N=1 TO 15, IF N%3=0 , S=S+N*N ENDIF , ENDFOR , ?S , SET TALK ON , OUT=S 86用循环求出1〜15之间能被3整除的整数的阶乘和 存入变量out中,要求用for循环语句 T=1, FOR N=1 TO 15, T=T*N , IF N%3=0 OUT=OUT+T , ENDIF , ENDFOR , ?OUT 87从键盘输入一个整数,输出所有能整除该数,并且 本身也能被3整除的数的和。(eg输入6,输出3,6) 结果存于变量x中,要求用for实现。 FOR N=1 TO A , IF A%N=0.AND.N%3=0 ?N x=x+N ENDIF ENDFOR 71求出并显示3! +4! +5 !的值,将结果存入变量out 中,要求用for编程。 S=0 , FOR 1=3 TO 5 , p=l , FOR J=1 TO I , p=p*J , ENDFOR , S=S+p , endfor , ? “3! +4! +5!的值是:”, s , OUT=S 93求1-200间的所有偶数的和,结果输入变量OUT 中,要求用for循环语句实现。 S=0, FOR I=1TO 200, IF I/2=INT(I/2), S=S+I , ENDIF , ENDFOR , ?S , OUT=S 97编程打印一数列,前两个数是0、1,第三个数是前 两个数之和,以后每个数都是其前两个数之和。编程 求出第20个数,将结果存入out中,要求用for循环 语句实现 a=0,B=1 for i=3 to 20, c=a+b , a=b , b=c , endfor ,?“c=“,c, out=c 455 编程求 sum=3-33+333-3333+33333 S=0,t=0,d=3 , for i=l to 5 , t=t+d , s=s+t*(-l)A(i+l) , d=d*10 , endfor , out=s , ? out 454 求 sum=l/3+l/33+l/333+l/3333+l/33333 S=0,t=0,d=3, for i=l to 5, t=t+d , s=s+l/t , d=d*10 endfor out=s ? out 450fibonacci数列第28项的值。第一项为1,第二项 也为 1,OOOOOOOOO Store 1 to fl,f2 , f=fl+f2 , for i=3 to 27, fl=f2 , f2=f , f=fl+f2 , endfor , out=f ,? out 449 s=2/l+3/2+5/3+8/5+13/8+21/13+34/21 fl=l,f2=l,s=0, for i=l to 7, f3=fl+f2, fl=f2,f2=f3, s=s+f2/fl , endfor , out=s ,? out 444 al=l,a2=l/(l+al), a3=l/(l+a2)an=l/(l+a(n-l))当 n=10 ,求 s=al+a2+.+alO a=l , s=l , for i=l to 9,a=1.0/(l+a), s=s+a , endfor , out=s ,? out 445 al=l,a2=l/(l+al), a3=l/(l+a2)an=l/(l+a(n-l))当 n=10 ,求 s=al-a2+a3-a4.-alO a=l , s=l , for i=l to 9,a=1.0/(l+a), s=s+a*(-l)Ai , endfor , out=s ,? out 435 sum=3+33+333+3333+33333+333333 S=0,t=0,d=3, for i= 1 to 5, t=t+d , s=s+t , d=d*10, endfor , out=s ,? out 431 分数序列 2/1, 3/2,5/3,8/5,13/8,21/13……前 20 项 之和 Fl=l , f2=l , s=0 , for i=l to 20 , f3=fl+f2 , fl=f2 f2=f3 , s=s+f2/fl , endfor, out=s , ? out 422 al=l,a2=l/(l+al) a3=l/(l+a2)an=l/(l+a(n-l))求 alO a=l , for i=l to 9,a=1.0/(l+a), endfor out=s ,? out 427 y=l-l/3+l/5-l/7+l/9 S=1, for