VFP笔试试题复习要点

1、4.2. 1表操作题78统计出rsda.dbf表中职称为“工程师”的人数，Use rsda , store 0 to s , locate for 职称="工程师” ， do whilenot eof() , s=s+1 , continue , enddo461计算机等级考试成绩笔试和上机均大于等于80优秀Use student , do while .not.eof() , if 笔试 >=80 and 上机 >=80 , REPL 等级 with “优秀” ，endif, skip , enddo , list462由工资表。Dbf按性别汇总工资Use 工资表 ，i

2、ndex on 性别 to sy , total on 性别 to 汇总.dbf fildes 工资， use 汇总， list4.2.2求和题：437计算num的各位上的数字之和，将结果存入变量out中，用DOWHILE实现。s=0 , DO WHILE num<>0,s=s+num%10, num=int(num/10), enddo , out=s , ?out.457 求 p=1-1/(2*2) +1/(3*3)-1/(4*4)+1/(5*5)结果存在 out中，用DO WHILE实现P=0, M=1, DO WHILE M<=5,P=P+(-1)八(M+1)/(M*

3、M),M=M+1, ENDDO , ?"P=",P ,OUT=P414 求 p=1+1/ (2*2) +1/(3*3)+1/(10*10)将结果存入变量out中，用DO WHILE实现P=0,M=1, DO WHILE M<=10,P=P+1/(M*M),M=M+1, ENDDO , ? P="，P , OUT=P73输出10到50之间所有能被7整除的数(用do while 实现)并将这些数存入out中i=10 , S=0 , do while i<=50 , if i%7=0 , ?i , S=S+i ,endif , i=i+1, enddo ,

4、OUT=s79用子程序求出115之间的能被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=S86用循环求出115之间能被3整除的整数的阶乘和 存入变量out中，要求用for循环语句T=1, FOR N=1 TO 15, T=T*N , IF N%3=0,OUT=OUT+T , ENDIF , ENDFOR , ?OUT87从键盘输入一个整数，输出所有能整除该数，并且 本身也能被3整除的数的和。(eg

5、输入6,输出3,6) 结果存于变量x中，要求用for实现。FOR N=1 TO A , IF A%N=0.AND.N%3=0, ?N , x=x+N ,ENDIFENDFOR71求出并显示3! +4! +5!的值，将结果存入变量out 中，要求用for编程。S=0 , FOR I=3 TO 5 , p=1 , FOR J=1 TO I , p=p*J ,ENDFOR , S=S+p ,endfor ,? “3! +4! +5!的值是：”，s , OUT=S93求1200间的所有偶数的和，结果输入变量OUT中，要求用for循环语句实现。S=0, FOR I=1TO 200, IF I/2=INT

6、(I/2), S=S+I ,ENDIF , ENDFOR , ?S , OUT=S97编程打印一数列，前两个数是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=c455 编程求 sum=3-33+333-3333+33333S=0,t=0,d=3 , for i=1 to 5 , t=t+d ,s=s+t*(-1)八(i+1) , d=d*10 ,endfor , ou

7、t=s , ? out454 求 sum=1/3+1/33+1/333+1/3333+1/33333S=0 ,t=0 , d=3 , for i=1 to 5 , t=t+d ,s=s+1/t ,d=d*10endforout=sout450fibonacci数列第28项的值。第一项为1,第二项也为1?oooooooooStore 1 to f1,f2,f=f1+f2, for i=3 to 27 ,f1=f2 , f2=ff=f1+f2, endfor , out=f ,? out449 s=2/1+3/2+5/3+8/5+13/8+21/13+34/21f1=1, f2=1,s=0 , f

