第5章 程序设计基答案第5章 程序设计基础答案.doc

1．在 VTP 集成环境下调试程序时，如果程序运行过程中出现“死循环”现象，通常可以通过按键盘上的 ____ESC____ 键强制中断程序。 2．在某教学管理数据库中有一个学生表（ XS.DBF ），其表结构及其所含有的记录数据如表 1 所示。 表1 学生表结构及其记录数据 字段含义 学号 姓名 性别 日期 数据类型，宽度 C,6 C,6 C,2 D 字段名 XH XM XB CSRQ 记 录 数 据 010201 王玲 女 06/02/82 010203 李勇 男 06/09/82 010202 张山 男 02/08/81 010301 刘芳 女 09/08/83 010402 王勇敢 男 02/28/82 010302 李园园 女 12/21/81 010401 张勇 男 10/09/82 对于下列 SELECT-SQL 语句，其查询结果含有 ____3____ 条记录。 SELECT * FROM xs WHERE SUBSTR(xh,5,2)=＇01＇ 若学生表已在当前工作区打开，运行下列程序后再 VFP 主窗口显示的结果为 _____3 ____ 。【程序清单】 SET TALK OFFn=0CLEARGO TOPDO WHILE!EOF()IF AT(＂勇＂,xm)0n=n+1ENDIFSKIPENDDO?n 3. 运行以下程序后， VFP 主窗口显示的结果是 ____6____ 。【程序清单】CLEARi=0n=0DO WHILE i=10IF MOD(i,2)=0n=n+1ENDIFi=i+1ENDDO?n 4．有如下程序代码： DIMENSION xx[4]ta=TYPE(＂xx[1]＂)xx[1]=＂VFP＂xx=1113tb=TYPE(＂xx[1]＂) 则这段程序运行后，变量 ta 和 tb 的值分别是 ___L，N____ 。 4．下面有两段程序代码，它们的功能___相同___（注：答“相同”或“不相同”）。 【程序一清单】nSum=0p=1FOR i=1 TO 10p=p*inSum=nSum+pENDFOR?nSum 【程序二清单】nSum=0FOR i=1 to 10nSum=nSum+fJC(i)ENDFOR?nSumFUNCTION fJCPARAMETERS xp=1FOR n=1 TO xp=P*nENDFORRETURN pENDFUNC 5．某城市机动车驾驶员登记表（ JDCJS ）中含有驾驶证号（ jzh ）等字段。但由于录入人员的差错，包含了一些重复的记录（ jzh 字段的值有重复），影响了统计结果。完善下列程序，使其可以物理删除该表中的重复数据。【程序清单】USE JDCJS INDEX ON jzh TAG jzh 相同的驾驶证号记录将相邻排列GO TOPlast_jzh=jzhSKIPDO WHILE !EOF()IF jzh=last_jzhDELETEELSE__last_jzh=jzh______ENDIFSKIPENDDOPACK 6．下列自定义函数 NTOC （）的功能是：当传送一个 1~7 之间的数值型参数时，返回一个中文形式的“星期日 ~ 星期六”。例如，执行命令？ NTO （ 4 ），显示“星期三”。  FUNCTION NTOCPARAMETERS nLOCAL chch=＂日一二三四五六＂mch=＂星期＂=SUBSTR(ch,__2*n-1____,2)RETURN mchENDFUNC 7．完善下列程序，以显示7~1000以内能被7整除且含有数字5的所有证书（例如35、 56、 105等）。 ????????? FOR n=7 TO 1000? ??? step 7 ????? ????????????? ch=ALLT(STR(n)) ????????????? IF?? 5$ch ????????????????? ?n ?????????????? ENDIF ????????? ENDFOR 8．运行下列程序后，显示的运行结果的第二行为??? 11*11=121 ???? SET TALK OFF CLEAR ??????? Y???????? FOR I=1 TO LEN(y) ???????? X=LEFT(y, i) ???????? ?SPACE（20-i*2)+x+*+x+=+ALLT(STR(VAL(x)*VAL(x))) ???????? ENDFOR 9．完善下列程序 , 使程序的运行结果如图 3 所示 . SET TAL