VF等級(jí)考試部分編程題答案總結(jié).doc

1編程序，從 xuesheng 表和chengji 表中找出所有成績(jī)不及格的學(xué)生信息，并把這些數(shù)據(jù)保存在表table3中set talk offsele 1use xuesheng index on 學(xué)號(hào) tag 學(xué)號(hào)set order to tag 學(xué)號(hào)sele 2use chengji index on 學(xué)號(hào) tag 學(xué)號(hào)set order to tag 學(xué)號(hào)sele 3 use table3sele 1set relation to 學(xué)號(hào) into bdo while not eof() if b-數(shù)學(xué)學(xué)號(hào),姓名 with a-姓名,課程名 with 數(shù)學(xué),分?jǐn)?shù) with b-數(shù)學(xué) endif if b-英語(yǔ)學(xué)號(hào),姓名 with a-姓名,課程名 with 英語(yǔ),分?jǐn)?shù) with b-英語(yǔ) endif if b-信息技術(shù)學(xué)號(hào),姓名 with a-姓名,課程名 with 信息技術(shù),分?jǐn)?shù) with b-信息技術(shù) endif sele 1 skipenddosele 3sort to ls on 分?jǐn)?shù)/a,學(xué)號(hào)/dusedelete from table3use lscopy to table3use table3browclose database2.根據(jù)歌手表計(jì)算每個(gè)組的歌手人數(shù)（程序改錯(cuò)） CLOSE DATA USE one GO TOP do WHILE.NOT. EOF() &錯(cuò)誤 zuhao=組號(hào) SELECT COUNT(*) FROM 歌手表 WHERE left(歌手表.歌手編號(hào),2)=zuhao INTO ARRAY A &錯(cuò)誤 REPLACE 歌手人數(shù) with A &錯(cuò)誤 SKIP ENDDO3程序改錯(cuò)i=10DO while i=1 ? I i=i-1 ENDDO4程序改錯(cuò)*下句只有一處有錯(cuò)誤*SELECT 課程號(hào) FROM 課程表 WHERE 課程名=數(shù)據(jù)結(jié)構(gòu) inTO ARRAY a*下句有錯(cuò)誤*use 教師表STORE 0 TO sum*下句兩處有錯(cuò)誤*SCAN for 課程號(hào)=a and 工資=4000*下句有錯(cuò)誤* sum=sum+1ENDSCAN?sum5程序改錯(cuò)*下句有錯(cuò)誤*CREATE TABLE 工資表(職工號(hào) C(8) prima KEY,姓名 C(6) ,工資 N(10,2)*下句有錯(cuò)誤*INSERT inTO 工資表 VALUES (11020034,宣喧,4500)USE 工資表APPEND FROM 教師表*下句有錯(cuò)誤*UPDATE 工資表 set 工資=工資*1.1 WHERE 工資=1 ?i i=i-1ENDDO7程序改錯(cuò) *在下一行添加一條打開(kāi)customer表的語(yǔ)句, 然后把（此處空行）刪除use customer*表沒(méi)有索引，修改如下語(yǔ)句使之能顯示所有“北京”客戶(hù)的信息SCAN for 所在地=北京? 客戶(hù)編號(hào),公司名稱(chēng),聯(lián)系人姓名ENDSCAN8.程序改錯(cuò)*在第2行有一處錯(cuò)誤，第3行有兩處錯(cuò)誤，請(qǐng)改正select p.組別,c.姓名 組長(zhǎng),p.姓名 組員 ;from employee p join employee c ;on p.組別=c.組別 where c.職務(wù)=組長(zhǎng) and c.姓名!=p.姓名;order by p.組別9. 程序改錯(cuò)&根據(jù)教師表計(jì)算每個(gè)系的教師人數(shù)并將數(shù)據(jù)填入學(xué)院表CLOSE DATAUSE 學(xué)院表GO TOPDO WHILE .NOT. EOF() &錯(cuò)誤 xihao=系號(hào) SELECT COUNT(*) FROM 教師表 WHERE 教師表.系號(hào)=xihao INTO ARRAY A &錯(cuò)誤 REPLACE 教師人數(shù) WITH A1 SKIP &錯(cuò)誤ENDDO10程序改錯(cuò)open database 外匯數(shù)據(jù)use currency_sl&*Error* locate for 姓名=林詩(shī)因summ=0&*Error* do while not eof() select 現(xiàn)鈔買(mǎi)入價(jià) from rate_exchange ; where rate_exchange.外幣代碼=currency_sl.外幣代碼 into array a&*Error* summ=summ+a1 * currency_sl.持有數(shù)量 continueenddo?summ11. 程序改錯(cuò)*該命令文件用來(lái)查詢(xún)與姚小敏同一天入住賓館的每個(gè)客戶(hù)的客戶(hù)號(hào)、身份證、姓名、*工作單位。查詢(xún)結(jié)果輸出到表TABC中。*該命令文件在第3行、第5行、第7行和第8行有錯(cuò)誤,打開(kāi)該命令文件，直接在錯(cuò)誤處修改，不可*改變SQL語(yǔ)句的結(jié)構(gòu)和短語(yǔ)的順序，不允許增加、刪除或合并行。OPEN DATABASE 賓館SELECT 客戶(hù).客戶(hù)號(hào),身份證,姓名,工作單位;FROM 客戶(hù) join 入住 on 客戶(hù).客戶(hù)號(hào)=入住.客戶(hù)號(hào);WHERE 入住日期 in;( SELECT 入住日期; FROM 客戶(hù),入住;WHERE 姓名 = 姚小敏 and 客戶(hù).客戶(hù)號(hào)=入住.客戶(hù)號(hào));INTO TABLE TABC12. 程序改錯(cuò)s=1i=0do while i=0x=(-b+sqrt(z)/2*ay=(-b-sqrt(z)/2*arepl x1 with x,x2 with yelse repl note with 無(wú)實(shí)數(shù)解endifskipenddouse菜單中的編程題1給“計(jì)算”菜單編程sele AVG(數(shù)學(xué)), AVG(英語(yǔ)) from xuesheng a,chengji b where a.學(xué)號(hào)=b.學(xué)號(hào) AND 民族=漢 into arra asele AVG(數(shù)學(xué)), AVG(英語(yǔ)) from xuesheng a,chengji b where a.學(xué)號(hào)=b.學(xué)號(hào) AND 民族漢 into arra binsert into table3 values(漢,a(1),a(2)insert into table3 values(其他,b(1),b(2)2給“計(jì)算”菜單編程sele avg(數(shù)學(xué)),avg(英語(yǔ)),avg(信息技術(shù)) from chengji into arra tmpsele a.學(xué)號(hào),姓名 from xuesheng a,chengji b where a.學(xué)號(hào)=b.學(xué)號(hào) and 數(shù)學(xué)tmp(1) and 英語(yǔ)tmp(2) and 信息技術(shù)tmp(3) order by a.學(xué)號(hào) desc into table table23. 給“計(jì)算”菜單編程sele a.學(xué)號(hào),姓名,數(shù)學(xué),英語(yǔ),信息技術(shù) from xuesheng a,chengji b where a.學(xué)號(hào)=b.學(xué)號(hào) order by a.學(xué)號(hào) desc into table table3alter table table3 add 等級(jí) c(4)do while not eof()do casecase 數(shù)學(xué)=60 and 英語(yǔ)=60 and 信息技術(shù)=60 and (數(shù)學(xué)+英語(yǔ)+信息技術(shù))/3=90repl 等級(jí) with 優(yōu)case 數(shù)學(xué)=60 and 英語(yǔ)=60 and 信息技術(shù)=60 and (數(shù)學(xué)+英語(yǔ)+信息技術(shù))/3=80 and (數(shù)學(xué)+英語(yǔ)+信息技術(shù))/3=60 and 英語(yǔ)=60 and 信息技術(shù)=60 and (數(shù)學(xué)+英語(yǔ)+信息技術(shù))/3=70 and (數(shù)學(xué)+英語(yǔ)+信息技術(shù))/3=60 and 英語(yǔ)=60 and 信息技術(shù)=60 and (數(shù)學(xué)+英語(yǔ)+信息技術(shù))/3金額 sele 1 skip enddo use5.給“統(tǒng)計(jì)”菜單編程sele 組別,姓名 as 負(fù)責(zé)人,sum(金額) as 合計(jì) from employee a,orders b where a.職員號(hào)=b.職員號(hào) order by 合計(jì) desc group by 組別 into curs ls sele employee.組別,姓名 as 負(fù)責(zé)人,合計(jì) from employee,ls where employee.組別=ls.組別 and employee.職務(wù)=組長(zhǎng) order by 合計(jì) desc group by employee.組別 into dbf tabletwo6.表單界面上文本滾動(dòng)處理t=(thisform.label1.Width)thisform.label1.Left=thisform.label1.Left-10DO WHILE thisform.label1.Left=330 into curs temp1sele 考生號(hào),姓名,性別,單位 from temp1 into table four1alter table four1 add 政治成績(jī) n(5,1)alter table four1 add 外語(yǔ)成績(jī) n(5,1)alter table four1 add 高數(shù)成績(jī) n(5,1)alter table four1 add 專(zhuān)業(yè)課成績(jī) n(5,1)alter table four1 add 總成績(jī) n(5,1)sele 考生號(hào), 考試科目名,成績(jī) from kscjb a,dm b where a.考試科目=b.考試科目 into cursor temp2sele four1do while not eof() sele 成績(jī) from temp2 where 考生號(hào)=four1-考生號(hào) and 考試科目名=政治 into arra tmp replace 政治成績(jī) with tmp(1) sele 成績(jī) from temp2 where 考生號(hào)=four1-考生號(hào) and 考試科目名=外語(yǔ) into arra tnp replace 外語(yǔ)成績(jī) with tnp(1) sele 成績(jī) from temp2 where 考生號(hào)=four1-考生號(hào) and 考試科目名=高等數(shù)學(xué) into arra twp replace 高數(shù)成績(jī) with twp(1) sele 成績(jī) from temp2 where 考生號(hào)=four1-考生號(hào) and 考試科目名=專(zhuān)業(yè)課 into arra typ replace 專(zhuān)業(yè)課成績(jī) with typ(1) replace 總成績(jī) with 政治成績(jī)+外語(yǔ)成績(jī)+高數(shù)成績(jī)+專(zhuān)業(yè)課成績(jī) skipenddousesele * from four1 order by 總成績(jī) desc into table fourdelete from four1close databaseSELECT * FROM SALARYS INTO TABLE BAK_SALARYSSELECT 3USE C_SALARY1 ORDER 雇