VF2級上機試題及答案.doc

VF2級上機試題及答案第一套：答案：二、2.1 SELECT 供應商號,工程號,數(shù)量 FROM 零件,供應 WHERE 供應.零件號=零件.零件號 .AND. 顏色=紅 ORDER BY 數(shù)量 DESC INTO TABLE SUPPLY_TEMP2.2 rightClick事件代碼：do menu_quick.mpr with this三、“查詢”的Click事件代碼：thisform.grid1.recordSource=select 零件名,顏色,重量 from 零件,供應 where 零件.零件號=供應.零件號 and 工程號=J4 order by 零件名 into table pp第二套：答案：二、2.1 select 書名,作者,價格 from book a,loans b,borrows c where a.圖書登記號=b.圖書登記號 and b.借書證號=c.借書證號 and c.姓名=田亮 order by 價格 desc into table book_temp三、“統(tǒng)計”的Click事件代碼：select count(*) from book where ma(cox)=出版社into array aform_book.text1.value=a第三套：答案：二、2.1 SELECT 姓名,2003-YEAR(出生日期) AS 年齡 FROM student INTO TABLE new_table12.2 退出的命令為：set sysmenu to default三、查詢的Click事件代碼：k=alltrim(thisform.text1.value)use score1locate for 學號=kif not eof()thisform.grid1.recordsource=select 課程名,成績 from course a,score1 b where a.課程號=b.課程號 and 學號=k into cursor temp elsemessagebox(學號不存在，請重新輸入學號)endif第四套：答案：一、1.1退出的命令為：set sysmenu to default1.4 select * from score1 order by 學號,成績 desc into table mew_order二、簡單應用1、select distinct 學號 from score1 into table temp select count(*) as 學生人數(shù) from temp into table new_table三、綜合應用查詢的Click事件代碼：select 課程名,max(成績) as 最高分 from course a,score1 b where a.課程號=b.課程號 group by a.課程號 order by 課程名 into table new_table3 第五套：答案：一、1.3 INSERT INTO score1 (學號,課程號,成績)VALUE(993503433, 0001, 99)三、“平均”過程代碼：select 課程名,avg(成績) as 平均成績 from score1 a,course b where a.課程號=b.課程號;group by 課程名 order by 課程名 into table new_table32第六套：答案：二、2、select 作者姓名,所在城市 from authors a,books b where a.作者編號=b.作者編號 group by b.作者編號 having count(*)=3 order by 作者姓名 into table new_view4三、1、select * from books where 書名 like (計算機%) into table books_bak2、update books_bak set 價格=價格*0.953、select top 1 出版單位,avg(價格) as 均價 from books_bak group by 出版單位 having 均價=25 order by 均價 into table new_table4第七套答案：一、1、select * from stock_sl into table stock_bk2、insert into stock_bk value (600028,4.36,4.60,5500)3、update stock_bk set 現(xiàn)價=8.88 where 股票代碼=6000074、delete from stock_bk where 股票代碼=600000二、第一行改為：select sum(現(xiàn)價-買入價)*持有數(shù)量第二行改為：in第三行改為：where “銀行” $股票簡稱第八套：答案：一、1.4 update 學生 set 出生日期=1983/05/01 where 姓名=”王三風”二、2.1 SELECT 姓名 FROM 學生 WHERE 學號 IN (SELECT 學號 FROM 選課 WHERE 成績=70 GROUP BY 學號 HAVING COUNT(*)=3) ORDER BY 姓名 INTO TABLE RESULTS2.2 第1處改為：ALTER TABLE 學生 ADD 平均成績 N(6,2) 第2處改為：DO WHILE NOT EOF()第3處改為：REPLACE 平均成績 WITH cj1第九套：答案：二、2.1 1、select 外幣名稱,持有數(shù)量 from rate_exchange a,currency_sl b where a.外幣代碼=b.外幣代碼 and 姓名=林詩因 order by 持有數(shù)量 into table rate_temp三、查詢的Click事件代碼：k=alltrim(thisform.text1.value)thisform.grid1.recordsource=select 外幣名稱,現(xiàn)鈔買入價*持有數(shù)量 as 人民幣數(shù)量 from rate_exchange a,currency_sl b where a.外幣代碼=b.外幣代碼 and 姓名=k order by 人民幣數(shù)量 desc into table dbfa第十套：答案：二、2.1 第1處應改為：locate for 姓名=林詩因 第2處應改為：DO WHILE NOT EOF() 第3處應改為：summ=summ+a1 * 持有數(shù)量2.2 退出的命令為：set sysmenu to default三、統(tǒng)計的Click事件代碼：do casecase thisform.myoption.value=1select 姓名,持有數(shù)量 from currency_sl where 外幣代碼=(select 外幣代碼 from rate_exchange where 外幣名稱=日元) into table rate_rycase thisform.myoption.value=2select 姓名,持有數(shù)量 from currency_sl where 外幣代碼=(select 外幣代碼 from rate_exchange where 外幣名稱=美元) into table rate_mycase thisform.myoption.value=3select 姓名,持有數(shù)量 from currency_sl where 外幣代碼=(select 外幣代碼 from rate_exchange where 外幣名稱=歐元) into table rate_oyendcase第十一套：答案：二、2.1 update 教師 set 新工資=原工資*1.2 where 職稱=教授update 教師 set 新工資=原工資 where 職稱!=教授insert into 教師 value (林紅,講師,10000,10200)三、查詢的Click事件代碼：thisform.grid1.recordsource=select 姓名,課程名稱,成績 from 學生 a,選課 b,課程 c where a.學號=b.學號 and b.課程號=c.課程號 and 系=6 into cursor temp第十二套：答案：二、1、select a.項目號,項目名,c.零件號,零件名稱 from 項目信息 a,使用零件 b,零件信息 c where a.項目號=b.項目號 and b.零件號=c.零件號 order by a.項目號 desc,c.零件號 into table item_temp三、綜合應用表單form_item的load事件代碼public x(3)x(1)=s1x(2)=s2x(3)=s3統(tǒng)計的Click事件代碼：select sum(單價*數(shù)量) from 零件信息 a,使用零件 b where a.零件號=b.零件號 and 項目號=alltrim(bo1.value) into array xmthisform.text1.value=xm(1)第十三套：答案：一、1.3、alter table rate_exchange rename column 買出價 to 現(xiàn)鈔賣出價二、2.2 select 姓名,sum(基準價*持有數(shù)量) as 人民幣價值 from rate_exchange a,currency_sl b where a.外幣代碼=b.外幣代碼 group by 姓名 order by 人民幣價值 desc into table results三、查詢的Click事件代碼：k=thisform.text1.valuethisform.grid1.recordsource=select 外幣名稱,持有數(shù)量 from currency_sl a,rate_exchange b where a.外幣代碼=b.外幣代碼 and 姓名=k order by 持有數(shù)量 into table &k第十四套答案：一、1、select 外幣名稱,現(xiàn)鈔買入價,賣出價 from rate_exchange into table rate_ex2、update rate_exchange set 賣出價=829.01 where 外幣名稱=美元二、2.1 Timer1.Timer事件代碼：thisform.label1.caption=time() “暫?！钡腃lick事件代碼：erval=0 “繼續(xù)”的Click事件代碼：erval=500第十五套：答案：二、2.1 第一處為：use customer 第二處為：scan for 所在地=“北京” 2.2 select 公司名稱,訂單編號,金額,送貨方式 from customer a,order b where a.客戶編號=b.客戶編號 order by 公司名稱,訂單編號 into table results三、“退出”的代碼：myform.release Load事件為：do mymenu.mpr第十六套：答案：一、1.1 indert into 零件信息 value(“p7”,”PN7”,1020) 1.2 delete from 零件信息 where 單價600 1.3 update 零件信息 set 單價=1090 where 零件號=”p4”二、2.1 第一行改為：select 零件名稱 from 零件信息 where 零件號 in 第二行改為：group by 零件號 having count(項目號)=3 第三行改為：to file results第十七套：答案：二、2.2 SELECT 會員號,姓名,年齡 FROM Customer WHERE 年齡=30 ORDER BY 年齡 DESC TO FILE cut_ab第十八套答案：二、2.1 SELECT 課程名稱,MAX(成績) AS 分數(shù) FROM course,score WHERE course.課程編號=score.課程編號 GROUP BY 課程名稱 INTO TABLE max2.2 SELECT 課程名稱 FROM course WHERE 課程編號 IN; (SELECT 課程編號 FROM score WHERE 成績60) TO FILE new三、保存的Click事件代碼：thisform.grid1.recordsource=SELECT Student.學號, Student.姓名, Student.院系, Course.課程名稱,Score.成績; FROM student,score,course where Score.課程編號 = Course.課程編號 and Student.學號 = Score.學號; ORDER BY Student.學號 INTO TABLE results第十九套：答案：一、1.3 alter table student add unique 學號 tag 學號二、2.2 第一處改為：store 0 to x,s1,s2,s3 第二處改為：x=val(thisform.text1.value) 第三處改為：if mod(x,3)=0三、“確定”的Click事件代碼：select 姓名,課程名稱,考試成績 from student join course join score on course.課程編號=score.課程編號; on student.學號=score.學號 where &cn order by 課程名稱,考試成績 desc into table zonghe第二十套：答案：一、1.3 “ok”事件代碼：thisform.mymethod三、“計算“過程代碼close allselect avg(數(shù)學),avg(英語) from xuesheng,chengji where xuesheng.學號=chengji.學號;and 民族=漢族 into array tmp1select avg(數(shù)學),avg(英語) from xuesheng,chengji where xuesheng.學號=chengji.學號;and 民族漢族 into array tmp2select 0use table3zapappend blank replace 民族 with 漢,數(shù)學平均分 with tmp1(1),英語平均分 with tmp1(2)append blankreplace 民族 with 其他,數(shù)學平均分 with tmp2(1),英語平均分 with tmp2(2)close all “返回“過程代碼：set sysmenu nosaveset sysmenu to default第二十一套：答案：三、“計算”過程代碼：select avg(數(shù)學),avg(英語),avg(信息技術) from chengji into array tmpselect xuesheng.學號,姓名 from xuesheng,chengji where xuesheng.學號=chengji.學號 and 數(shù)學=tmp(1);and 英語=tmp(2) and 信息技術=tmp(3) order by xuesheng.學號 desc into table table2“返回”過程代碼：set sysmenu nosaveset sysmenu to default第二十二套：答案：三、“計算”過程代碼：select xuesheng.學號,姓名,數(shù)學,英語,信息技術;from xuesheng,chengji where xuesheng.學號=chengji.學號 order by xuesheng.學號 desc into table table3alter table table3 add 等級 C(4)update table3 set 等級=優(yōu) where 數(shù)學=60 and 英語=60 and 信息技術=60 and (數(shù)學+英語+信息技術)/3=90 update table3 set 等級=良 where 數(shù)學=60 and 英語=60 and 信息技術=60 and (數(shù)學+英語+信息技術)/3=80 update table3 set 等級=中 where 數(shù)學=60 and 英語=60 and 信息技術=60 and (數(shù)學+英語+信息技術)/3=70 update table3 set 等級=及格 where 數(shù)學=60 and 英語=60 and 信息技術=60 and (數(shù)學+英語+信息技術)/3=60 update table3 set 等級=差 where not(數(shù)學=60 and 英語=60 and 信息技術=60)“返回”過程代碼：set sysmenu nosaveset sysmenu to default第二十三套：答案：clearclose allselect 0use table3zapcopy to tttselect 0use tttselect 0use xueshengindex on 學號 tag 學號select 0use chengjiset relation to 學號 into xueshenggo topdo while .not.eof()if 數(shù)學60 select ttt append blank replace 學號 with xuesheng.學號,姓名 with xuesheng.姓名 replace 課程名 with 數(shù)學,分數(shù) with chengji.數(shù)學 select chengjiendifif 英語60 select ttt append blank replace 學號 with xuesheng.學號,姓名 with xuesheng.姓名 replace 課程名 with 英語,分數(shù) with chengji.英語 select chengjiendifif 信息技術=01.4、update 金牌榜 set 獎牌總數(shù)=金牌數(shù)+銀牌數(shù)+銅牌數(shù)三、1、RowSource屬性中SQL語句：select 國家名稱 from 國家 into cursor ls2、“生成表”的Click代碼：x=thisform.list1.valueselect 運動員名稱,項目名稱,名次 from 獲獎牌情況,國家 where 獲獎牌情況.國家代碼=國家.國家代碼 and 國家名稱=x order by 名次 into table &x第二十五套：答案：一、3、CREATE TABLE golden(國家代碼 C(3),金牌數(shù) I,銀牌數(shù) I, 銅牌數(shù) I)4、insert into golden value (011,9,7,11)二、1、select 國家名稱,count(*) as 金牌數(shù) from 國家,獲獎牌情況 where 國家.國家代碼=獲獎牌情況.國家代碼 and 名次=1 group by 國家名稱 order by 金牌數(shù) desc,國家名稱 desc into table temp2、select 國家名稱 from 國家 into cursor ls三、1、four.prg程序select 國家名稱,count(*) as 獎牌總數(shù) from 國家,獲獎牌情況 where 國家.國家代碼=獲獎牌情況.國家代碼; group by 國家名稱 order by 獎牌總數(shù) desc,國家名稱 into table 假獎牌榜2、“生成表”Click事件代碼：do four3、“瀏覽報表”Click事件代碼：report form sport_report preview第二十六套：答案：一、1、“打開”的Click事件代碼：mand2.enabled=.t.3、alter table 學院表 add 教師人數(shù) I check 教師人數(shù)=04、update teacher set 工資=8000 where 姓名=Jack二、1. 第一處改為：do while .not. eof() 第二處改為：into array a 第三處改為：skip三、2、RowSource數(shù)據(jù)源SQL語句：select 系名 from 學院表 into cursor xx3、“生成表”的Click事件代碼：ss=thisform.list1.valueselect 職工號,姓名,工資 from 教師表,學院表 where 教師表.系號=學院表.系號 and 系名=ss order by 職工號 into table &ss第二十七套：答案：一、1、“顯示”的Click事件代碼：thisform.text1.value=year(date()2、test方法代碼：mand1.enabled=.f.4、alter table 教師表 alter 職工號 set check left(職工號,3)=110二、1、create view salary as select 系號,avg(工資) as 平均工資 from 教師表 group by 系號 order by 平均工資 desc2、第1處：DO WHILE .not. EOF() 第2處：SKIP 第3處：IF flag=0三、2、“生成表”的Click事件代碼：if thisform.check1.value=1 and thisform.check2.value=1if thisform.optiongroup1.value=1select 職工號,姓名,系名,工資,課程號 from 教師表,學院表 where 教師表.系號=學院表.系號 order by 職工號 into table twoelseselect 職工號,姓名,系名,工資,課程號 from 教師表,學院表 where 教師表.系號=學院表.系號 order by 職工號 desc into table twoendifelseif thisform.check1.value=1 if thisform.optiongroup1.value=1 select 職工號,姓名,系名,課程號 from 教師表,學院表 where 教師表.系號=學院表.系號 order by 職工號 into table one_xelse select 職工號,姓名,系名,課程號 from 教師表,學院表 where 教師表.系號=學院表.系號 order by 職工號 desc into table one_x endifelseif thisform.optiongroup1.value=1 select 職工號,姓名,工資,課程號 from 教師表,學院表 where 教師表.系號=學院表.系號 order by 職工號 into table one_xx else select 職工號,姓名,工資,課程號 from 教師表,學院表 where 教師表.系號=學院表.系號 order by 職工號 desc into table one_xx endifendifendif第二十八套：答案：一、4、select 客戶號,身份證,姓名,工作單位 from 客戶 where 性別=男 into table taba二、2. 第3行改為：FROM 客戶 JOIN 入住 on 客戶.客戶號=入住.客戶號;第5行改為：( SELECT 入住日期; 第7行改為：WHERE 客戶.客戶號=入住.客戶號 and 姓名 = 姚小敏);第8行改為：INTO TABLE TABC三、“查詢”的Click事件代碼：x=alltrim(thisform.text1.value)select 客戶.客戶號,身份證,姓名,工作單位,入住.客房號,類型名,價格,退房日期 from 客戶,入住,客房,房價;where 客戶.客戶號=入住.客戶號 and 入住.客房號=客房.客房號 and 客房.類型號=房價.類型號 and 退房日期=ctod(x) order by 價格 desc into table tabd第二十九套：答案：一、3、create table 分組情況表 (組號 C(2),組名 C(10)4、insert into 分組情況表 value(01,通俗唱法)二、1. 第1處：DO WHILE NOT EOF() 第2處：SELECT COUNT(*) FROM 歌手表 WHERE LEFT(歌手表.歌手編號,2)=zuhao INTO ARRAY A第3處：REPLACE 歌手人數(shù) WITH A1三、3. “計算”的Click事件代碼：tt=thisform.list1.valueselect * from 評分表 where left(歌手編號,2)=tt order by 歌手編號 desc,分數(shù) into table two第三十套：答案：一、4、alter table 評委表 alter 評委編號 set check left(評委編號,2)=11二、1、command1事件代碼：thisform.quit2、select 歌手姓名,max(分數(shù)) as 最高分,min(分數(shù)) as 最低分,avg(分數(shù)) as 平均分 from 歌手表,評分表 where 歌手表.歌手編號=評分表.歌手編號 group by 歌手表.歌手姓名 order by 平均分 desc into table result三、2、“生成表”的Click事件代碼：if thisform.optiongroup1.value=1select * from result order by 最高分,最低分,平均分 into table six_aelseselect * from result order by 最高分 desc,最低分 desc,平均分 desc into table six_dendif第三十一套：答案：一、4、“統(tǒng)計”的Click事件代碼：select * from 歌手表 where 歌手出生地=bo1.value into table birthplace三、1、select 歌手姓名,avg(分數(shù)) as 得分 from 歌手表,評分表 where 歌手表.歌手編號=評分表.歌手編號 and left(歌手表.歌手編號,2)=01 group by 歌手表.歌手編號 order by 得分 desc,歌手姓名 desc into table final第三十二套：答案：一、2. use employee set order to xm三、2、“查詢統(tǒng)計”的Click事件代碼：set talk offThisform.Grid1.RecordSource=select 訂單號,金額 from employee join order on Employee.職員號 = Order.職員號; where employee.姓名=alltrim(thisform.text1.value) order by 金額 into cursor lsbselect lsbgo topmi=金額go bottomma=金額average 金額 to avselect tablethreeappend blankreplace 姓名 with alltrim(thisform.text1.value),最高金額 with ma,最低金額 with mi,平均金額 with avset talk on第三十三套：答案：一、4、select 顧客號,菜單表.菜編號,菜名,單價,數(shù)量 from 菜單表,顧客點菜表;where 菜單表.菜編號=顧客點菜表.菜編號 and 單價=40 order by 菜單表.菜編號 desc into table taba二、2、選項按鈕組的Click事件代碼：thisform.list1.rowsource= thisform.optiongroup1.value 三、“查詢”的Click事件代碼：tt=alltrim(thisform.text1.value)select 顧客序號,顧客姓名,單位,消費金額 from 結帳表 where 結帳日期=CTOD(tt) order by 消費金額 desc into table tabc“顯示”的Click事件代碼：thisform.grid1.recordsourcetype=0thisform.grid1.recordsource=tabc第三十四套：答案：二、“確認”的Click事件修改：第3行改為：Key2=ALLTRIM(ThisForm.Text2.Value) 第4行改為：LOCATE ALL FOR USER=Key1 第12行改為：ThisForm.Release三、確定的Click事件代碼：k=alltrim(thisform.text1.value)select 年度,sum(銷售額) as 銷售額,sum(銷售額)-sum(工資額) as 利潤 from dept a,sell b;where a.部門號=b.部門號 and 部門名=k group by 年度 order by 年度 into table &kthisform.grid1.recordsource=k第三十五套：答案：二、2. select 姓名,avg(成績) as 平均成績 from student,score where student.學號=score.學號 group by student.學號 order by 平均成績 desc,姓名 into table avgscore三、4、“生成數(shù)據(jù)”的Click事件代碼： select * from viewsc order by 學號,成績 desc into table result “運行報表”的Click事件代碼：report form three preview第三十六套：答案：三、“統(tǒng)計”過程代碼：select 組別,sum(金額) as 合計 from employee,orders where employee.職員號=orders.職員號 group by 組別 order by 合計 desc into cursor tmp1select employee.組別,姓名 as 負責人, 合計 from employee,tmp1;where employee.組別=tmp1.組別 and 職務=組長 group by employee.組別 order by 合計 desc into table tabletwo第三十七套：答案：二、1、“確定”的Click事件代碼修改：第一處改為：set century on第二處改為：va=thisform.text1.value 第三處改為：thisform.grid1.recordSource=st三、“統(tǒng)計”過程代碼：select year(簽訂日期) as 年份,month(簽訂日期) as 月份,sum(金額) as 合計 from orders;where 簽訂日期 is not null group by 年份,月份 order by 年份 desc,月份 into table tabletwo第三十八套：答案：二、1、“顯示”Click事件代碼修改： 第1處：FOR i=1 TO thisform.List1.ListCount 第2處：s=thisform.List1.List(i) 第3處：s=s+,+thisform.List1.List(i)三、“統(tǒng)計”過程代碼：select customer.客戶號,客戶名,sum(金額) as 合計 from customer,orders;where customer.客戶號=orders.客戶號 group by customer.客戶號 order by 合計 desc into table tabletwo第三十九套：答案：一、2、update tabb set 日期=2005-10-01 3、select distinct * from taba into table tabc二、1、four程序代碼：use tabascanx=B2-4*A*Cif x=0xx1=(-B+sqrt(x)/(2*A)xx2=(-B-sqrt(x)/(2*A)replace x1 with xx1,x2 with xx2elsereplace x1 with null,x2 with null,note with 無實數(shù)解endifendscan2、“查詢”事件代碼：select * from taba where note=無實數(shù)解 into table tabd三、“查詢”的Click事件代碼：tt=ctod(alltrim(thisform.text1.value)thisform.grid1.recordsource=select 學號,姓名,年齡,性別,班級,注冊日期 from 學生表 where 注冊日期=tt order by 年齡 desc into table lsbUSE TABEZAPAPPEND FROM lsbUSE第四十套：答案：二、1、three程序修改：第一處改為： FROM 部門表 join 銷售表 join 商品代碼表 ;第二處改為： ORDER by 1, 5 desc; 第三處改為： INTO TABLE TABA2、select 部門表.部門號,部門名,sum(一季度利潤) as 一季度利潤,sum(二季度利潤) as 二季度利潤,sum(三季度利潤) as 三季度利潤,sum(四季度利潤) as 四季度利潤;from 部門表,銷售表 where 部門表.部門號=銷售表.部門號 and 年度=2005 group by 銷售表.部門號 order by 部門表.部門號 into table account三、“查詢”的Click事件代碼：t=alltrim(thisform.text1.value)tt=alltrim(thisform.text2.value)thisform.grid1.recordsource=select 銷售表.商品號,商品名,一季度利潤,二季度利潤,三季度利潤,四季度利潤 from 銷售表,商品代碼表 where 銷售表.商品號=商品代碼表.商品號 and 部門號=t and 年度=tt into table xs&t第四十一套：答案：一、4、“確定”事件代碼：this.parent.height = val(this.parent.text1.value)三、“計算”過程代碼alter table order add 總金額 N(7,2)select 訂單號,sum(單價*數(shù)量) as 總金額 from orderitem,goods where orderitem.商品號=goods.商品號 group by 訂單號 into table xxclose allselect 1use order select 2use xxscanselect 1replace 總金額 with xx.總金額 for 訂單號=xx.訂單號endscan第四十二套：答案：一、4. “確定”的Click事件代碼：thisform.mymethod三、“確定”的Click事件代碼：select order.訂單號,客戶名,簽訂日期,商品名,單價,數(shù)量 from order,orderitem,goods;where order.訂單號=orderitem.訂單號 and orderitem.商品號=goods.商品號 and orderitem.商品號=alltrim(thisform.text1.value) order by order.訂單號 into table tablethree第四十三套：答案：二、2、“確定”的Click事件代碼：tt=alltrim(thisform.text1.value)select order.訂單號,簽訂日期,商品名,單價,數(shù)量 from order,orderitem,goods;where order.訂單號=orderitem.訂單號 and orderitem.商品號=goods.商品號 and 客戶名=tt order by order.訂單號,商品名 into table tabletwo三、“計算”過程代碼：select 商品號,sum(數(shù)量) as 數(shù)量 from order,orderitem where order.訂單號=orderitem.訂單號 and year(簽訂日期)=2001 group by 商品號 into cursor lsbselect 商品名,單價*數(shù)量 as 總金額 from goods left join lsb on goods.商品號=lsb.商品號 order by 商品名 into table tablethreeupdate tablethree set 總金額=0 where 總金額 is null第四十四套：答案：一、2、alter table 課程表 add unique 課程號 tag temp二、1、程序修改：第一處改為：SELECT 課程號 FROM 課程表 WHERE 課程名=數(shù)據(jù)結構 INTO ARRAY a第二處改為：use 教師表第三處改為：SCAN for 課程號=a and 工資=4000第四處改為：sum=sum+1三、表單的Load事件代碼：public a(3)a(1)=3000a(2)=4000a(3)=5000“生成”的Click事件代碼：t=bo1.valuedo casecase thisform.optiongroup1.value=1select * from 教師表 where 工資=val(t) order by 工資 desc,姓名 into table salarycase thisform.optiongroup1.value=2select * from 教師表 where 工資=14、alter table 教師表 alter 職工號 set check left(職工號,4)=