笔试程序填题分析SCP.doc

笔试程序填空题分析(S18-27) 程序 19.2 (29.1) 子程序 下面程序的功能是利用参数传递求三个圆柱体体积。 *主程序EX.PRG ＊子程序 SUBYZ.PR CLEAR PARA ③ ( ④ ) FOR K=1 TO 3 V=314*R^2*H INPUT ”圆半径R=” TO R RETURN INPUT ”高 H=” TO H ① DO SUBYZ ② ？”圆柱体V=”，INT(V) ENDFOR( ③ ) / RETURN ① V=0 或 PUBLIC V ② WITH R,H,V ③ R,H,V (ENDIF) ④ (R,H,V) 20.2 删除 重复 记录 设有自由表xs.DBF，以“姓名”字段为关键字建立独立索引文件 XSID.IDX。因误操作而使得表中存在重复记录，现编程将重复 记录物理删除，请将程序填写完整。 use xs ① / xm=姓名 / skip do while ② xm1=姓名 If ③ / dele Else / xm=xm1 endif skip enddo ④ / use / retu ① INDE XSID ② NOT EOF() ③ TRIM(XML) =TRIM(XM) ④ PACK 21.1 查询 以下是一个计算机等级考试查分程序，请完成此程序。 已有库文件STUDENT（准考证号，身份证号，姓名，成绩）。 USE STUDENT INDEX XM IF FOUND() XM为表STUDENT的姓名字段的索引文件 DISP OFF TC=’Y’ ELSE DO WHILE TC=’Y’ ?“对不起，无此考号!” ACCE“请输入要查询的准考证号:”; ② TO NUM WAIT“继续查询吗? y/n” TO TC ① ③ ENDDO / USE ① LOCA FOR 准考证号=NUM ② ENDIF ③ TC=UPPER(TC) 26.1 物理删除重复记录 下面程序是对“职工”表的重复职工号进行物理删除，请补充程序。 USE职工 / INDEX ON 职工号 TO ZGH DO WHILE ① ZGH=职工号 / SKIP IF ② / DELETE ENDIF ③ / ④ / CLOSE ALL ① NOT EOF() ② 职工号=ZGH ③ ENDDO ④ PACK 26.2 计算 金额 有图书表TS.DBF和订单表DD.DBF，要求计算订单金额。 图书表TS.DBF的结构如下： 订单表DD.DBF的结构如下： 书号 书名 作者 出版社 单价 订单号 书号 数量 金额 Y001 C语言 王晓 大众出版社 21.50 001 Y001 150 J002 计算机基础 程力 科技出版社 26.00 002 J001 200 J003 计算机导论 舒彦 电子出版社 30.50 003 J003 50 W004 网页制作 严谨 科技出版社 28.30 004 W004 100 阅读下面程序，请将程序补充完整。 CLEAR ALL SELECT A / USE TS / INDEX ① TO TSS SELECT B / USE DD / SET RELATION TO 书号 ② REPLACE ALL 金额 WITH ③ LIST订单号,书号,TS.书名,TS.单价,数量,金额 / RETU ① ON 书号 ② INTO A ③ 数量*A.单价 27.1 统计 字符串 个数 从键盘上输入