浙江财经学院vfp改错题题目.docx

1、浙江财经学院vfp改错题题目25、本程序在屏幕上显示如下图形： 1 1 2 1 2 31 2 3 4 1 2 3 4 5SET TALK OFFCLEAK=1DO WHIL K=5 C=1 *1* DO WHIL C=5 *2* ? C C=C+1 ENDDO ? *3*K=K-1ENDDOSET TALK ON24.本程序用于输入一个表名，若表存在则打开表，并显示其各个字段名。说明：*N*标注的下一句有错，改正错误并调试运行。不能删除*N*。SET TALK OFFCLEARDO WHILE .T.ACCEPT 请输入表名：(不含扩展名) TO FNAME*1* IF .NOT.FILE(F

2、NAME) WAIT 此表不存在! ELSE USE &FNAME ZDSM=FCOUNT() *2* ? 此表中的字段有：+ZDSM+个 FOR I=1 TO ZDSM? STR(I)+ *3* ? NAME(I) ENDFOR ENDIF WAIT 继续否?(Y/N) TO YN IF UPPER(YN)=N EXIT ENDIFENDDOSET TALK ON23、本程序实现指定表指定条件的任意查询功能。 SET TALK OFF CLEAR ACCEPT 请输入表名：（扩展名略） TO FNAME *1* IF .NOT.FILE(FNAME) WAIT 此表不存在！ ELSE USE

3、 （FNAME） ZDSM=FCOUNT() ? 此表中的字段有：+STR(ZDSM)+个 FOR I=1 TO ZDSM ? STR(I)+ ? FIELD(I) *2* ENDDO ENDIF ACCEPT 请输入显示表信息的条件表达式： TO EXP *3* LIST FOR EXP USE SET TALK ON22、本程序实现：从键盘输入学生的学号，计算该生的平均成绩，并说明成绩的档次（优、良、中、及格和不及格）。SET TALK OFFCLEARUSE 成绩C=不及格 及格 中 良 优*1*INPUT 输入学号= TO XHLOCATE FOR 学号=XHIF FOUND() *2

4、* TOTAL 成绩 TO CJ IF CJ60 R=0 ELSE R=INT(CJ/10)-5 ENDIF *3* DC=STR(C,6) ? XH,CJ,DCELSE ? 查无此人！ENDIFUSESET TALK ON21、本程序用于计算S=1+2+3+N的和。SET TALK OFFCLEAR*1*ACCEPT “N=” TO NS=0I=0*2*DO WHILE I=NI=I+1S=S+IENDDO*3*? “1+2+3+”+N+”=”+SSET TALK ON20.、本程序将成绩表中成绩小于60分的学号、课程号及成绩显示出来。SET TALK OFFCLEARUSE 成绩? -?

