程序文修改题汇总.doc

程序修改题（第6套） 第1行中的=需改为IN； 第3行中的GROUP BY 项目号需改为GROUP BY 零件号； 第5行中的INTO FILE需改为TO FILE。 第8套 ***********程序提供的代码*********** 下句只有一处有错误 SELECT 课程号 FROM 课程表 WHERE 课程名=数据结构 TO ARRAY a 下句有错误 OPEN 教师表 STORE 0 TO sum 下句两处有错误 SCAN OF 课程号=a OR 工资=4000 下句有错误 sum+1 ENDSCAN ?sum ******************************** 错误1：将 TO 改为 INTO。 错误2：将 OPEN 改为 USE。 错误3：将 SCAN OF 改为 SCAN FOR。 错误4：将 OR 改为 AND。 错误5：将 sum+1 改为 sum=sum+1。 第9套 ************程序提供的代码************ ********found******** x,s1,s2,s3=0 ********found******** x=thisform.text1 do while x0 if int(x/2)=x/2 s1=s1+1 else s2=s2+1 endif ********found******** if div(x,3)=0 s3=s3+1 endif x=x-1 enddo thisform.text2.value=s1 thisform.text3.value=s2 thisform.text4.value=s3 thisform.text5.value=s1+s2+s3 ******************************** 错误1：改为 STORE 0 TO x,s1,s2,s3。 错误2：改为 x=val(thisform.text1.value)。 错误3：改为 if mod(x,3)=0。 第12套 第一处：WHILE改为WHERE。 第二处：OPEN改为USE。 第三处：WHERE改为FOR。 第四处：填入num = num +1。 第14套 第3行改为：FROM 客户,入住 WHERE 客户.客户号 = 入住.客户号; 第5行改为：( SELECT 入住日期; 第7行改为：WHERE 客户.客户号 = 入住.客户号 AND 姓名 = 姚小敏); 第8行改为：INTO TABLE TABC 第15套 **********登录按钮的Click事件代码********** USE 用户表 GO TOP flag=0 下面语句有错误 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 下面语句有错误 NEXT ENDDO 下面语句有错误 CASE FLAG=0 WAIT 用户名错误 WINDOW TIMEOUT 2 ENDIF **************************************** 错误1：将WHILE改为DO WHILE。 错误2：将NEXT改为SKIP。 错误3：将CASE改为IF。 第16套 根据歌手表计算每个组的歌手人数 CLOSE DATA USE one GO TOP WHILE.NOT. EOF() 错误 zuhao=组号 SELECT COUNT(*) FROM 歌手表 WHERE 歌手表.歌手编号=zuhao INTO ARRAY A 错误 REPLACE 歌手人数 INTO A 错误 SKIP ENDDO 第1处：将WHILE改为DO WHILE； 第2处：将歌手表.歌手编号改为LEFT(歌手表.歌手编