程序修改题汇总.doc

《程序修改题汇总.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、程序修改题（第6套）第1行中的"="需改为"IN"；第3行中的"GROUPBY项目号"需改为"GROUPBY零件号"；第5行中的"INTOFILE"需改为"TOFILE"。第8套***********程序提供的代码***********&&下句只有一处有错误SELECT课程号FROM课程表WHERE课程名="数据结构"TOARRAYa&&下句有错误OPEN教师表STORE0TOsum&&下句两处有错误SCANOF课程号=aOR工资>=4000&&下句有错误sum+1ENDSCAN?sum*******************************

2、*错误1：将TO改为INTO。错误2：将OPEN改为USE。错误3：将SCANOF改为SCANFOR。错误4：将OR改为AND。错误5：将sum+1改为sum=sum+1。第9套************程序提供的代码********************found********x,s1,s2,s3=0********found********x=thisform.text1dowhilex>0ifint(x/2)=x/2s1=s1+1elses2=s2+1endif********found********ifdiv(x,3)=0s3=s3+1

3、endifx=x-1enddothisform.text2.value=s1thisform.text3.value=s2thisform.text4.value=s3thisform.text5.value=s1+s2+s3********************************错误1：改为STORE0TOx,s1,s2,s3。错误2：改为x=val(thisform.text1.value)。错误3：改为ifmod(x,3)=0。第12套第一处：WHILE改为WHERE。第二处：OPEN改为USE。第三处：WHERE改为FOR。第四处：

4、填入num=num+1。第14套第3行改为：FROM客户,入住WHERE客户.客户号=入住.客户号;第5行改为：(SELECT入住日期;第7行改为：WHERE客户.客户号=入住.客户号AND姓名="姚小敏");第8行改为：INTOTABLETABC第15套**********"登录"按钮的Click事件代码**********USE用户表GOTOPflag=0&&下面语句有错误WHILE.NOT.EOF()IFAlltrim(用户名)==Alltrim(Thisform.Text1.Value)IFAlltrim(口令)==Alltrim(This

5、form.Text2.Value)WAIT"欢迎使用"WINDOWTIMEOUT2ELSEWAIT"口令错误"WINDOWTIMEOUT2ENDIFflag=1EXITENDIF&&下面语句有错误NEXTENDDO&&下面语句有错误CASEFLAG=0WAIT"用户名错误"WINDOWTIMEOUT2ENDIF****************************************错误1：将"WHILE"改为"DOWHILE"。错误2：将"NEXT"改为"SKIP"。错误3：将"CASE"改为"IF"。第16套&&根据"歌手表"计算每个组的

6、歌手人数CLOSEDATAUSEoneGOTOPWHILE.NOT.EOF()&&错误zuhao=组号SELECTCOUNT(*)FROM歌手表WHERE歌手表.歌手编号=zuhaoINTOARRAYA&&错误REPLACE歌手人数INTOA&&错误SKIPENDDO第1处：将"WHILE"改为"DOWHILE"；第2处：将"歌手表.歌手编号"改为"LEFT(歌手表.歌手编号,2)"；第3处：将"INTO"改为"WITH"第17套第1处错误：keyàprimaryKEY第2处错误：inserttoàINSERTINTO第3处错误：BYàset第4处

7、错误：whileàwhere第20套第1处错误改为：fromemployeepjoinemployeec;第2处错误改为：onp.组别=c.组别wherec.职务="组长"andc.姓名<>p.姓名;第31套第1处：findforàlocatefor第2处：whileàdowhile第3处：rate_exchange.持有数量àcurrency_sL.持有数量第38套第3行处的错误修改为：Key2=ALLTRIM(ThisForm.text2.value)第4行处的错误修改为：LOCATEALLFORUSER=Key1第12行处的错误修改为：THI

8、SFORM.RELEASE第40套①删除"(此处空行)"，然后填写"usecustomer"。②把"WHILE"改为"FO