VFP笔试试题复习
4.2.1表操作题 78统计出rsda.dbf表中职称为“工程师”的人数 Use rsda , store 0 to s , locate for 职称工程师,do while not eof , ssl , 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实现。 s0 , DO WHILE numoO, ssnum10,numintnum/10, enddo , outs , out. 457 求 pl-l/ 2*2 l/3*3-l/4*4l/5*5结果存在 out 中,用DO WHILE实现 po, Ml, DO WHILE M<5,PP-l人M1/M*M, 414 求 pll/ 2*2 1/3*31/10*10将结果 存入变量out中,用DO WHILE实现 P0, Ml, DO WHILE M10,PP1/M*M, MM1, ENDDO ,” P” ,P , OUTP 73输出10到50之间所有能被7整除的数(用do while 实现)并将这些数存入out中 iio , so , do while i50 , if i70 , i , SSi endif , iil , enddo , OUTs 79用子程序求出1〜15之间的能被3整除的整数的平 方和。将结果存入变量OUT中,要求用for循环实现。 N1, S0 , FOR N1 TO 15, IF N30 , SSN*N ENDIF , ENDFOR , S , SET TALK ON , OUTS 86用循环求出1〜15之间能被3整除的整数的阶乘和 存入变量out中,要求用for循环语句 T1, FOR N1 TO 15, TT*N , IF N30 OUTOUTT , ENDIF , ENDFOR , OUT 87从键盘输入一个整数,输出所有能整除该数,并且 本身也能被3整除的数的和。(eg输入6,输出3,6) 结果存于变量x中,要求用for实现。 FOR N1 TO A , IF AN0.AND.N30 N xxN ENDIF ENDFOR 71求出并显示3 4 5 的值,将结果存入变量out 中,要求用for编程。 S0 , FOR 13 TO 5 , pl , FOR J1 TO I , pp*J , ENDFOR , SSp , endfor , “3 4 5的值是”, s , OUTS 93求1-200间的所有偶数的和,结果输入变量OUT 中,要求用for循环语句实现。 S0, FOR I1TO 200, IF I/2INTI/2, SSI , ENDIF , ENDFOR , S , OUTS 97编程打印一数列,前两个数是0、1,第三个数是前 两个数之和,以后每个数都是其前两个数之和。编程 求出第20个数,将结果存入out中,要求用for循环 语句实现 a0,B1 for i3 to 20, cab , ab , bc , endfor ,c,c, outc 455 编程求 sum3-33333-333333333 S0,t0,d3 , for il to 5 , ttd , sst*-lAil , dd*10 , endfor , outs , out 454 求 suml/3l/33l/333l/3333l/33333 S0,t0,d3, for il to 5, ttd , ssl/t , dd*10 endfor outs out 450fibonacci数列第28项的值。第一项为1,第二项 也为 1,OOOOOOOOO Store 1 to fl,f2 , fflf2 , for i3 to 27, flf2 , f2f , fflf2 , endfor , outf , out 449 s2/l3/25/38/513/821/1334/21 fll,f2l,s0, for il to 7, f3flf2, flf2,f2f3, ssf2/fl , endfor , outs , out 444 all,a2l/lal, a3l/la2..anl/lan-l当 n10 ,求 sala2.alO al , sl , for il to 9,a1.0/la, ssa , endfor , outs , out 445 all,a2l/lal, a3l/la2..anl/lan-l当 n10 ,求 sal-a2a3-a4.-alO al , sl , for il to 9,a1.0/la, ssa*-lAi , endfor , outs , out 435 sum333333333333333333333 S0,t0,d3, for i 1 to 5, ttd , sst , dd*10, endfor , outs , out 431 分数序列 2/1, 3/2,5/3,8/5,13/8,21/13..前 20 项 之和 Fll , f2l , s0 , for il to 20 , f3flf2 , flf2 f2f3 , ssf2/fl , endfor, outs , out 422 all,a2l/lal a3l/la2..anl/lan-l求 alO al , for il to 9,a1.0/la, endfor outs , out 427 yl-l/3l/5-l/7l/9 S1, for