第5章 程序设计基础答案

1在 VTP 集成环境下调试程序时，如果程序运行过程中出现“死循环”现象，通常可以通过按键盘上的 _ESC_ 键强制中 断程序。 2在某教学管理数据库中有一个学生表（ XS.DBF ），其表结构及其所含有的记录数据如表 1 所示。 表 1 学生表结构及其记录数据 字段含义学号姓名性别日期 数据类型，宽度C,6C,6C,2D 字段名XHXMXBCSRQ 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 OFF n=0 CLEAR GO TOP DO WHILE!EOF() IF AT(勇,xm)0 n=n+1 ENDIF SKIP ENDDO ?n 3. 运行以下程序后， VFP 主窗口显示的结果是 _6_ 。 【程序清单】 CLEAR i=0 n=0 DO WHILE i2.0 s=s-1/n n=n-1 exit ENDIF ENDO WAIT WINDOW STR(n,2)+”项之和=”+STR(s, 6, 2) 13完善下列程序段，其功能是将中英文字符组成的字符串，以竖列的形式（即每行一个字符）输出。 CLEAR p=”新编 VisualFoxPro 教程” DO WHILE !EMPTY(p) i=IIF( ASC(LEFT(p,1)127, 2, 1) ?LEFT(p,i) p=SUBSTR(p, i+1 ) ENDDO 14我国的公民身份证号是 18 位的特征组合码，由 17 位数字本体码和和 1 位校验码组成。排列顺序从左至右依次为：6 位数字 地址码，8 位数字出生日期码，3 位数字顺.序码和 1 位数字检验码。检验码是根据 17 位本位码计算得到的，计算步骤如下： （1）对前 17 位数字加权求和 。其中： 17, 1),*(iWiAiS Ai：表示第 i 位的身份证号码数字值 Wi：表示第 i 位的加权因子。Wi 是由公式：Wi=2(18-i)%11 计算得到，即 2 的（18-i）次幂除以 11 的余数。 （2）对加权和 S 模 11，得到校验码的对应值 Y，即 Y=S%11。 Y 的取值可以是：0 1 2 3 4 5 6 7 8 9 10 （3）根据 Y 的值取校验码。Y 与检验码的对应关系如下表： Y：012345678910 校验码10X98765432 完善下列程序，其功能是对给定的一个身份证号，计算检验码并与最后一位比较，判定身份证号是否合法。 LOCAL CID, StrVerify, CharVerify, StrMsg CIDStrVerify=10X98765432 DIMENSION W(17) FOR i=1 to 17 W(i)=INT(2(18-i) %11) NEXT i S=0 FOR I=1 to 17 S=S+VAL(SUBSTR(CID, I, 1) * W(i) NEXT I Y=S%11 CharVerify=SUBSTR(StrVerify, y+1 , 1) IF CharVerify=RIGHT(CID,1) StrMsg=CID+合法 Else StrMsg=CID+非法 ENDIF WAIT WINDOW StrMsg 15、完善下列程序，使其产生 10 个随机的大写英文字母： CLEAR i = 1 DO WHILE _i=65 AND k10 EXIT ENDIF ENDDO 17、完善下列自定义函数 STR_RV（） ，要求其功能为将一个字符串进行“反序” 。例如，STR_RV(“ABCD”)的返回值为”DCBA”。 FUNCTION str_rv() PARATERS c p = SPACE(0) DO WHILE LEN(c) 0 x = ASC(c) IF x127 & ASCII 码大于 127 的字符为汉字（半个汉字） p = LEFT(c, 2) + p c = SUBSTR( c, 3) ELSE p = LEFT(c, 1) c = SUBSTR(_c, 2_) ENDIF ENDDO return p ENDFUNCTION 18、完善下列程序，其功能是统计一个仅由数字组成的字符串中各种数字字符的人数： 【程序清单】 CLEAR cStr=”11010234224567893319”& 字符串初始值 STORE 0 to n0, n1, n2, n3, n4, n5, n6, n7, n8, n9& 计数变量 DO WHILE LEN(cStr)0 c=LEFT(cStr,1) n&c=_ n&c +1_ cStr=substr(cstr,2)_ ENDDO ?n0, n1, n2, n3, n4, n5, n6, n7, n8, n9 19、完善下列自定义函数 NoSpace()，其功能是将一个字符串中的所有空格删除。 FUNCTION NoSpace PARAMETERS cStr cResult=SPACE(0) FOR n=1 TO LEN(cStr) IF SUBSTR(cStr, n, 1)=SPECE(1) _loop _ ENDIF cResult=cResult+SUBSTR(cStr,n,1) ENDFOR RETURN cResult ENDFUNC 20、下列程序运行后，X 的值为_30_，Y 的值为_-2_。 【程序清单】 CLEAR x=26 y=0 IF INT(x/2)=x/2 y=MOD(x,3) x=x+4 ENdIF IF INT(x/3)=x/3 y=MOD(x,-4) ENDIF ?x ?y 21、完善下列程序，计算 3+33+333+3333+33333+前十项之和。 CLEAR m=3 n=0 s=0 FOR i=1 to 10 n=_n*10+3_ s=s+n ENDFOR 22、完善下列程序，使两个程序的功能相同。 【程序清单 1】【程序清单 2】 CLEARCLEAR s=0s=0 p=1n=1 FOR i=1 TO 20FOR i=1 TO 20 p=_p*i_m=1 s=s+pFOR n=1 TO i ENDFORm=m*n ?sENDFOR s=s+m ENDFOR ?s 23、执行下列主程序后，输出结果为_22_。 *主程序*子程序* CLEARPROCEDURE PP PUBLIC x, y, zLOCAL x x=3x=5 y=4y=7 z=5z=x+y DO PPENDPROC ?x+y+z 24、完善下列程序，使程序的运行结果如下图所示。 CLEAR FOR i=1 TO 9 FOR j=1 TO 9 IF i0 d=300 ENDCASE RETURN ENDPROC 32一只球从 100 米的高度自由落下，每次落地后反弹回原高度的一半。下列程序的功能是：计算并显示当它在第 10 次落地