5、不及格学生名单 ? -? 学号 课程号 成绩*1*GO BOTTOMDO WHILE .NOT.EOF() IF 成绩BC S=(A+B+C)/2 A=SQRT(S*(S-A)*(S-B)*(S-C) RETURN .T.ELSE A=0 RETURN .F.ENDIF18、本程序比较从键盘输入的若干个数的大小，并输出其中的最大数和最小数。SET TALK OFFCLEARINPUT 请输入一个数: TO M*1*STORE 0 TO D,XDO WHILE .T. INPUT 请再输入一个数: TO N IF DN X=N ENDIF YN=A *2* DO WHILE UPPER(YN)

6、WAIT 是否继续（Y/N） TO YN ENDDO *3* IF LOWER(YN)=Y EXIT ENDIFENDDO? 最大的数是：, D? 最小的数是：, XSET TALK ON17、本程序实现：对输入的正整数，判别其中包含指定数码的个数（如2312132中包含数码1的个数为2）。SET TALK OFFCLEARINPUT 输入数值= TO MINPUT 输入数码= TO NYSM=MS=0DO WHILE .T. *1* Y=MOD(M/10) IF Y=N S=S+1 ENDIF *2* M=INT(M/N) IF M=0 *3* LOOP ENDIFENDDO?ALLTRIM

7、(STR(YSM,19)+中包含数码+STR(N,1)+共+ALLTRIM(STR(S,19)+个。SET TALK ON16、本程序输出一个对角线上元素为0,其它元素为1的6*6阶方阵。输出时每个元素占2个字符。SET TALK OFFCLEAR *1*FUNCTION A(6,6)FOR I=1 TO 6 FOR J=1 TO 6 *2* IF I=J A(I,J)=0 ELSE A(I,J)=1 ENDIF ENDFORENDFORFOR I=1 TO 6 FOR J=1 TO 6 *2* ?A(I,J) ENDFOR ?ENDFORSET TALK ON15、对任意一个正数值型数据(该

8、数可有小数若干位,整数部分不超过12位)自动进行小数部分四舍五入取2位,并将其转换为中文大写金额.SET TALK OFFCLEAR C1=零壹贰叁肆伍陆柒捌玖 C2=分角元拾佰仟万拾佰仟亿拾佰仟 INPUT 输入一个正数= TO Y *1*Y=STR(Y,2) Y=Y*100 I=1 D=SPACE(0)DO WHILE Y0 P=MOD(Y,10) *2* D=SUBSTR(C1,2*P-1,2)+SUBSTR(C2,2*I-1,2)+D I=I+1 *3* Y=INT(Y,10)ENDDO?转换的结果是:+DSET TALK ON14、将给定的正整数的值分解因子，并输出各个质数因子（如2

9、4的质数因子有2、2、2和3）（如果一个质数是某个数的约数，那么这个质数是这个数的质数因子）SET TALK OFFCLEAR*1*ACCEPT M= TO MIF INT(M)!=M OR ABS(M)!=M ? 输入的数据不符合题目要求！*2*ENDIF I=2 ? STR(M)+的质数因子有： DO WHILE I=M IF M%I=0? STR(I,6)*3* M=INT(M,I) LOOP ENDIF I=I+1 ENDDOENDIFSET TALK ON13、本程序是在屏幕上打印如下图形： 9 8 7 6 5 4 3 9 8 7 6 5 9 8 7 9SET TALK OFFCLE

10、ARK=1DO WHILE K=4 C=1 *1* DO WHILE C+SWAIT 是否继续（Y/N） TO T*3*IF UPPER(T)=n EXITENDIFENDDOSET TALK ON10、本程序求S=K！+M！（KNM），并输出S的值。SET TALK OFFCLEARINPUT K= TO KINPUT M= TO MSTORE 0 TO S,AI=KDO WHILE I=M *1* DO SUB *2* S=S+P I=I+1ENDDO? SSET TALK ONPROC SUBPARA P,NSTOR 1 TO P,L*3*DO WHILE L=I P=P*L L=L+1

11、ENDDORETU9.本程序用以判断输入的字符串是否是回文（回文是从左到右和从右到左读时都一样的一个字符串，不论大小写字母）。SET TALK OFFCLEARC=SPACE(0)ACCEPT 请输入字符串= TO ST*1*I=LEFT(ST,1)J=1DO WHILE JM ? M ENDIFENDFORSET TALK ON7本程序显示下列的九九乘法表1 2 3 4 5 6 7 8 912 43 6 94 8 12 165 10 15 20 256 12 18 24 30 367 14 21 28 35 42 498 16 24 32 40 48 56 649 18 27 36 45 5

12、4 63 72 81SET TALK OFFCLEARFOR I=1 TO 9*1*？IENDFORI=1DO WHILE IX ? X *3* K=K+X ENDIFENDFOR?共+ALLTRIM(STR(K)+个素数SET TALK ON3用带参调用实现： M！(M-N)！*N！SET TALK OFFCLEARINPUT M= TO MINPUT N= TO NMJ=M*1*DO JC NJ=NDO JC WITH NJ*2*MNJ=0DO JC WITH MNJ? S= ,MJ/(NJ*MNJ)SET TALK ONPROCEDURE JCPARAMETERS XT=1FOR I=1

13、 TO X T=T*IENDFOR*3*X=iRETURN2求x1 + x2 + x3 + x4 + xn的值。n，x从键盘输入。set talk offclearinput n= to ninput x= to x*1*s=1t=1I=1DO WHILE I=n *2* t=s*x s=s+t I=I+1*3*endFOR?s=,sset talk off1求当1！+ 3！+ 5！+ n！的值不超过1020时的临界值及n的值。set talk offclears=0n=1*1*do while IN t=1 for i=1 to n *2* t=i*i endfor s=s+t *3* n=n+1enddo?n=,n-4 set talk on