计算机程序改错题,及答案.doc

11*程序名：TEST.prg*检索选修课程门数等于门或门以上,每门课程成绩大于或等于分的每个学生的*学号,姓名,性别,平均成绩,最低分和选课门数,并将结果存储到表NEW_TEST中*以下程序有三处错误，请改正OPEN DATABASE SDBSELECT STUDENT.学号,姓名,性别,AVG(成绩) 平均成绩,MIN(成绩) 最低分,COUNT(*) 选课门数; FROM STUDENT,SC; WHere STUDENT.学号 = SC.学号 AND 成绩 = 70 ; &*Error* GROUP BY STUDENT.学号 HAVING count(课程号) = 3; &*Error* inTO table NEW_TEST &*Error*CLOSE ALL9*程序名：dbtest3.prg*定义一个视图VS1,*检索选课门数是3门以上的每个学生的学号、姓名、平均成绩、最低分、选课门数和院系编号,*并按平均成绩降序排序.*以下程序有三处错误，请改正SET TALK OFFSET SAFETY OFFopen DATABASE SDB &*Error*修改本行的语法错误,不许注释掉本行或删除本行CREATE VIEW VS1 SELECT STUDENT2.学号, 姓名, AVG(成绩) 平均成绩, MIN(成绩) 最低分, COUNT(*) 选课门数, 院系编号; FROM STUDENT2, sc; &*Error* WHERE STUDENT2.学号 = SC.学号 ; GROUP BY SC.学号 HAVING COUNT(课程号) 3; ORDER BY 平均成绩 desc &*Error*CLOSE DATABASERETURN i=2create table four(结果 I)do while i=1000 if i%3=0 insert into four values(i) &错误语句请修改 endif i=i+1 & 请增加一条语句 enddocreate database 学习情况create table 学生(姓名 C(20),学号 C(10) primary key) &有错误alter table 学生 add 总分 I &有错误alter table 学生 alter 总分 set check 总分=0 &有错误insert into 学生 values (林红,20100808,788) &有错误update 学生 set 总分=786 where 学号=20100808&有错误alter table employee alter 性别 set check 性别=男 or 性别=女SELECT Department.部门名, count(*) as 总人数; FROM employee_m!department INNER JOIN employee_m!employee ; ON Department.部门号 = Employee.部门; group by 部门号; INTO TABLE tone.dbf SELECT Department.部门名, count(*) as 人数_男; FROM employee_m!department INNER JOIN employee_m!employee ; ON Department.部门号 = Employee.部门; where 性别=男; group by 部门号; INTO TABLE ttwo.dbf SELECT tone.部门名, ttwo.人数_男, 总人数-人数_男 as 人数_女, tone.总人数; FROM tone INNER JOIN ttwo ; on tone.部门名=ttwo.部门名; order by tone.部门名 desc; INTO TABLE tableone12*程序名：dbtest61.prg*检索同时选修课程号c1和c2的学生的学号*以下程序有三处错误，请改正SELECT 学号; FROM SC ; WHERE 课程号 = c1 AND 学号 in ; &*Error* ( SELECT 学号 FROM SC ; &*Error* WHERE 课程号 = c2 ) &*Error*CLOSE DATABASE*程序名：dbtest4.prg*检索选课门数大于或等于3门以上的每个学生的学号、姓名、平均成绩、最低分、选课门数和院系,*并按平均成绩降序排序,将结果存储到表TEST1中.*以下程序有三处错误，请改正SET TALK OFFSET SAFETY OFFSELECT STUDENT.学号, 姓名, AVG(成绩) 平均成绩, MIN(成绩) 最低分, COUNT(*) 选课门数,院系 院系; FROM STUDENT, SCORE; WHERE STUDENT.学号 = SCORE.学号; GROUP BY STUDENT.学号 HAVING count(课程编号) = 3; &*Error* ORDER BY 平均成绩 desc; &*Error* INTO table TEST1 &*Error*RETURN18 $75所有器件的单价增加5元UPDATE order_detail1 SET 单价=单价 + 5计算每种器件的平均单价SELECT 器件号,AVG(单价) AS 平均价 FROM order_detail1 group BY 器件号 INTO CURSOR lsb&查询平均价小于500的记录SELECT * FROM lsb where 平均价 =30000 ORDER BY 总金额 DESC into table newtable61* USE 用户表 GO TOP flag=0 do while not eof() &添加一条语句 IF Alltrim(用户名)=Alltrim(Thisform.Text1.Value) IF Alltrim(口令)=Alltrim(Thisform.Text2.Value) WAIT 欢迎使用 WINDOW TIMEOUT 2 ELSE WAIT 口令错误 WINDOW TIMEOUT 2 endif &添加一条语句 flag=1 EXIT ENDIF skip &添加一条语句 ENDDO if flag=0 &添加一条语句 WAIT 用户名错误 WINDOW TIMEOUT 2 ENDIF62*该命令文件用来查询与姚小敏同一天入住宾馆的每个客户的客户号、身份证、姓名、*工作单位。查询结果输出到表TABC中。*该命令文件在第3行、第5行、第7行和第8行有错误,打开该命令文件，直接在错误处修改，不可*改变SQL语句的结构和短语的顺序，不允许增加、删除或合并行。OPEN DATABASE 宾馆SELECT 客户.客户号,身份证,姓名,工作单位;FROM 客户 JOIN 入住 on 客户.客户号=入住.客户号;WHERE 入住日期 IN;( SELECT 入住日期; FROM 客户,入住;WHERE 客户.客户号=入住.客户号 and 姓名 = 姚小敏);inTO TABLE tabc64*反复练习 &根据歌手表计算每个组的歌手人数 CLOSE DATA USE one GO TOP do WHILE.NOT. EOF() &错误 zuhao=组号 SELECT COUNT(*) FROM 歌手表 WHERE left(歌手表.歌手编号,2)=zuhao INTO ARRAY A &错误 REPLACE 歌手人数 with A &错误 SKIP ENDDO68（10）背*在下面的程序中，第2、3、4、7和12行语句不正确，请修改！*注意：修改时不允许增加或删除行，只能在错误行上进行修改！*USE passKey1 = ALLTRIM(ThisForm1.text1.value) Key2 = ALLTRIM(ThisForm2.text2.value) locate ALL for USER = Key1IF FOUND() AND PASS = Key2 WAIT 欢迎使用本系统！ WINDOW TIMEOUT 1 thisform.releaseELSE num = num + 1 IF num = 3 WAIT 用户名或口令不对，登录失败！ WINDOW TIMEOUT 1 thisform.release ELSE WAIT 用户名或口令不对，请重输入！ WINDOW TIMEOUT 1 ENDIFENDIF69(13)背 *found*store 0 to x,s1,s2,s3*found*x=val(thisform.text1.value)do while x0 if int(x/2)=x/2 s1=s1+1 else s2=s2+1 endif*found* if mod(x,3)=0 s3=s3+1 endif x=x-1enddothisform.text2.value=s1thisform.text3.value=s2thisform.text4.value=s3thisform.text5.value=s1+s2+s370&根据教师表计算每个系的教师人数并将数据填入学院表CLOSE DATAUSE 学院表GO TOPDO while .NOT. EOF() &错误 xihao=系号 SELECT COUNT(*) FROM 教师表 WHERE 教师表.系号=xihao INTO array A &错误 REPLACE 教师人数 WITH A1 skip &错误ENDDO$94create table prime(dat f) &建表表名为primen=11do while n=2011 f=0 i=2 do while i=int(sqrt(n) if mod(n,i)0 i=i+1 loop &继续内循环 else f=1 exit &跳出内循环 endif enddo if f=0 insert into prime values(n) &插入满足条件的数据到表中 endif n=n+1enddo72* 请改正以下语句代码中的错误，然后运行程序。SELECT 部门表.部门号, 部门名, 销售表.商品号, 商品名,一季度利润 + 二季度利润 + 三季度利润 + 四季度利润 as 年销售利润; FROM 部门表,销售表,商品代码表 ; where 销售表.商品号 = 商品代码表.商品号 ; and 部门表.部门号 = 销售表.部门号;and 销售表.年度 = 2006; ORDER by 1, 5 desc; inTO TABLE TABA* 请改正以下语句代码中的错误，然后运行程序。 SELECT 销售表.部门号, 部门名, 一季度利润 + 二季度利润 + 三季度利润 + 四季度利润 AS 年销售利润; FROM 销售表,部门表; WHERE 销售表.部门号 = 部门表.部门号 AND 年度 = 2005;group BY 销售表.部门号 inTO cursor temp SELECT temp.部门号, 部门名, 年销售利润, 工资支出, 办公支出, 年销售利润 - 工资支出 - 办公支出 AS 纯利润; FROM temp, 部门成本表; WHERE 部门成本表.部门号 = temp.部门号 AND 年度 = 2005; inTO TABLE account73* 下面代码的功能是根据用户对列表框的选择结果构建字段列表，然后进一步构建select语句并据此为表格的相关属性设值。* 修改所有* FOUND *下面的一条语句。* 不能修改其他语句。不能增加语句，也不能删除语句。s=f=.T.* FOUND *FOR i=1 TO thisform.List1.listCount IF thisform.List1.Selected(i) IF f* FOUND * s=thisform.List1.list(i) f=.F. ELSE* FOUND * s=s+,+thisform.List1.list(i) ENDIF ENDIFENDFORst=select &s from orders into cursor tmpthisform.Grid1.RecordSource=st74* 下面代码的功能首先将年份设置为用4位数字表示，然后根据文本框Text1的值构建SQL语句，并设置表格Grid1的相关属性。* 修改所有* FOUND *下面的一条语句。* 不能修改其他语句。不能增加语句，也不能删除语句。* FOUND * set century on* FOUND * va=thisform.text1.valuest=select 订单号,签订日期,金额 from orders where 签订日期=va order by 签订日期 into cursor tmp* FOUND * thisform.grid1.RecordSource=st75* 下面代码的功能是读取所选职员的职员号，然后计算该职员所签订单的平均金额，并显示在文本框内。* 修改所有* FOUND *下面的一条语句。* 不能修改其他语句。不能增加语句，也不能删除语句。dime a(1,1)a(1,1)=0m1=employee.职员号select avg(金额) from orders where 职员号=m1 into array am2=a(1,1)* FOUND *thisform.text1.value=m278SELECT sum(现价-买入价)*持有数量);FROM stock_sl ;WHERE 股票代码 ;in;(SELECT 股票代码 FROM stock_name ;WHERE 股票简称 LIKE %银行)79CLOSE ALLOPEN DATABASE 成绩管理USE 选课 IN 0USE 学生 EXCL IN 0*Error*alter TABLE 学生 ADD 平均成绩 N(6,2)SELECT 学生*Error*DO WHILE not EOF() SELECT AVG(成绩) FROM 选课 WHERE 学号=学生.学号 INTO ARRAY cj*Error* REPLACE 平均成绩 with cj1 cj1=0 SKIPENDDOCLOSE DATABASE81use db!taba in 0 select taba do while !eof() sele a,b,c,x1,x2,note from taba into array aa a=aa(1) b=aa(2) c=aa(3) IF a0 delta=b2-4*a*c re=-b/(2*a) im=SQRT(ABS(delta)/(2*a) IF delta=0 root1=re+im root2=re-im replace x1 with root1 replace x2 with root2 &? 两个根为：,root1,root2 & 写入到 数据库表的 X1 和X2中 ELSE repl note with 无实数解 ENDIF ENDIF skip enddoclose database51移动欢迎使用考试系统标签IF THISFORM.Label1.Left+THISFORM.Label1.WIDTH=4000&下句有错误 sum=sum+1ENDSCAN?sum83&下句有错误CREATE TABLE 工资表(职工号 C(8) primary KEY,姓名 C(6) ,工资 N(10,2)&下句有错误INSERT inTO 工资表 VALUES (11020034,宣喧,4500)USE 工资表APPEND FROM 教师表&下句有错误UPDATE 工资表 set 工资=工资*1.1 WHERE 工资3000&下句有错误DELETE FROM 工资表 WHere 姓名=ThomasPACK84*在第2行有一处错误，第3行有两处错误，请改正select p.组别,c.姓名 组长,p.姓名 组员 ;from employee p join employee c ;on p.组别=c.组别 where c.职务=组长 and c.姓名p.姓名;order by p.组别$91select 部门.部门号,count(*) as 人数;from 职工,部门 where 部门.部门号=职工.部门号 and year(出生日期)=1980 and year(出生日期)=1990;order by 人数 desc;group by 部门.部门号 into dbf new$89select 职称级别,基本工资 from 职称表 where 职称名=教授 into dbf prof.dbf order by 基本工资$89create table 职称系数表 (职称名 c(6),职称系数 f(10,2) &有错误insert into 职称系数表 value (教授 ,1.4)insert into 职称系数表 value (副教授 ,1.3) &有错误insert into 职称系数表 value (讲师 ,1.2)insert into 职称系数表 value (助教 ,1.0)SELECT 姓名, 系号,课时*80*职称系数+基本工资 as 应发工资;FROM 职称系数表,教师表,职称表; &有错误 WHERE 职称表.职称级别 = 教师表.职称级别 ; and 职称表.职称名 = 职称系数表.职称名; &有错误 into dbf salary.dbf; order by 系号 desc,应发工资$84CLOSE DBFPRIVATE no,moneyUSE scust*下面的一行语句有错误SELECT 顾客号,sum(数量*单价) 应付款 ;FROM order