VFP笔试试题复习Word文件下载.docx

1、”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 , 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整除的整数

2、的阶乘和存入变量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 , ENDFOR71求出并显示3！+4！+5！的值，将结果存入变量out中，要求用for编程。S=0 , FOR I=3 TO 5 , p=1 , FOR

3、J=1 TO I , p=p*J , ENDFOR , S=S+p ， endfor ， ？“3！的值是：”，s ， OUT=S93求1200间的所有偶数的和，结果输入变量OUT中，要求用for循环语句实现。S=0 , FOR I=1TO 200 ， IF I/2=INT（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

4、=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 , out=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*10 , endfor , out=s , ?450fibonacci 数列第28项的值。第一项为1，第二项也为1，。

5、Store 1 to f1,f2 , f=f1+f2 , for i=3 to 27 , f1=f2 , f2=f , f=f1+f2 , endfor , out=f , ?449 s=2/1+3/2+5/3+8/5+13/8+21/13+34/21f1=1 , f2=1 , s=0 , for i=1 to 7 , f3=f1+f2 , f1=f2 , f2=f3 , s=s+f2/f1 , endfor , out=s , ?444 a1=1 , a2=1/（1+a1） , a3=1/（1+a2） .an=1/（1+a（n-1）当n=10 ,求s=a1+a2+.+a10a=1 , s=1

6、 , for i=1 to 9 , a=1.0/（1+a） , s=s+a , endfor , out=s , ?445 a1=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/（1+a） , s=s+a*（-1）i , endfor , out=s , ?435 sum=3+33+333+3333+33333+333333S=0 , t=0 , d=3 , for i=1 to 5 , t=t+d , s=s+t , d=d*10 ,

7、 endfor , out=s , ?431 分数序列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=f2 , f2=f3 , s=s+f2/f1 , endfor , out=s , ?422 a1=1 , 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） , endfor , out=s , ?427 y=1-1/3+1/5-1/7+1/9S=1 , for i=1

8、 to 4 , s=s+（-1）i/（2*i+1） , endfor , out=s , ?428y=1-1/2+1/4-1/6+1/8-1/10S=1 , for i=1 to 5 , s=s+（-1）i/（2*i） , endfor , out=s , ?4.2.4最大（小）值77任意数三个数从大到小排序If xy , k=x , x=y , y=k , endif , If xz , k=x , x=z , z=k , endif , If ya , ma=b , endif , if mib , mi=b , endif , if mac , mi=c , endif 439求1*1+

9、2*2+。+n*n=1000中满足条件的最大的nS=0 , n=1 , do while s=1000 , n=n+1 , s=s+n*n , enddo , out=n-1 , ? out 4.2.5字符处理类74在屏幕上纵向输出计算机等级考试S=”计算机等级考试” ， i=1 , do while i10 , a=n%10 , s=”+”+str（int（a）,1）+s , n=n-a , n=n/10 , enddo , s=subs（s,2,len（s） 426编程统计一个长度为2的字符串在另一个字符串中出现的次数。例如。将结果存入out中要求用dowhile实现I=0 , n=0 ,

10、 do while i=len（str1）-1 , if str2=substr（str1,I,2） , n=n+1 , endif i=i+1 , enddo , out=n , ?85从键盘输入一个汉字字符串，送入变量s中，将它逆向存入变量Y中，如：输入计算机考试，输出为试考机算计，要求用for循环实现。For n=1 to len（s）-1 step 2 , y=y+subs（s,len（s）-n,2） , endfor416过滤已存在字符串变量str中的内容，只保留串中的字母字符，并统计新生成串中包含的字母个数。将生成的结果字符串存入变量out中。N=len（str） , L=0 ,

11、S=” , for i=1 to n , if substr（str,i,1）=A or substr（str,i,1）=a , L=L+1 , S=S+ substr（str,i,1） , endif , endfor , ?”s=”,s , out=s 456编程将一个由四个数字组成的字符串转换为每两个数字间有一个字符*的形式输出。例如输入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） , o

12、ut=s , ? out,len（out）436编程将一个由四个数字组成的字符串转换为每两个数字间有一个空格的形式输出。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 , ?4.2.6图形题92计算并在屏幕上显示乘法表，将各部分结果相加存入变量z中，要求用dowhile实现。X=1 , ? , do while x=9 , y=1 , do while yma

13、x , max=array（i） , endif , if array（i）array（i） , min=array（i） , endif , endif , endfor , out=min , ?447找出正整数中的最小的奇数，Min=array（1） , for i=1 to 10 , if array（i）%2！=0 , if min448找出正整数中的最大的奇数，Max=array（1） , for i=1 to 10 , if array（i）%2！=0 , if maxs , n=n+1 , endif , endfor , out=n , ?430找出正整数中的最大的偶数，Ma

14、x=array（1） , for i=1 to 10 , if array（i）%2=0 , if maxc and b+ca and a+cb and a0 and b0 and c0 , area=sqrt（s*（s-a）*（s-b）*（s-c） , else , ? , area=-1 , endif 72 编程求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，通过子程

15、序输出该数字作为半径的圆面积；如果该数字小于等于0，则输出不能作为圆的半径将结果存入变量out中If a0 , out=a*a*3.14 , else , out= -1 , endif 166计算下列分段函数：当输入x时，显示输出y 要求用docase实现Do case , case x=1 and x0 , s=s+（w%10）*（w%10） , w=int（w/10） , enddo , if s %5=0 , out=1 , else , out=0 , endif , ?419求一个大于10的n位整数的后n-1位的数N=0 ， i=1 , do while （w10） , n=n+i

16、*（w%10） , w=int（w/10） , i=i*10 , enddo , ? n , out=n 420求对某一正数的值保留两位小树，并对第三位进行四舍五入，i=0 , i=int（h*1000）%10） , if i=5 , out=（h*100+1）/100 , else , out=int（h*100）/100 , endif , ?423求自然数345各位数字的积S=1 , do while n0 , d=n%10 , s=s*t , n=int（n/10） , enddo , out=s , ?432 fibonacci 数列前28项的和。Store 1 to f1,f2 ,

17、 f=f1+f2 , for i=3 to 28 , k=k+f , f1=f2 , f2=f , endfor , out=k , ?434变量x为不超过五位的正整数，求x的位数Do case , case x9999 , place=5 ,case x999 , place=4 ,case x99 , place=3 , case x9 , place=2 , otherwise , place=1 , endcase , out=place , ?438求一个整数，它加上一百后是一个完全平方数，再加上168有事一个完全平方数i=1 , do while i=5 , out=（h*1000+1）/1000 , else , out=int（h*1000）/1000 , endif , ?458 计算正整数num的各位上的数字之积，S=1 , do while num0 , s=s*（NUM%10） , NUM=INT（NUM/10） , enddo , out=s , ?