RETURN
123N
3、下列程序的功能是求S=3+3+3?+3，请将下列程序补充完整。
CLEAR
SUM=0
INPUT“请输入N=”TO N ①
FOR M=1 TO N
H=H* ② SUM= ③ ENDFOR
?”SUM=”,SUM RETURN
4、以下是一个评分统计程序，共有10个评委打分，去掉一个最高分，去掉一个最低分，其余8个评委给出分数的平均值为最后得分。请将程序补充完整以实现其功能： SET TALK OFF DIME ___① ___
? \请依次输入10个评委的评分，按回车键结束\FOR I=1 TO 10 INPUT TO X(I) ___ ② ___
STORE X(1) TO MAX,MIN,S FOR I=2 TO 10 IF MAX IF MIN>X(I) MIN=X(I) ENDIF ENDIF S=S+X(I) ENDFOR ___ ③ __ =(S-MAX-MIN)/8 ? “最后得分为：”，AVG RETURN 5、求1+1/2+1/3+1/4+??+1/99+1/100的值。 S=0 I=1 DO WHILE I<=100 S= ① I = ② ENDDO ?\，S RETURN 知识点：表的操作 6、有数据表职工.dbf和工资.dbf，职工表中有C型字段“职工号”、“姓名”、“职务”，工资表中有N型字段“实发工资”，两表具有相同字段“职工号”。以下程序的功能是：反复输入职工的姓名，在数据表中查找，若找到则显示基本信息及实发工资，若没有则显示“查无此人！！！”。每次查询结束，出现“继续吗（Y/N）？”信息，回答“Y”或“y”则继续，其余任意键结束程序，请填空： Clear all Sele 2 Use 工资 Index on tag zgh Sele 1 Use 职工 Set relation to 职工号 into b Do while .t. Acce ‘请输入职工姓名:’ to xm Loca for 姓名= If found() ?职工号，姓名，职务，b.实发工资 ?”查无此人！！！” Endif Wait ‘按”Y”继续，其它任意键退出?’ to yn If upper(yn)=“Y” Else Endif Enddo Clear all 7.以下是一个可以对任意数据表追加和逻辑删除记录的程序，请完善. CLEAR ALL ACCEPT “请输入数据表名：” TO _____________ USE &SNAME @2,10 SAY “1.追加记录” @4,10 SAY “2.删除记录” INPUT “请按编号选择（1-2）” TO N IF_____________ APPEND ELSE INPUT “请输入要删除的记录号：” TO X GO X _____________ ENDIF USE RETURN 8、设有数据表结构为： 成绩（学号/C/8，语文/N/3，英语/N/3，总分/N/3，是否补考/L） 表中已经输入了所有学生的学号及语文、数学、英语三门课程的成绩，是否补考字段的值全为.F.。以下程序的功能是求出各位学生的总分，如果该同学有一门或以上课程分数低于60，则在是否补考字段注明逻辑真，统计并输出补考人数。将以下程序补充完整以实现上述功能。 CLOSE TABLES ALL USE 成绩 CNT=0 DO WHILE . NOT. ① REPLACE 总分 WITH 语文+数学+英语 IF（语文<60 . OR . 数学<60 . OR. 英语<60） REPLACE 是否补考 WITH . T. CNT= ② ENDIF ③ ENDDO ？“总共有”+ALLTRIM（STR（CNT））+“人补考” USE RETURN 9、有以下“客户.dbf”和“订单.dbf”两表： 以下程序是根据输入的顾客名来查询该顾客的所有订单信息，输出顾客名、地址、商品号和数量。 CLEAR ALL SELE 2 USE 订单 INDEX ON 顾客号 TO GKH SELE 1 USE 客户 SET RELA TO __ ①__ INTO B SET ② TO B &&设置一对多关系 ACCEPT \请输入顾客名\ DISP 顾客名,地址,B.商品号,_ ③_ FOR 顾客名=ALLTRIM(GKM) CLOSE ALL 10、设有数据表为： 下面程序的功能是分别统计教师.DBF中男、女职工的人数，请将程序填写完整。 USE 教师 N1=0 N2=0 GO BOTTOM DO WHILE .NOT. ① IF 性别= ② N1=N1+1 ELSE N2=N2+1 ENDIF ③ ENDDO ?\男职工人数是：\?\女职工人数是：\USE 11、设有数据表stu.dbf为： 下面程序时查找总分最高者并输出其姓名、专业和总分。 set talk off clear use stu xm=姓名 zy=专业 zf=总分 do while not eof() ① if zf>=总分 ② xm=姓名 zy=专业 ③ else endif enddo ?xm,zy,zf use return 知识点：SQL 12、若要给教师表中职称是教授的教师每人工资增加50元，实现其功能的SQL语句是。 教师 set 工资=工资+50 职称=“教授” 13、数据库人事.dbc中有数据库表职工.dbf，用select命令查询职工表中年龄不小于25岁、“职务”字段为“销售员”的职工的信息，结果按“部门号”字段值升序排列，请填空： Select 部门号，职工号，姓名，职务，年龄 人事！职工 ； where 年龄>=25 职务=“销售员” order by 14.按要求填空。 （1） 有2个数据表文件： 教师（教师号 C（6），姓名 C（6））； 授课（教师号 C（6），课程号 C（4），课程名 C（10），课时 N（3））； 下面SQL语句功能是查询教师“刘宏”所讲授的课程号和课程名，请将下面SQL语句补充完整。 SELECT 教师.教师号，教师.姓名，授课.课程号，授课.课程名 FROM _____________； WHERE 教师.教师号=_____________ AND 教师.姓名=”刘宏” （2） 在数据表选课（学号，课程号，成绩）中查询选课在3门及以上且各门课程均及格的学 生的学号和平均成绩，请将下面SQL语句补充完整。 SELE 学号，_____________ AS 平均成绩 FROM选课 WHERE 成绩>=60； GROUP BY 学号 HAVING COUNT（*）_____________ 15.有如下数据表“职工.dbf”和“部门.dbf”