8、or i=1 to 7,f3=f1+f2f1=f2 ,f2=f3,s=s+f2/f1, endfor , out=s ,out444a1=1,a2=1/(1+a1),a3=1/(1+a2) .an=1/(1+a(n-1)当 n=10 ,求s=a1+a2+.+a10a=1, s=1 , for i=1 to 9,a=1.0/(1+a) , s=s+a ,endfor , out=s ,? out445a1=1,a2=1/(1+a1),a3=1/(1+a2) .an=1/(1+a(n-1)当 n=10 ,求s=a1-a2+a3-a4.-a10a=1,s=1, for i=1 to 9,a=1.0/

9、(1+a),s=s+a*(-1)Ai, endfor , out=s ,? out435 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 ,? out431 分数序列 2/1, 3/2,5/3,8/5,13/8,21/13 .前 20 项之和F1=1 ,f2=1 , s=0 , for i=1 to 20 ,f3=f1+f2 , f1=f2f2=f3 , s=s+12/f1 , endfor, out=s , ? out422a1=1,

10、a2=1/(1+a1)a3=1/(1+a2) .an=1/(1+a(n-1) 求 a10a=1, for i=1 to 9,a=1.0/(1+a), endforout=s ,? out427 y=1-1/3+1/5-1/7+1/9S=1, for i=1 to 4,s=s+(-1)Ai/(2*i+1), endforout=s ,? out428y=1-1/2+1/4-1/6+1/8-1/10S=1, for i=1 to 5,s=s+(-1)Ai/(2*i), endforout=s ,? out4.2.4 最大(小)值77任意数三个数从大到小排序If x<y, k=x, x=y,

11、y=k ,endif, If x<z,k=xx=z ,z=k , endif, If y<z, k=y , y=z,z=kendif , ?x,y,z , a=x , b=y , c=z94输入三个数找出最大和最小Ma=a, mi=a, if b>a, ma=b, endif,if mi>bmi=b, endif, if ma<c , ma=c , endif,if mi>cmi=cendif439 求 1*1+2*2+。+n*n<=1000 中满足条件的 最大的nS=0 ,n=1, do while s<=1000 ,n=n+1, s=s+n*

12、n ,enddo , out=n-1 , ? out4.2.5 字符处理类74在屏幕上纵向输出"计算机等级考试"。S=” 计算机等级考试”，i=1 , do while i<14 , ?”SUBS(S,I,2)”, IF I=9, Y=SUBS(S,I,2) , endif ,i=i+2 , enddo91输入一个三位数，将个十百位顺序拆开分别存入变 量s中，用加号分隔。如输入345分开后为要求用dowhile实现。do while n>10,a=n%10, s=" +" +str(int(a),1)+s ,n=n-a , n=n/10 ,

13、enddo , s=subs(s,2,len(s)426编程统计一个长度为2的字符串在另一个字符串| 中出现的次数。例如。OOO将结果存入out中要求用 dowhile 实现I=0 , n=0 , do while i<=len(str1)-1 , if str2=substr(str1,I,2), n=n+1 , endif i=i+1, enddo , out=n , ? out85从键盘输入一个汉字字符串，送入变量 s中，将它 逆向存入变量Y中，如：输入"计算机考试"，输出为" 试考机算计二要求用for循环实现。For n=1 to len(s)-1

14、step 2 , y=y+subs(s,len(s)-n,2) , endfor 416过滤已存在字符串变量str中的内容，只保留串中 的字母字符，并统计新生成串中包含的字母个数。将 生成的结果字符串存入变量out中。N=len(str) ,L=0,S=" '' , for i=1 to n , ifsubstr(str,i,1)<= and Zubstr(str,i,1)>=or 'substr(str,i,1)<=and zsubstr(str,i,1)>= , ' a= L+1, S=S+ substr(str,i,1)

15、, endif ,endfor , ?" s=” ,s out=s456编程将一个由四个数字组成的字符串转换为每两 个数字间有一个字符"*"的形式输出。例如输入 "4567",应输出"4*5*6*7"。将结果存入变量 out中。Spc=" *“，s=" "，for i=1 to len(str)-1 , s=s+ substr(str,i,1)+spc , endfor , s=s+ substr(str,i,1) , out=s ,? out,len(out)436编程将一个由四个数字组成的字

16、符串转换为每两 个数字间有一个空格的形式输出。例如输入 "4567”, 应输出"4 5 6 7",将结果存入变量out中，要求用for 循环语句实现。Spc=space(1) ,s=" ", for i=1 to len(str)-1 , s=s+ substr(str,i,1)+spc , endfor , s=s+ substr(str,i,1) , out=s ,out,len(out)4.2.6 图形题92计算并在屏幕上显示乘法表，将各部分结果相加存入变量z中，要求用dowhile实现。X=1,?, do while x<=9,y

17、=1, do whiley<=x,?str(y,1)+' x' +str(x,1)+' ='+s,tr(x*y=Z)+(*y，:y=y+1,enddo , ?, x=x+1, enddo75输出图形*(要求使用for语句，利用双重循环语句)要求：将第三行的所有字符存 入变量s中For i=1 to 4 , for j=1 to i , ?” *"， endfor , ? , endfor82利用循环程序输出图形：1222.33333.4444444并将输出第三行存入变量 s中。N=1, for n=1 to 4, ?space(4-n) , fo

18、r m=1 to2*n-1,?str(n,1) , endfor , endfor , set talk on s=" 33333”84利用循环输出图形：4333222221111111并将最后一行存入变量s中。For n=1 to 4, ?space(4-n) , for m=1 to2*n-1 , ?str(4-n+1,1) , endfor , endfor , s=" 1111111” 4.2.7数组题452 求 max-min=Store array(1) to max,min , for i=1 to 10 , if array(i)>max , max=

19、array(i) , endif , if array(i)<min , min=array(i) ,endifendforout=max-minoutfor i=1 to 10 , if array(i)>max451 求 max+minStore array(1) to max,min max=array(i) , endif , if array(i)<min , min=array(i) , endif , endfor , out=max+min , ? out446找出正整数中的最小的偶数，M=100 , for i=1 to 10 , if array(i)%2

20、=0 , if min>array(i), min=array(i) , endif , endif , endfor , out=min , ? out 447找出正整数中的最小的奇数，Min=array (1), for i=1 to 10 , if array(i)%2! =0 , ifmin>array(i) , min=array(i) , endif , endif , endfor , out=min , ? out448找出正整数中的最大的奇数，Max=array (1), for i=1 to 10 , if array(i)%2! =0, ifmax<ar

21、ray(i) , max=array(i) , endif , endif , endfor , out=max , ? out 453 求 max*minStore array(1) to max,min , for i=1 to 10 , if array(i)>max,max=array(i) , endif , if array(i)<min , min=array(i),endif , endfor , out=max*min , ? out429求一组数中大于平均值的个数S=0,for i=1 to 10,s=s+array(i), endfor, s=s/10,n=0

22、,for j=1 to 10,if array(j)>s ,n=n+1, endif,endforout=nout430找出正整数中的最大的偶数，Max=array ( 1 ), for i=1 to 10, if array(i)%2=0 , ifmax<array(i) , max=array(i) , endif , endif , endfor , out=max , ? out4.2.8其他类69输入三角形的边长，输入边长满足两边之和大于第 三边，且为正值。计算并输出三角形的面积s;若不满足以上条件，显示输出"不能构成三角形"。将面积 值存入变量 ar

23、ea中。S=(a+b+c)/2 , if a+b>c and b+c>a and a+c>b and a>0 and b>0 and c>0 , area=sqrt(s*(s-a)*(s-b)*(s-c) , else , ?”不能构成三角 形”,area=-1 , endif72 编程求 p_-1*(1*2)*(1*2*3)*(1*2*3*.*N).P=1 , for i=1 to n , q=1, for j=1 to i , q=q*j ,endfor , p=p*q , endfor , out=p80从键盘输入一个数，如果该数字大于0,通过子程序输

24、出该数字作为半径的圆面积；如果该数字小于等 于0,则输出"不能作为圆的半径"。将结果存入变量 out中If a>0 , out=a*a*3.14 , else , out= -1 , endif166计算下列分段函数：当输入x时，显示输出y要求用docase实现Do case , case x<1,y=x*3, cae x>=1 and x<10,y=xA2, otherwise , y=7*x-4 , endcase , ?y415判断一个三位数是否为"水仙花数"，输出判断结 果。是为1,否为0。Bw=int(n/100), s

25、w=int(n-bw*100)/10), gw=n%10 , if n=bw*bw*bw+ sw*sw*sw+ gw*gw*gw , out=1 , else , out=0 , endif , ? out 418判断整数w的各位数字平方之和能否被5整除，可以则返回1,否则返回0S=0 , do while w>0 , s=s+(w%10)*(w%10) , w=int(w/10), enddo , if s %5=0 , out=1 , else , out=0 , endif , ? out419求一个大于10的n位整数的后n-1位的数N=0,i=1, do while (w>10),n=n+i*(w%10),w=int(w/10), i=i*10, enddo , ? n , out=n420求对某一正数的值保留两位小树，并对第三位进 行四舍五入， i=0 ,i=int(h*100