VFP笔试试题复习.docx
- 文档编号:28181490
- 上传时间:2023-07-09
- 格式:DOCX
- 页数:9
- 大小:20.56KB
VFP笔试试题复习.docx
《VFP笔试试题复习.docx》由会员分享,可在线阅读,更多相关《VFP笔试试题复习.docx(9页珍藏版)》请在冰豆网上搜索。
VFP笔试试题复习
4.2.1表操作题
78统计出rsda.dbf表中职称为“工程师"的人数,
Usersda,store0tos,locatefor职称=“工程师”,dowhilenoteof(),s=s+1,continue,enddo
461计算机等级考试成绩笔试和上机均大于等于80优秀
Usestudent,dowhile。
not。
eof(),if笔试>=80and上机>=80,REPL等级with“优秀”,endif,skip,enddo,list
462由工资表.Dbf按性别汇总工资
Use工资表,indexon性别tosy,totalon性别to汇总.dbffildes工资,use汇总,list
4.2.2求和题:
437计算num的各位上的数字之和,将结果存入变量out中,用DOWHILE实现。
s=0,DOWHILEnum<>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中,用DOWHILE实现
P=0,M=1,DOWHILEM<=5,P=P+((—1)^(M+1))/(M*M),M=M+1,ENDDO,?
”P=",P,OUT=P
414求p=1+1/(2*2)+1/(3*3)+````````1/(10*10)将结果存入变量out中,用DOWHILE实现
P=0,M=1,DOWHILEM〈=10,P=P+1/(M*M),M=M+1,ENDDO,?
”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!
+4!
+5!
的值是:
",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,?
out
450fibonacci数列第28项的值。
第一项为1,第二项也为1,。
。
。
。
.。
。
。
。
Store1tof1,f2,f=f1+f2,fori=3to27,f1=f2,f2=f,f=f1+f2,endfor,out=f,?
out
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,?
out
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,?
out
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,?
out
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,?
out
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,?
out
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,?
out
427y=1-1/3+1/5-1/7+1/9
S=1,fori=1to4,s=s+(—1)^i/(2*i+1),endfor,out=s,?
out
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,?
out
4。
2。
4最大(小)值
77任意数三个数从大到小排序
Ifx〈y,k=x,x=y,y=k,endif,Ifx 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,? out 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”,应输出”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,? out,len(out) 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,? space(4—n),form=1to2*n—1,? ? 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) out 451求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,? out 446找出正整数中的最小的偶数, M=100,fori=1to10,ifarray(i)%2=0,ifmin>array(i),min=array(i),endif,endif,endfor,out=min,? out 447找出正整数中的最小的奇数, Min=array (1),fori=1to10,ifarray(i)%2! =0,ifmin>array(i),min=array(i),endif,endif,endfor,out=min,? out 448找出正整数中的最大的奇数, Max=array (1),fori=1to10,ifarray(i)%2! =0,ifmax out 453求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,? out 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,? out 430找出正整数中的最大的偶数, Max=array (1),fori=1to10,ifarray(i)%2=0,ifmax out 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,? out 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,? out 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,? out 423求自然数345各位数字的积 S=1,dowhilen〉0,d=n%10,s=s*t,n=int(n/10),enddo,out=s,? out 432fibonacci数列前28项的和。 第一项为1,第二项也为1,。 。 。 。 。 。 。 。 。 Store1tof1,f2,f=f1+f2,fori=3to28,k=k+f,f1=f2,f2=f,endfor,out=k,? out 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,? out 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,? out 443求对某一正数的值保留3位小数,并对第四位进行四舍五入, i=0,i=int((h*10000)%10),ifi〉=5,out=(h*1000+1)/1000,else,out=int(h*1000)/1000,endif,? out 458计算正整数num的各位上的数字之积, S=1,dowhilenum<>0,s=s*(NUM%10),NUM=INT(NUM/10),enddo,out=s,? out
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 笔试 试题 复习