資源描述：
《程序修改題匯總.doc》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫。
1、程序修改題（第6套）第1行中的"="需改為"IN"；第3行中的"GROUPBY項目號"需改為"GROUPBY零件號"；第5行中的"INTOFILE"需改為"TOFILE"。第8套***********程序提供的代碼***********&&下句只有一處有錯誤SELECT課程號FROM課程表WHERE課程名="數(shù)據(jù)結(jié)構(gòu)"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套&&根據(jù)"歌手表"計算每個組的
6、歌手人數(shù)CLOSEDATAUSEoneGOTOPWHILE.NOT.EOF()&&錯誤zuhao=組號SELECTCOUNT(*)FROM歌手表WHERE歌手表.歌手編號=zuhaoINTOARRAYA&&錯誤REPLACE歌手人數(shù)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.職務(wù)="組長"andc.姓名<>p.姓名;第31套第1處：findforàlocatefor第2處：whileàdowhile第3處：rate_exchange.持有數(shù)量àcurrency_sL.持有數(shù)量第38套第3行處的錯誤修改為：Key2=ALLTRIM(ThisForm.text2.value)第4行處的錯誤修改為：LOCATEALLFORUSER=Key1第12行處的錯誤修改為：THI
8、SFORM.RELEASE第40套①刪除"(此處空行)"，然后填寫"usecustomer"。②把"WHILE"改為"FO
