vfp无纸化填空题题解new.doc

无纸化填空题及答案1、 题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。SET TALK OFFDO WHILE .T.CLEARACCEPT 请输入表名（扩展名略）： TO TBNIF FILE(&TBN.DBF) _1_ELSE WAIT 指定的表不存在! TIMEOUT 5 LOOPENDIF?表中的全部字段名列表:_2_?field(n)ENDFORACCEPT 请输入显示表信息的条件表达式： TO EXPRlist for evaluate(expr)WAIT 是否还要显示其他表文件中的内容?Y/N: TO YNIF UPPER(YN)!= Y_3_ENDIFENDDOUSESET TALK ON第一题答案：1. 答案一：use(TBN) 答案二：use &tbn2. 答案一：for n=1 to fcount() 答案二：for n=1 to fcount() step 13. exit2、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：该程序是计算s=1+2+3+.+N的值。SET TALK OFF_1_T=0S=0DO WHIL TDD=RENDIFIF RXX=RENDIF_3_ENDDO?M,中位值最大的数码是：+STR(D,1)+,最小的数码是：+STR(X,1)+ 。SET TALK ON第四题答案：1.答案一：DO WHILE INT(N)!=N 答案二：DO WHILE N !=INT(N)答案三：DO WHILE INT(N)N答案四：DO WHILE N INT(N)答案五：DO WHILE INT(N)#N答案六：DO WHILE N #INT(N)2. 答案一：DO WHILE N0 答案二：DO WHILE 03 答案二：IF3I6、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写显示求ex,到100项INPUT 请输入x= to xS=1STORE 0 TO A1,A2_1_DO JC WITH A1,IDO MC WITH A2,IS=S+A2/A1ENDFOR_2_PROC JCPARA P,RP=1FOR J=1 TO RP=P*JENDFORPROC MC_3_P=1FOR J=1 TO RP=P*XENDFOR第六题答案：1.、答案一：FOR I=1 TO 100 答案二：FOR I=1 TO 100 STEP 12、 答案一：?E+str(x,5)+=,s 答案二：?E+str(x,5)+=,s 答案三：? s3、PARA P,R7、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写求某正整数是否为完数。（该数等于其不重复因子相加，因子包括1。例如6=1+2+3是完数，但是81+2+4，所以不是完数。）SET TALK OFFCLEARINPUT M= TO Ms=1 _1_ _2_ s=s+i ENDIFENDFOR _3_?M,是完数！ELSE?M,不是完数！ENDIFSET TALK ON第七题答案：1. 答案一：for i=2 to m-1 答案二：for i=2 to m-1 step 12. 答案一：IF M%I=0 答案二：IF 0=M%I答案三：IF MOD(M,I)=0答案四：IF 0=MOD(M,I)答案五：IF M-INT(M/I)*I=0答案六：IF 0=M-INT(M/I)*I3. 答案一：if s=m 答案二：if m=s8、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：求X1+X2+.+Xn,n,X从键盘输入。SET TALK OFFCLEARINPUT N= TO N_1_S=0T=1 FOR I=1 TO N_2_S=S+TENDFOR_3_ SET TALK ON第八题答案：1. 答案一：INPUT X= TO X 答案二：INPUT TO X答案三： INPUT X= TO X2. 答案一：T=T*X 答案二：T=X*T3. 答案一：?S=,S 答案二：?S=,S 答案三：?S9、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：利用参数传递和过程文件求：（m!+n!）(m-n)!+mn+mm)的值。SET TALK OFFCLEARINPUT M= TO MINPUT N= TO NSM=MDO JC WITH SMSN=NDO JC WITH SNSMN=M-NDO JC WITH SMNCMN=NDO MC WITH M,CMN_1_?(SM+SN)/(SMN+CMN+M)SET TALK ONPROC JC_2_T=1FOR I=1 TO XT=T*IENDFOR_3_RETURNPROC MCPARA X,Y T=1FOR J=1 TO YT=T*XENDFORY=T RETURN第九题答案：1. DO MC WITH M,M 2.para x 3.X=T10、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：显示指定表中的全部字段名，并由输入的条件显示满足条件的记录。 SET TALK OFFCLEAR_1_2_ ?FIELD(N) ENDFOR_3_SET TALK ON第十题答案：1. USE 学生2. 答案一：FOR N=1 TO FCOUNT() 答案二：FOR N=1 TO FCOUNT() step 13.USE11、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写求输入数M内的偶数和偶数之和。SET TALK OFFCLEAR_1_S=0FOR P=1 TO MIF INT(P/2)=P/2 ?PS=S+P _2_3_?SSET TALK ON第十一题答案：1. 答案一：INPUT M= TO M 答案二：INPUT TO M 答案三：INPUT “M=” TO M2.ENDIF3.ENDFOR12、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写输出给定半高（行数）的对角反三角形图案。 SET TALK OFFCLEARINPUT N= TO N_1_?space(20) FOR J=1 TO 2*I-1_2_ENDFORENDFOR_3_?SPACE(20-2*(I-1)FOR J=1 TO 2*I-1?str(i,1) ENDFORENDFORSET TALK ON第十二题答案：1. for i=n to 1 step -1 2.?str(i,1) 3. 答案一：for i=2 to n 答案二：for i=2 to n step 113、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写去掉一个最大数，去掉一个最小数，求平均数。 SET TALK OFFCLEARINPUT N= TO N_1_STORE A TO X,YS=AP=N-2FOR I=2 TO NINPUT B= TO Bs=s+b IF Xb Y=BENDIFENDFOR_3_?R/PSET TALK ON第十三题答案：1. 答案一：input A= to A答案二：input to A 答案三：input A= to A 2. x=b 3. 答案一：r=s-x-y答案二：r=s-y-x答案三：r= -y-x+s答案四：r= -x-y+s14、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：用一个自定义函数，编写求N！的末尾有几个连续的数码0。 PARA MP=1_1_P=P*IENDFORS=0DO WHILE P0r=mod(p,10) IF R=0_2_ELSEEXITENDIFp=int(p/10) ENDDO_3_第十四题答案：1. 答案一：for i=1 to m 答案二：for i=1 to m step 12. 答案一：s=s+1 答案二：s=1+s3.return s 15、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。SET TALK OFFDO WHILE .T.CLEARACCEPT 请输入表名（扩展名略）： TO TBNIF FILE(&TBN.DBF) _1_ELSE WAIT 指定的表不存在! TIMEOUT 5 LOOPENDIF?表中的全部字段名列表:_2_?field(n)ENDFORACCEPT 请输入显示表信息的条件表达式： TO EXPRlist for evaluate(expr)WAIT 是否还要显示其他表文件中的内容?Y/N: TO YNIF UPPER(YN)!= Y_3_ENDIFENDDOUSESET TALK ON第十五题答案：1. 答案一：use(TBN) 答案二：use &TBN2、?field(n)3、list for evaluate(expr)16、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写一个自定义函数，判断一个三位数是否为水仙花数，返回逻辑值。（如果一个正整数等于它各位数立方的和，则其为水仙花数。如：407=43+03+73）。_1_M=XS=0DO WHILE M0P=MOD(M,10) _2_M=INT(M/10) ENDDO_3_RETURN .T.ELSERETURN .F.ENDIF第十六题答案：1. PARA X 2. 答案一：S=S+P*P*P 答案二：S=S+P3答案三：S=P*P*P+S 答案四：S=P3+S3. 答案一：IF S=X 答案二：IF X=S17、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写显示求ex,到100项。_1_S=1STORE 0 TO A1,A2FOR I=1 TO 100DO JC WITH A1,IDO MC WITH A2,IS=S+A2/A1ENDFOR_2_PROC JCPARA P,RP=1FOR J=1 TO RP=P*JENDFORPROC MC_3_P=1FOR J=1 TO RP=P*XENDFOR第十七题答案：1. 答案一：INPUT 请输入x= to x 答案二：INPUT to x 答案三：INPUT x= to x 答案四：INPUT x= to x2、答案一：?E+str(x,5)+=,s 答案二：?S=,s答案三：?S=,s答案四：?s3、PARA P,R18、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写将100内的一个正整数转换为大写数字。 _1_C=一二三四五六七八九十S=DO CASECASE D=10s=substr(c,2*d+1,2) CASE D19 答案三：case 19=a AND A=A AND A=v AND A=V AND A+CSET TALK ON第二十一题答案：1. L=LEN(P) 2.A=SUBSTR(P,I,1) 3.C=C+A22、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写一个自定义函数，将月份转换成中文大写形式。 _1_M=MONTH(X)C=一二三四五六七八九十S=_2_ S=S+SUBSTR(C,2*M+1,2) ELSEs=S+十 +SUBSTR(C,2*MOD(M,10)+1,2) ENDIFS=S+月_3_第二十二题答案：1. para X 2. 答案一：if M=M3.return S 23、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写一个判断系统口令程序，输入次数在3次以内。 SET TALK OFFCLEARC=FOR I=1 TO 3 ACCEPT C+请输入口令: TO PSW_1_?欢迎使用本系统!_2_ENDIFC=口令输入错误，再试一次！_3_IF I3 ?对不起，你无权使用本系统ENDIFSET TALK ON第二十三题答案：1. 答案一：IF ALLTRIM(PSW)=MANAGER 答案二：IF MANAGER= ALLTRIM(PSW) 2.EXIT 3.ENDFOR 24、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：显示指定表中的全部字段名，并由输入的条件显示满足条件的记录。 SET TALK OFFCLEAR_1_FOR N=1 TO FCOUNT() _2_ ENDFOR_3_SET TALK ON第二十四题答案：1. USE 学生2.?FIELD(N) 3.USE25、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。SET TALK OFFDO WHILE .T.CLEARACCEPT 请输入表名（扩展名略）： TO TBNIF FILE(&TBN.DBF) use(TBN) ELSE WAIT 指定的表不存在! TIMEOUT 5 LOOPENDIF?表中的全部字段名列表:_1_ _2_ENDFORACCEPT 请输入显示表信息的条件表达式： TO EXPRlist for evaluate(expr)WAIT 是否还要显示其他表文件中的内容?Y/N: TO YNIF UPPER(YN)!= Y_3_ENDIFENDDOUSESET TALK ON第二十五题答案：1. 答案一：for n=1 to fcount() 答案二：for n=1 to fcount() step 12、?field(n)3、exit26、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写一个自定义函数，求一个数是否为素数。（素数是指除了1和该数本身之外，不能被其他任何整数整除的数。） PARA X FOR I=2 TO X-1_1_EXIT ENDIF_2_3_RETURN .T.ELSERETURN .F.ENDIF第二十六题答案：1. 答案一：IF X%I=0 答案二：IF 0=X%I答案三：IF MOD(X,I)=0答案四：IF 0=MOD(X,I)答案五：IF X-INT(X/I)*I=0答案六：IF 0=X-INT(X/I)*I2.ENDFOR 3. 答案一：IF I=X 答案二：IF X=I 27、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写显示求ex,到100项。INPUT 请输入x= to x S=1STORE 0 TO A1,A2FOR I=1 TO 100DO JC WITH A1,IDO MC WITH A2,I_1_ENDFOR_2_PROC JC_3_P=1FOR J=1 TO RP=P*JENDFORPROC MCPARA P,RP=1FOR J=1 TO RP=P*XENDFOR第二十七题答案：1. 答案一：S=S+A2/A1答案二：S=A2/A1+S2、答案一：?E+str(x,5)+=,s 答案二：?S=,s 答案三：?s3、PARA P,R28、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：显示输出“学生”表中每个班级的男女同学的奖学金总额。 SET TALK OFFCLEARUSE 学生INDEX ON 学号 TO INN0 ?*各班男女奖学金总额统计*?班级 男同学奖学金总额 女同学奖学金总额DO WHILE .NOT. EOF() CLASS=LEFT(学号,3) _1_DO WHILE LEFT(学号,3)=CLASS IF 性别 BOYS=BOYS+奖学金 ELSE_2_3_SKIP ENDDO?CLASS+STR(BOYS,19,2)+ STR(GIRLS,19,2) ENDDOUSESET TALK ON第二十八题答案：1. 答案一：STORE 0 TO BOYS,GIRLS 答案二：BOYS=0 GIRLS=02. 答案一：GIRLS=GIRLS+奖学金 答案二：GIRLS= 奖学金+ GIRLS3.ENDIF29、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：该程序是求1000之内能被3和7整除的个数。SET TALK OFFX=0_1_DO WHIL X=1000 _2_Y=Y+1X=X+1LOOP ENDIFX=X+1_3_?YSET TALK ON第二十九题答案：1. 答案一：Y=02. 答案一：IF X%3=0 AND X%7=0 答案二：IF X%7=0 AND X%3=0 答案三：IF 0=X%3 AND 0=X%7 答案四：IF 0=X%7 AND 0=X%3 答案五：IF X%3=0 .AND. X%7=0 答案六：IF X%7=0 .AND. X%3=0 答案七：IF 0=X%3 .AND. 0=X%7 答案八：IF 0=X%7 .AND. 0=X%33.ENDDO30、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写一个自定义函数，返回给定的正整型数值表达式的值中包含指定数码的个数。（如：数值2345105中包含指定数码5的个数个数为2）。 FUNCTION NCT_1_S=0 M=X DO WHILE .T. _2_IF N=Y S=S+1 ENDIFM=INT(M/10) IF M=0 EXIT ENDIFENDDO_3_ENDFUNC第三十题答案：1. PARA X,Y 2. 答案一：N=MOD(M,10) 答案二：N= M%10 答案三：N= M-INT(M/10)*103.RETURN S31、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写一个自定义函数，将年份转换为中文大写形式。 _1_Y=YEAR(X)C=一二三四五六七八九十S=FOR I=1 TO 4_2_S=SUBSTR(C,2*P+1,2)+S Y=INT(Y/10) ENDFORS=S+年_3_第三十一题答案：1. para X 2. 答案一：P=MOD(Y,10) 答案二：P= Y%10 答案三：P= Y-INT(Y/10)*103.RETURN S 32、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：显示输出“学生”表中的1971年或以前出生的学生姓名和出生年月。SET TALK OFFCLEARUSE 学生 _1_DO WHILE !EOF() ?姓名,出生年月 _2_ _3_USESET TALK ON第三十二题答案：1. 答案一：LOCATE FOR YEAR(出生年月)=YEAR(出生年月)2.continue3.ENDDO33、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：从键盘输入数据A，通过类型判断，输出其数据类型的汉字说明。 SET TALK OFFCLEARINPUT A= TO ADO CASE case type(A)=C ?A,是字符型数据。_1_?A,是数值型数据。case type(A)=L ?A,是逻辑型数据。_2_?A,是日期型数据。case type(A)=Y ?A,是货币型数据。 _3_SET TALK ON第三十三题答案：1. 答案一：case type(A)=N 答案二：case vartype(A)=N答案三：case N= type(A) 答案四：case N= vartype(A)2. 答案一：case type(A)=D 答案二：case vartype(A)=D答案三：case D= type(A) 答案四：case D= vartype(A)3.ENDCASE34、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：该程序实现字符串倒置。如字符串“ABCD”倒置后为“DCBA”。 SET TALK OFFCLEARACCEPT N= TO NM=LEN(ALLTRIM(N) _1_S=DO WHIL J1E-5 STORE 1 TO T1,T2 FOR J=1 TO 2*I-1 T1=T1*X _2_ T3=-T3 ENDFOR _3_ I=I+1ENDDO?SIN(+STR(X,6,4)+)=+LTRIM(STR(S,20,7)SET TALK ON第三十六题答案：1. T3=-12. 答案一：T2=T2*J 答案二：T2=J*T2 3. 答案一：S=S+T3*T1/T2 答案二：S=T3*T1/T2+S37、题目：*在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“_N_”是需要填充的地方，请填空，使程序完整。*功能：编写显示求ex,到100项。_1_S=1STORE 0 TO A1,A2FOR I=1 TO 100DO JC WITH A1,IDO MC WITH A2,IS=S+A2/A1ENDFOR?E+str(x,5)+=,s PROC JCPARA P,RP=1?E+str(x,5)+=,s _2_ENDFORPROC MC_3_P=1FOR J=1 TO RP=P*XENDFOR第三十七题答案：1. 答案一：INPUT 请输入x= to x 答案二：INPUT x= to x 答案三：INPUT x= to x 答案四：INPUT to x2、答案一：P=P*J 答案二：P=J*P3、PARA P,R