VFP程序调试题(共26题).docVIP

VFP程序调试题 第1题：在考生目录(d:\result\准考证号\paper)中，有Modify.Prg.在程序中“____N____”是需要填充的地方，请填空，使程序完整。 功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。 SET TALK OFF DO WHILE .T. CLEAR ACCEPT 请输入表名（扩展名略）： TO TBN IF FILE(TBN..DBF) ___1___ ELSE WAIT 指定的表不存在! TIMEOUT 5 LOOP ENDIF ?表中的全部字段名列表: ___2___ ___3___ ENDFOR ACCEPT 请输入显示表信息的条件表达式： TO EXPR ___4___ WAIT 是否还要显示其他表文件中的内容?Y/N: TO YN IF UPPER(YN)!= Y ___5___ ENDIF ENDDO USE SET TALK ON 参考答案： ***学P139 EX_31.prg显示指定表中的全部字段名，并列表显示满足条件的记录*** SET TALK OFF DO WHILE .T. CLEAR ACCEPT 请输入表名（扩展名略）： TO TBN IF FILE(TBN..DBF) use(TBN) ___1___ ELSE WAIT 指定的表不存在! TIMEOUT 5 LOOP ENDIF ?表中的全部字段名列表: for n=1 to fcount() ___2___ ?field(n) ___3___ ENDFOR ACCEPT 请输入显示表信息的条件表达式： TO EXPR list for evaluate(expr) ___4___ WAIT 是否还要显示其他表文件中的内容?Y/N: TO YN IF UPPER(YN)!= Y exit ___5___ ENDIF ENDDO USE SET TALK ON 第2题：在考生目录中，有Modify.Prg.在程序中“*****N*****”的下一行有错误，请改正。 功能：编写求偶数之和 SET TALK OFF CLEAR INPUT M= TO M S=0 FOR P=1 TO M *****1***** IF INT(P/2) ?P *****2***** S=S+1 ENDIF ENDFOR ?S SET TALK ON 参考答案： ***学P144二、8.求输入数M内的偶数和偶数之和*** SET TALK OFF CLEAR INPUT M= TO M S=0 FOR P=1 TO M *****1***** IF INT(P/2)=P/2 IF INT(P/2) ?P *****2***** S=S+P S=S+1 ENDIF ENDFOR ?S SET TALK ON 第3题：****在考生目录中，有Modify.Prg.在程序中“____N____”是需要填充的地方，请填空，使程序完整。 ****功能：编写显示求e^x,到100项 参考答案： ***学P160P165、三、8.求e^x,到100项。*** INPUT 请输入x= to x ___1___ S=1 STORE 0 TO A1,A2 FOR I=1 TO 100 ___2___ DO JC WITH A1,I DO MC WITH A2,I S=S+A2/A1 ENDFOR ?E^+str(x,5)+=,s ___3___ PROC JC PARA P,R ___4___ P=1 FOR J=1 TO R P=P*J ENDFOR PROC MC PARA P,R __5___ P=1 FOR J=1 TO R P=P*X ENDFOR 第4题：****在考生目录中，有Modify.Prg.在程序中“____N____”是需要填充的地方，请填空，使程序完整。 ****功能：编写输出给定半高（行数）的对角反三角形图案 参考答案： ***学P128例3.22输出给定半高（行数）的对角反三角形图案*** SET TALK OFF CLEAR IN