VFP笔试试题复习Word文件下载.docx
《VFP笔试试题复习Word文件下载.docx》由会员分享，可在线阅读，更多相关《VFP笔试试题复习Word文件下载.docx（8页珍藏版）》请在冰点文库上搜索。
”P=”,P,OUT=P
73输出10到50之间所有能被7整除的数（用dowhile实现）并将这些数存入out中
i=10,S=0,dowhilei<
=50,ifi%7=0,?
i,S=S+i,endif,i=i+1,enddo,OUT=s
79用子程序求出1~15之间的能被3整除的整数的平方和。
将结果存入变量OUT中，要求用for循环实现。
N=1,S=0,FORN=1TO15,IFN%3=0,S=S+N*N,ENDIF,ENDFOR,?
S,SETTALKON,OUT=S
86用循环求出1~15之间能被3整除的整数的阶乘和存入变量out中，要求用for循环语句
T=1,FORN=1TO15,T=T*N,IFN%3=0,OUT=OUT+T,ENDIF,ENDFOR,?
OUT
87从键盘输入一个整数，输出所有能整除该数，并且本身也能被3整除的数的和。
（eg输入6，输出3,6）结果存于变量x中，要求用for实现。
FORN=1TOA,IFA%N=0.AND.N%3=0,?
N,x=x+N，ENDIF,ENDFOR
71求出并显示3！
+4！
+5！
的值，将结果存入变量out中，要求用for编程。
S=0,FORI=3TO5,p=1,FORJ=1TOI,p=p*J,ENDFOR,S=S+p，endfor，？
“3！
的值是：
”，s，OUT=S
93求1~200间的所有偶数的和，结果输入变量OUT中，要求用for循环语句实现。
S=0,FORI=1TO200，IFI/2=INT（I/2）,S=S+I,ENDIF,ENDFOR,?
S,OUT=S
97编程打印一数列，前两个数是0、1，第三个数是前两个数之和，以后每个数都是其前两个数之和。
编程求出第20个数，将结果存入out中，要求用for循环语句实现
a=0,B=1,fori=3to20,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,fori=1to5,t=t+d,s=s+t*（-1）^（i+1）,d=d*10,endfor,out=s,?
out
454求sum=1/3+1/33+1/333+1/3333+1/33333
S=0,t=0,d=3,fori=1to5,t=t+d,s=s+1/t,d=d*10,endfor,out=s,?
450fibonacci数列第28项的值。
第一项为1，第二项也为1，。
。
Store1tof1,f2,f=f1+f2,fori=3to27,f1=f2,f2=f,f=f1+f2,endfor,out=f,?
449s=2/1+3/2+5/3+8/5+13/8+21/13+34/21
f1=1,f2=1,s=0,fori=1to7,f3=f1+f2,f1=f2,f2=f3,s=s+f2/f1,endfor,out=s,?
444a1=1,a2=1/（1+a1）,a3=1/（1+a2）……..an=1/（1+a（n-1））当n=10,求s=a1+a2+…….+a10
a=1,s=1,fori=1to9,a=1.0/（1+a）,s=s+a,endfor,out=s,?
445a1=1,a2=1/（1+a1）,a3=1/（1+a2）……..an=1/（1+a（n-1））当n=10,求s=a1-a2+a3-a4…….-a10
a=1,s=1,fori=1to9,a=1.0/（1+a）,s=s+a*（-1）^i,endfor,out=s,?
435sum=3+33+333+3333+33333+333333
S=0,t=0,d=3,fori=1to5,t=t+d,s=s+t,d=d*10,endfor,out=s,?
431分数序列2/1,3/2,5/3,8/5,13/8,21/13……..前20项之和
F1=1,f2=1,s=0,fori=1to20,f3=f1+f2,f1=f2,f2=f3,s=s+f2/f1,endfor,out=s,?
422a1=1,a2=1/（1+a1）,a3=1/（1+a2）……..an=1/（1+a（n-1））求a10
a=1,fori=1to9,a=1.0/（1+a）,endfor,out=s,?
427y=1-1/3+1/5-1/7+1/9
S=1,fori=1to4,s=s+（-1）^i/（2*i+1）,endfor,out=s,?
428y=1-1/2+1/4-1/6+1/8-1/10
S=1,fori=1to5,s=s+（-1）^i/（2*i）,endfor,out=s,?
4.2.4最大（小）值
77任意数三个数从大到小排序
Ifx<
y,k=x,x=y,y=k,endif,Ifx<
z,k=x,x=z,z=k,endif,Ify<
z,k=y,y=z,z=k,endif,?
x,y,z,a=x,b=y,c=z
94输入三个数找出最大和最小
Ma=a,mi=a,ifb>
a,ma=b,endif,ifmi>
b,mi=b,endif,ifma<
c,ma=c,endif,ifmi>
c,mi=c,endif
439求1*1+2*2+。
+n*n<
=1000中满足条件的最大的n
S=0,n=1,dowhiles<
=1000,n=n+1,s=s+n*n,enddo,out=n-1,?
out
4.2.5字符处理类
74在屏幕上纵向输出"
计算机等级考试"
S=”计算机等级考试”，i=1,dowhilei<
14,?
”SUBS（S,I,2）”,IFI=9,Y=SUBS（S,I,2）,endif,i=i+2,enddo
91输入一个三位数，将个十百位顺序拆开分别存入变量s中，用加号分隔。
如输入345分开后为要求用dowhile实现。
dowhilen>
10,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,dowhilei<
=len（str1）-1,ifstr2=substr（str1,I,2）,n=n+1,endifi=i+1,enddo,out=n,?
85从键盘输入一个汉字字符串，送入变量s中，将它逆向存入变量Y中，如：
输入"
计算机考试"
，输出为"
试考机算计"
，要求用for循环实现。
Forn=1tolen（s）-1step2,y=y+subs（s,len（s）-n,2）,endfor
416过滤已存在字符串变量str中的内容，只保留串中的字母字符，并统计新生成串中包含的字母个数。
将生成的结果字符串存入变量out中。
N=len（str）,L=0,S=””,fori=1ton,ifsubstr（str,i,1）<
=’Z’andsubstr（str,i,1）>
=’A’orsubstr（str,i,1）<
=’z’andsubstr（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=””,fori=1tolen（str）-1,s=s+substr（str,i,1）+spc,endfor,s=s+substr（str,i,1）,out=s,?
out,len（out）
436编程将一个由四个数字组成的字符串转换为每两个数字间有一个空格的形式输出。
4567"
，将结果存入变量out中，要求用for循环语句实现。
Spc=space
（1）,s=””,fori=1tolen（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,?
dowhilex<
=9,y=1,dowhiley<
=x,?
?
str（y,1）+’x’+str（x,1）+’=’+str（x*y,2）+’’,z=z+x*y,y=y+1,enddo,?
x=x+1,enddo
75输出图形**********（要求使用for语句，利用双重循环语句）要求：
将第三行的所有字符存入变量s中
Fori=1to4,forj=1toi,?
”*”,endfor,?
endfor
82利用循环程序输出图形：
1222.33333.4444444并将输出第三行存入变量s中。
N=1,forn=1to4,?
space（4-n）,form=1to2*n-1,?
str（n,1）,endfor,endfor,settalkon,s=”33333”
84利用循环输出图形：
4333222221111111并将最后一行存入变量s中。
Forn=1to4,?
str（4-n+1,1）,endfor,endfor,s=”1111111”
4.2.7数组题
452求max-min=
Storearray
（1）tomax,min,fori=1to10,ifarray（i）>
max,max=array（i）,endif,ifarray（i）<
min,min=array（i）,endif,endfor,out=max-min,?
451求max+min
min,min=array（i）,endif,endfor,out=max+min,?
446找出正整数中的最小的偶数，
M=100,fori=1to10,ifarray（i）%2=0,ifmin>
array（i）,min=array（i）,endif,endif,endfor,out=min,?
447找出正整数中的最小的奇数，
Min=array
（1）,fori=1to10,ifarray（i）%2！
=0,ifmin>
448找出正整数中的最大的奇数，
Max=array
（1）,fori=1to10,ifarray（i）%2！
=0,ifmax<
array（i）,max=array（i）,endif,endif,endfor,out=max,?
453求max*min
min,min=array（i）,endif,endfor,out=max*min,?
429求一组数中大于平均值的个数
S=0,fori=1to10,s=s+array（i）,endfor,s=s/10,n=0,forj=1to10,ifarray（j）>
s,n=n+1,endif,endfor,out=n,?
430找出正整数中的最大的偶数，
Max=array
（1）,fori=1to10,ifarray（i）%2=0,ifmax<
4.2.8其他类
69输入三角形的边长，输入边长满足两边之和大于第三边，且为正值。
计算并输出三角形的面积s；
若不满足以上条件，显示输出"
不能构成三角形"
将面积值存入变量area中。
S=（a+b+c）/2,ifa+b>
candb+c>
aanda+c>
banda>
0andb>
0andc>
0,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,fori=1ton,q=1,forj=1toi，q=q*j,endfor,p=p*q,endfor,out=p
80从键盘输入一个数，如果该数字大于0，通过子程序输出该数字作为半径的圆面积；
如果该数字小于等于0，则输出"
不能作为圆的半径"
将结果存入变量out中
Ifa>
0,out=a*a*3.14,else,out=-1,endif
166计算下列分段函数：
当输入x时，显示输出y要求用docase实现
Docase,casex<
1,y=x*3,caex>
=1andx<
10,y=x^2,otherwise,y=7*x-4,endcase,?
y
415判断一个三位数是否为"
水仙花数"
，输出判断结果。
是为1，否为0。
Bw=int（n/100）,sw=int（（n-bw*100）/10）,gw=n%10,ifn=bw*bw*bw+sw*sw*sw+gw*gw*gw,out=1,else,out=0,endif,?
418判断整数w的各位数字平方之和能否被5整除，可以则返回1，否则返回0
S=0,dowhilew>
0,s=s+（w%10）*（w%10）,w=int（w/10）,enddo,ifs%5=0,out=1,else,out=0,endif,?
419求一个大于10的n位整数的后n-1位的数
N=0，i=1,dowhile（w>
10）,n=n+i*（w%10）,w=int（w/10）,i=i*10,enddo,?
n,out=n
420求对某一正数的值保留两位小树，并对第三位进行四舍五入，
i=0,i=int（（h*1000）%10）,ifi>
=5,out=（h*100+1）/100,else,out=int（h*100）/100,endif,?
423求自然数345各位数字的积
S=1,dowhilen>
0,d=n%10,s=s*t,n=int（n/10）,enddo,out=s,?
432fibonacci数列前28项的和。
Store1tof1,f2,f=f1+f2,fori=3to28,k=k+f,f1=f2,f2=f,endfor,out=k,?
434变量x为不超过五位的正整数，求x的位数
Docase,casex>
9999,place=5,casex>
999,place=4,casex>
99,place=3,casex>
9,place=2,otherwise,place=1,endcase,out=place,?
438求一个整数，它加上一百后是一个完全平方数，再加上168有事一个完全平方数
i=1,dowhilei<
100000,x=int（sqrt（i+100））,y=int（sqrt（i+268））,ifx*x=i+100andy*y=i+268,exit,endif,i=i+1,enddo,out=I,?
443求对某一正数的值保留3位小数，并对第四位进行四舍五入，
i=0,i=int（（h*10000）%10）,ifi>
=5,out=（h*1000+1）/1000,else,out=int（h*1000）/1000,endif,?
458计算正整数num的各位上的数字之积，
S=1,dowhilenum<
0,s=s*（NUM%10）,NUM=INT（NUM/10）,enddo,out=s,?
升级会员 