貴州大學(xué)明德學(xué)院VF程序復(fù)習(xí)題.doc

三、程序題1.編寫一程序，求1!+2!+3!+10!的和。參考程序如下：clear i=1p=1s=0do while i=10 p=p*I s=s+p i=i+1enddo?s2.編寫一程序，輸出1到100中能被5且不能被3整除的數(shù)。參考程序如下：clear i=1do while i=100 if mod(i,5)=0 and mod(i,3)0 ?i endif i=i+1enddo3.用自定義函數(shù)或子程序的方法編寫程序，輸入梯形的上底長(zhǎng)、下底長(zhǎng)和高，求梯形的面積。參考程序如下：input 請(qǐng)輸入梯形的上底 to a input 請(qǐng)輸入梯形的上底 to binput 請(qǐng)輸入梯形的上底 to hs=txmj(a,b,h)?sfunction txmjparameters aa,bb,hhss=(aa+bb)/2*hhreturn ss4.編寫一程序，輸入學(xué)生成績(jī)，判斷相應(yīng)的等級(jí)。（優(yōu)秀、良好、中等、及格、不及格）參考程序如下：clear input 請(qǐng)輸入學(xué)生的成績(jī) to xdo case case x=90 ?優(yōu)秀 case x=80 ?良好 case x=70 ?中等 case x=60 ?及格 case x=60 ?不及格endcase5. 編寫程序求出1到100之間同時(shí)滿足除3余2和除4余2的數(shù)的和。參考程序如下：clear i=1s=0do while i=100 if mod(i,3)=2 and mod(i,4)=2 s=s+i endif i=i+1enddo?sFor i= 1 to 100If i%3=2 .and. i%4=2S=s+iendifendfor6. 編寫程序求出100到800之間同時(shí)滿足除4余1和除5余3的數(shù)的個(gè)數(shù)。參考程序如下：clear i=100s=0do while i=800 if mod(i,4)=1 and mod(i,5)=3 s=s+1 endif i=i+1enddo?sFor i=100 to 800If I%4=1 and i%5=3S=s+1EndifEndfor?s7. 編寫程序，求3+6+12+24+48只和。當(dāng)累加和大于500時(shí)終止累加，輸出此時(shí)的和。參考程序如下：clear i=3s=0do while s=2005-8-1；and 訂購(gòu)日期=300 （4）查詢購(gòu)買了貨物的客戶信息。Select * from 客戶 where 客戶ID in（Select 客戶ID from 訂購(gòu) ） （5）在貨物表中增加售出量字段（N/3/0）。Alter table 貨物 add 售出量 N（3,0）2、現(xiàn)有三張表如下所示,試完成下列查詢： Student.dbf Score.dbfCourse.dbf1）. 輸出計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)和市場(chǎng)營(yíng)銷專業(yè)的學(xué)生學(xué)號(hào)、姓名、專業(yè)、課程名和成績(jī)，課程名相同時(shí)，按成績(jī)由高到低排序；課程名和成績(jī)均相同時(shí)，再按學(xué)號(hào)由小到大排序。請(qǐng)寫出相應(yīng)的SQL語(yǔ)句。SELECT score.學(xué)號(hào), 姓名, 專業(yè), 課程名, 成績(jī) FROM student, score , course WHERE score.學(xué)號(hào)=student.學(xué)號(hào) AND score.課程號(hào)=course.課程號(hào) AND 專業(yè) IN (計(jì)算機(jī)科學(xué)與技術(shù), 市場(chǎng)營(yíng)銷) ORDER BY 課程名, 成績(jī) DESC, 12）表score.dbf,表中有字段學(xué)號(hào)，成績(jī)，課程號(hào)，檢索出平均分在80分以上的每個(gè)學(xué)生的學(xué)號(hào)、總分和平均分，并將結(jié)果按學(xué)號(hào)升序排列，保存到表xx.dbf中,請(qǐng)寫出相應(yīng)的SQL語(yǔ)句。select 學(xué)號(hào), sum(成績(jī)) as 總分, avg(成績(jī)) as 平均分;from score ;group by 學(xué)號(hào) having avg(成績(jī))=80;order by 學(xué)號(hào) into table xx3）. 表score.dbf,表中有字段學(xué)號(hào)，成績(jī)，課程號(hào),查詢沒(méi)有選修課程編號(hào)為“04”或“03”并且成績(jī)不及格的學(xué)生的學(xué)號(hào)、課程號(hào)和成績(jī)。請(qǐng)寫出SQL語(yǔ)句。Select * from score where 課程號(hào) not in(“04”,”03”) and 學(xué)號(hào) in (select 學(xué)號(hào) from score where 成績(jī)60)3、基于三個(gè)表的數(shù)據(jù)，完成下列查詢。 部門數(shù)據(jù)表bmb.dbf部門代碼部門名稱負(fù)責(zé)人22網(wǎng)絡(luò)教研室李新12基礎(chǔ)教研室王雨21軟件教研室李瑪麗11教育教研室李思職工數(shù)據(jù)表zgb.dbf職工號(hào)部門號(hào)姓名性別職稱出生日期婚否工資0236511周小杰男講師12/25/70.T.863.000252812王雨女副教授03/12/60.T.1024.000102311李思男副教授07/08/61.T.1024.000103512蔡英女講師09/18/76.F.658.000252621劉紅女副教授12/15/70.T.863.000123421李瑪麗女副教授05/23/70.T.863.000245822李新男教授03/11/58.T.1146.000263622鄭然女助教06/19/80.F.569.00 工資數(shù)據(jù)表Gzb.dbf職工號(hào)基本工資津貼獎(jiǎng)金會(huì)費(fèi)公積金02365582.00213.51152.919002528662.00283.01443.3114001023628.00265.01363.1412001035546.00193.0962.738002526606.00223.01153.0312001234606.00223.01153.0312001458748.00302.01562.7416002636464.00143.0782.327001020716.00296.01473.58160（1）查詢zgb.dbf中的職稱和年齡情況。參考命令：SELECT 職稱,YEAR(DATE()-YEAR(出生日期) AS 年齡 FROM zgb（2）查詢bmb.dbf信息。參考命令：SELECT * FROM zgb（3）查詢部門代碼第一個(gè)字符為2的部門信息。參考命令：SELECT * FROM bmb WHERE LEFT(部門代碼,1)= 2（4）查詢zgb.dbf中70年（含70年）以前出生的男職工的姓名和工資。參考命令：SELECT 姓名,工資 FROM zgb WHERE YEAR(出生日期)=1970 AND 性別=男（5）查詢zgb.dbf中1960年到1970年（含1960年1970年）出生的職工姓名和出生日期。參考命令：SELECT 姓名,出生日期 FROM zgb WHERE YEAR(出生日期) BETWEEN 1960 AND 1970（6）統(tǒng)計(jì)zgb.dbf中記錄數(shù)和部門數(shù)。參考命令：SELECT COUNT(*) AS 記錄數(shù),COUNT(DISTINCT 部門號(hào)) AS 部門數(shù) FROM zgb（7）統(tǒng)計(jì)zgb.dbf中工資總和及平均工資。參考命令：SELECT SUM(工資) 工資總和,AVG(工資) 平均工資 FROM zgb（8）按部門統(tǒng)計(jì)各部門的人數(shù)、工資和、最高工資、最低工資、平均工資。參考命令：SELECT 部門號(hào),COUNT(*) 人數(shù),SUM(工資) 工資和,;MAX(工資) 最高工資,MIN(工資) 最低工資,AVG(工資) 平均工資;FROM zgb GROUP BY 部門號(hào)（9）觀察下述命令的執(zhí)行結(jié)果，體會(huì)分組依據(jù)（職稱和性別）前后順序變化的影響。參考命令：SELECT 職稱,性別,COUNT(*),AVG(工資) FROM zgb GROUP BY 職稱,性別SELECT性別,職稱,COUNT(*),AVG(工資) FROM zgb GROUP BY 性別,職稱（10）查詢zgb.dbf中副教授以上的記錄，并按工資降序排序，工資相同時(shí)按出生日期升序排序。參考命令：SELECT * FROM zgb WHERE 職稱 IN(教授,副教授) ;ORDER BY 工資 DESC,出生日期4、有下列三個(gè)表，按要求完成查詢 S.DBF（供應(yīng)商），數(shù)據(jù)項(xiàng)有SNO（供應(yīng)商代號(hào)），SNAME（供應(yīng)商名稱），CITY（供應(yīng)商所在城市）P.DBF（零件），數(shù)據(jù)項(xiàng)有PNO（零件編號(hào)），PNAME（零件名稱），WEIGHT（零件重量）， COLOR（零件顏色）SP.DBF（零件供應(yīng)），數(shù)據(jù)項(xiàng)有SNO，PNO，QTY（某供應(yīng)商供應(yīng)擁有某零件的數(shù)量）S（供應(yīng)商）SP（零件供應(yīng)記錄）SNOSNAMECITYS1精益天津S2盛行北京S3東方紅北京SNOPNOQTYS1P1300S1P2200S1P3400S2P1300S2P2400S3P2200P（零件）PNOPNAMEWEIGHTCOLORP1螺母12紅P2螺栓17灰P3螺絲刀14藍(lán)P4螺絲刀14褐1) 列出所有供應(yīng)商提供的零件種類數(shù)（須含供應(yīng)商名、零件種類數(shù)量）。select s.sno,sname,count(*) as 零件種類 from s,p,sp where s.sno=sp.sno and sp.pno=p.pno ；group by s.sno2) 求北京的供應(yīng)商的數(shù)目。select count(*) as 北京的供應(yīng)商數(shù)目 from s where city=北京3) 求不供應(yīng)P2商品的供應(yīng)商名字。select sname from s where sno not in (select sno from sp where pno=P2)4) 查詢北京供應(yīng)商供應(yīng)商品的信息。select * from p where pno in (se