VFP笔试试题复习.docx

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