VF2级上机试题及答案

VF2级上机试题及答案

第一套：

答案：二、2.1 SELECT 供应商号,工程号,数量FROM 零件,供应WHERE 供应.零件号=零件.零件号 .AND. 颜色="红" ORDER BY 数量DESC INTO TABLE SUPPLY_TEMP

2.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

三、“统计”的Click事件代码：select count(*) from book where ma(cox)=出版社into array a

form_book.text1.value=a

第三套：

答案：二、2.1 SELECT 姓名,2003-YEAR(出生日期) AS 年龄 FROM student INTO TABLE new_table1

2.2 退出的命令为：set sysmenu to default

三、查询的Click事件代码：

k=alltrim(thisform.text1.value)

use score1

locate for 学号=k

if not eof()

thisform.grid1.recordsource="select 课程名,成绩from course a,score1 b where a.课程号=b.课程号and 学号=k into cursor temp"

else

messagebox("学号不存在，请重新输入学号")

endif

第四套：

答案：一、1.1退出的命令为：set sysmenu to default

1.4 select * from score1 order by 学号,成绩desc into table mew_order

二、简单应用

1、select distinct 学号from score1 into table temp

select count(*) as 学生人数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_bak

2、update books_bak set 价格=价格*0.95

3、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_bk

2、insert into stock_bk value ("600028",4.36,4.60,5500)

3、update stock_bk set 现价=8.88 where 股票代码="600007"

4、delete from stock_bk where 股票代码="600000"

二、第一行改为：select sum(现价-买入价)*持有数量

第二行改为：in

第三行改为：where “银行” $股票简称第八套：

答案：一、1.4 update 学生set 出生日期={^1983/05/01} where 姓名=”王三风”

二、2.1 SELECT 姓名FROM 学生WHERE 学号IN (SELECT 学号FROM 选课WHERE 成绩>=70 GROUP BY 学号HA VING COUNT(*)>=3) ORDER BY 姓名INTO TABLE RESULTS

2.2 第1处改为：ALTER TABLE 学生ADD 平均成绩N(6,2)

第2处改为：DO WHILE NOT EOF()

第3处改为：REPLACE 平均成绩WITH cj[1]

第九套：

答案：二、2.1 1、select 外币名称,持有数量from rate_exchange a,currency_sl b where a.外币代码=b.外币代码and 姓名="林诗因" order by 持有数量into table rate_temp

三、查询的Click事件代码：

k=alltrim(thisform.text1.value)

thisform.grid1.recordsource="select 外币名称,现钞买入价*持有数量as 人民币数量from rate_exchange a,currency_sl b where a.外币代码=b.外币代码and 姓名=k order by 人民币数量desc into table dbfa"

第十套：

答案：二、2.1 第1处应改为：locate for 姓名="林诗因"

第2处应改为：DO WHILE NOT EOF()

第3处应改为：summ=summ+a[1] * 持有数量

2.2 退出的命令为：set sysmenu to default

三、统计的Click事件代码：

do case

case thisform.myoption.value=1

select 姓名,持有数量from currency_sl where 外币代码=(select 外币代码from rate_exchange where 外币名称="日元") into table rate_ry

case thisform.myoption.value=2

select 姓名,持有数量from currency_sl where 外币代码=(select 外币代码from rate_exchange where 外币名称="美元") into table rate_my

case thisform.myoption.value=3

select 姓名,持有数量from currency_sl where 外币代码=(select 外币代码from rate_exchange where 外币名称="欧元") into table rate_oy

endcase

第十一套：

答案：二、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)="s1"

x(2)="s2"

x(3)="s3"

统计的Click事件代码：

select sum(单价*数量) from 零件信息a,使用零件b where a.零件号=b.零件号and 项目号

=alltrim(https://www.360docs.net/doc/e310557510.html,bo1.value) into array xm

thisform.text1.value=xm(1)

第十三套：

答案：一、1.3、alter table rate_exchange rename column 买出价to 现钞卖出价

二、2.2 select 姓名,sum(基准价*持有数量) as 人民币价值from rate_exchange a,currency_sl b where a.外币代码=b.外币代码group by 姓名order by 人民币价值desc into table results

三、查询的Click事件代码：

k=thisform.text1.value

thisform.grid1.recordsource="select 外币名称,持有数量from currency_sl a,rate_exchange b where a.外币代码=b.外币代码and 姓名=k order by 持有数量into table &k"

第十四套

答案：一、1、select 外币名称,现钞买入价,卖出价from rate_exchange into table rate_ex

2、update rate_exchange set 卖出价=829.01 where 外币名称="美元"

二、2.1 Timer1.Timer事件代码：https://www.360docs.net/doc/e310557510.html,bel1.caption=time()

“暂停”的Click事件代码：thisform.timer1.interval=0

“继续”的Click事件代码：thisform.timer1.interval=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.2SELECT 会员号,姓名,年龄FROM Customer WHERE 年龄<=30 ORDER BY 年龄DESC TO FILE cut_ab

第十八套

答案：二、2.1 SELECT 课程名称,MAX(成绩) AS 分数FROM course,score WHERE course.课程编号=score.课程编号GROUP BY 课程名称INTO TABLE max

2.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 all

select avg(数学),avg(英语) from xuesheng,chengji where xuesheng.学号=chengji.学号;

and 民族="汉族" into array tmp1

select avg(数学),avg(英语) from xuesheng,chengji where xuesheng.学号=chengji.学号;

and 民族<>"汉族" into array tmp2

select 0

use table3

zap

append blank

replace 民族with "汉",数学平均分with tmp1(1),英语平均分with tmp1(2)

append blank

replace 民族with "其他",数学平均分with tmp2(1),英语平均分with tmp2(2)

close all

“返回“过程代码：

set sysmenu nosave

set sysmenu to default

第二十一套：

答案：三、“计算”过程代码：

select avg(数学),avg(英语),avg(信息技术) from chengji into array tmp

select xuesheng.学号,姓名from xuesheng,chengji where xuesheng.学号=chengji.学号and 数学>=tmp(1);

and 英语>=tmp(2) and 信息技术>=tmp(3) order by xuesheng.学号desc into table table2

“返回”过程代码：

set sysmenu nosave

set sysmenu to default

第二十二套：

答案：三、“计算”过程代码：

select xuesheng.学号,姓名,数学,英语,信息技术;

from xuesheng,chengji where xuesheng.学号=chengji.学号order by xuesheng.学号desc into table table3

alter table table3 add 等级C(4)

update table3 set 等级="优" where 数学>=60 and 英语>=60 and 信息技术>=60 and (数学+英语+信息技术)/3>=90 update table3 set 等级="良" where 数学>=60 and 英语>=60 and 信息技术>=60 and (数学+英语+信息技术)/3<90 and (数学+英语+信息技术)/3>=80

update table3 set 等级="中" where 数学>=60 and 英语>=60 and 信息技术>=60 and (数学+英语+信息技术)/3<80 and (数学+英语+信息技术)/3>=70

update table3 set 等级="及格" where 数学>=60 and 英语>=60 and 信息技术>=60 and (数学+英语+信息技术)/3<70 and (数学+英语+信息技术)/3>=60

update table3 set 等级="差" where not(数学>=60 and 英语>=60 and 信息技术>=60)

“返回”过程代码：

set sysmenu nosave

set sysmenu to default

第二十三套：

答案：clear

close all

select 0

use table3

zap

copy to ttt

select 0

use ttt

select 0

use xuesheng

index on 学号tag 学号

select 0

use chengji

set relation to 学号into xuesheng

go top

do while .not.eof()

if 数学<60

select ttt

append blank

replace 学号with xuesheng.学号,姓名with xuesheng.姓名

replace 课程名with "数学",分数with chengji.数学

select chengji

endif

if 英语<60

select ttt

append blank

replace 学号with xuesheng.学号,姓名with xuesheng.姓名

replace 课程名with "英语",分数with chengji.英语

select chengji

endif

if 信息技术<60

select ttt

append blank

replace 学号with xuesheng.学号,姓名with xuesheng.姓名

replace 课程名with "信息技术",分数with chengji.信息技术

select chengji

endif

skip

enddo

select ttt

sort on 分数,学号/d to ttt1

select table3

append from ttt1

close all

第二十四套：

答案：一、1.3 alter table 金牌榜add 奖牌总数I check 奖牌总数>=0

1.4、update 金牌榜set 奖牌总数=金牌数+银牌数+铜牌数

三、1、RowSource属性中SQL语句：select 国家名称from 国家into cursor ls

2、“生成表”的Click代码：x=thisform.list1.value

select 运动员名称,项目名称,名次from 获奖牌情况,国家where 获奖牌情况.国家代码=国家.国家代码and 国家名称=x order by 名次into table &x

第二十五套：

答案：一、3、CREA TE TABLE golden(国家代码C(3),金牌数I,银牌数I, 铜牌数I)

4、insert into golden value ("011",9,7,11)

二、1、select 国家名称,count(*) as 金牌数from 国家,获奖牌情况where 国家.国家代码=获奖牌情况.国家代码and 名次=1 group by 国家名称order by 金牌数desc,国家名称desc into table temp

2、select 国家名称from 国家into cursor ls

三、1、four.prg程序

select 国家名称,count(*) as 奖牌总数from 国家,获奖牌情况where 国家.国家代码=获奖牌情况.国家代码;

group by 国家名称order by 奖牌总数desc,国家名称into table 假奖牌榜

2、“生成表”Click事件代码：do four

3、“浏览报表”Click事件代码：report form sport_report preview

第二十六套：

答案：一、1、“打开”的Click事件代码：https://www.360docs.net/doc/e310557510.html,mand2.enabled=.t.

3、alter table 学院表add 教师人数I check 教师人数>=0

4、update teacher set 工资=8000 where 姓名="Jack"

二、1. 第一处改为：do while .not. eof() 第二处改为：into array a 第三处改为：skip

三、2、RowSource数据源SQL语句：select 系名from 学院表into cursor xx

3、“生成表”的Click事件代码：ss=thisform.list1.value

select 职工号,姓名,工资from 教师表,学院表where 教师表.系号=学院表.系号and 系名=ss order by 职工号into table &ss

第二十七套：

答案：一、1、“显示”的Click事件代码：thisform.text1.value=year(date())

2、test方法代码：https://www.360docs.net/doc/e310557510.html,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 平均工资desc

2、第1处：DO WHILE .not. EOF() 第2处：SKIP 第3处：IF flag=0

三、2、“生成表”的Click事件代码：

if thisform.check1.value=1 and thisform.check2.value=1

if thisform.optiongroup1.value=1

select 职工号,姓名,系名,工资,课程号from 教师表,学院表where 教师表.系号=学院表.系号order by 职工号into table two

else

select 职工号,姓名,系名,工资,课程号from 教师表,学院表where 教师表.系号=学院表.系号order by 职工号desc into table two

endif

else

if thisform.check1.value=1

if thisform.optiongroup1.value=1

select 职工号,姓名,系名,课程号from 教师表,学院表where 教师表.系号=学院表.系号order by 职工号into table one_x

else

select 职工号,姓名,系名,课程号from 教师表,学院表where 教师表.系号=学院表.系号order by 职工号desc into table one_x

endif

else

if thisform.optiongroup1.value=1

select 职工号,姓名,工资,课程号from 教师表,学院表where 教师表.系号=学院表.系号order by 职工号into table one_xx

else

select 职工号,姓名,工资,课程号from 教师表,学院表where 教师表.系号=学院表.系号order by 职工号desc into table one_xx

endif

endif

endif

第二十八套：

答案：一、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 歌手人数WITH A[1]

三、3. “计算”的Click事件代码：

tt=thisform.list1.value

select * from 评分表where left(歌手编号,2)=tt order by 歌手编号desc,分数into table two

第三十套：

答案：一、4、alter table 评委表alter 评委编号set check left(评委编号,2)="11"

二、1、command1事件代码：thisform.quit

2、select 歌手姓名,max(分数) as 最高分,min(分数) as 最低分,avg(分数) as 平均分from 歌手表,评分表where 歌手表.歌手编号=评分表.歌手编号group by 歌手表.歌手姓名order by 平均分desc into table result

三、2、“生成表”的Click事件代码：

if thisform.optiongroup1.value=1

select * from result order by 最高分,最低分,平均分into table six_a

else

select * from result order by 最高分desc,最低分desc,平均分desc into table six_d

endif

第三十一套：

答案：一、4、“统计”的Click事件代码：

select * from 歌手表where 歌手出生地=https://www.360docs.net/doc/e310557510.html,bo1.value into table birthplace

三、1、select 歌手姓名,avg(分数) as 得分from 歌手表,评分表where 歌手表.歌手编号=评分表.歌手编号and left(歌手表.歌手编号,2)="01" group by 歌手表.歌手编号order by 得分desc,歌手姓名desc into table final

第三十二套：

答案：一、2. use employee set order to xm

三、2、“查询统计”的Click事件代码：

set talk off

Thisform.Grid1.RecordSource="select 订单号,金额from employee join order on Employee.职员号= Order.职员号;

where employee.姓名=alltrim(thisform.text1.value) order by 金额into cursor lsb"

select lsb

go top

mi=金额

go bottom

ma=金额

average 金额to av

select tablethree

append blank

replace 姓名with alltrim(thisform.text1.value),最高金额with ma,最低金额with mi,平均金额with av

set talk on

第三十三套：

答案：一、4、select 顾客号,菜单表.菜编号,菜名,单价,数量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=0

thisform.grid1.recordsource="tabc"

第三十四套：

答案：二、“确认”的Click事件修改：第3行改为：Key2=ALLTRIM(ThisForm.Text2.V alue)

第4行改为：LOCA TE 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 &k

thisform.grid1.recordsource=k

第三十五套：

答案：二、2. select 姓名,avg(成绩) as 平均成绩from student,score where student.学号=score.学号group by student.学号order by 平均成绩desc,姓名into table avgscore

三、4、“生成数据”的Click事件代码：select * from viewsc order by 学号,成绩desc into table result

“运行报表”的Click事件代码：report form three preview

第三十六套：

答案：三、“统计”过程代码：

select 组别,sum(金额) as 合计from employee,orders where employee.职员号=orders.职员号group by 组别order by 合计desc into cursor tmp1

select 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

三、“统计”过程代码：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)

三、“统计”过程代码：

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 taba

scan

x=B^2-4*A*C

if x>=0

xx1=(-B+sqrt(x))/(2*A)

xx2=(-B-sqrt(x))/(2*A)

replace x1 with xx1,x2 with xx2

else

replace x1 with null,x2 with null,note with "无实数解"

endif

endscan

2、“查询”事件代码：select * from taba where note="无实数解" into table tabd

三、“查询”的Click事件代码：tt=ctod(alltrim(thisform.text1.value))

thisform.grid1.recordsource="select 学号,姓名,年龄,性别,班级,注册日期from 学生表where 注册日期=tt order by

年龄desc into table lsb"

USE TABE

ZAP

APPEND FROM lsb

USE

第四十套：

答案：二、1、three程序修改：

第一处改为：FROM 部门表join 销售表join 商品代码表;

第二处改为：ORDER by 1, 5 desc; 第三处改为：INTO TABLE TABA

2、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(单价*数量) as 总金额from orderitem,goods where orderitem.商品号=goods.商品号group by 订单号into table xx

close all

select 1

use order

select 2

use xx

scan

select 1

replace 总金额with xx.总金额for 订单号=xx.订单号

endscan

第四十二套：

答案：一、4. “确定”的Click事件代码：thisform.mymethod

三、“确定”的Click事件代码：

select order.订单号,客户名,签订日期,商品名,单价,数量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.订单号,签订日期,商品名,单价,数量from order,orderitem,goods;

where order.订单号=orderitem.订单号and orderitem.商品号=goods.商品号and 客户名=tt order by order.订单号,商品名into table tabletwo

三、“计算”过程代码：

select 商品号,sum(数量) as 数量from order,orderitem where order.订单号=orderitem.订单号and year(签订日

期)=2001 group by 商品号into cursor lsb

select 商品名,单价*数量as 总金额from goods left join lsb on goods.商品号=lsb.商品号order by 商品名into table tablethree

update tablethree set 总金额=0 where 总金额is null

第四十四套：

答案：一、2、alter table 课程表add unique 课程号tag temp

二、1、程序修改：

第一处改为：SELECT 课程号FROM 课程表WHERE 课程名="数据结构" INTO ARRAY a

第二处改为：use 教师表

第三处改为：SCAN for 课程号=a and 工资>=4000

第四处改为：sum=sum+1

三、表单的Load事件代码：

public a(3)

a(1)=3000

a(2)=4000

a(3)=5000

“生成”的Click事件代码：

t=https://www.360docs.net/doc/e310557510.html,bo1.value

do case

case thisform.optiongroup1.value=1

select * from 教师表where 工资>=val(t) order by 工资desc,姓名into table salary

case thisform.optiongroup1.value=2

select * from 教师表where 工资

endcase

第四十五套：

答案：一、2、程序修改将改为：DO WHILE i>=1

4、alter table 教师表alter 职工号set check left(职工号,4)="1102"

二、1、第一处改为：CREA TE TABLE 工资表(职工号C(8) primary KEY,姓名C(6) ,工资N(10,2))

第二处改为：INSERT INTO 工资表V ALUES ("11020034","宣喧",4500)

第三处改为：UPDA TE 工资表set 工资=工资*1.1 WHERE 工资<3000

第四处改为：DELETE FROM 工资表where 姓名="Thomas"

三、“取前3名”过程代码：

select top 3 系名,avg(工资) as 平均工资from 教师表,学院表where 教师表.系号=学院表.系号group by 教师表.系号order by 平均工资desc into table sa_three

“取前5名”过程代码：

select top 5 系名,avg(工资) as 平均工资from 教师表,学院表where 教师表.系号=学院表.系号group by 教师表.系号order by 平均工资desc into table sa_five

第四十六套：

答案：一、1、use employee

copy to emp_bak structure4、report form employee preview

二、2、程序修改

第2行改为：from employee p join employee c ;

第3行改为：on p.组别=c.组别where c.职务="组长" and c.姓名<>p.姓名;

三、“开始查询”的Click事件代码：

s=alltrim(thisform.textn.value)

select 订单号,客户号,签订日期,金额from order where 职员号=s order by 签订日期into table t&s

thisform.release

菜单“查询”过程代码：do form form_three

菜单“退出”过程代码：set sysmenu to default

第四十七套：

答案：一、“显示”的Click事件代码：wait str(thisform.text1.value,8,2) window

二、1、select year(出生日期) as 年份,count(*) as 人数from customers group by 年份order by 年份into table tableone

2、select * from viewone into table tabletwo或copy to tabletwo

三、&&语句1：set relation to 商品号into goods_t

&&语句2：set relation to 订单号into orderitems

&&语句3：if orderitems.数量>goods_t.库存量

&&语句4：skip -n &&语句5：replace 库存量with 库存量-orderitems.数量

第四十八套

第四十九套

答案：一、3、select * from 教师表where 工资>4500 order by 职工号to file one

二、1、程序修改

第一处改为：SELECT 系号FROM 学院表where 系名="信息管理" INTO ARRAY a

第二处改为：use 教师表

第三处改为：SCAN for 系号=a

第四处改为：num=num+1

2、copy to se

三、“生成”的Click事件代码：

if thisform.optiongroup1.value=1

select 系名,教师表.系号,avg(工资) as 平均工资from 教师表,学院表where 教师表.系号=学院表.系号and 系名=https://www.360docs.net/doc/e310557510.html,bo1.value into table salary

else

select 系名,教师表.系号,sum(工资) as 总工资from 教师表,学院表where 教师表.系号=学院表.系号and 系名=https://www.360docs.net/doc/e310557510.html,bo1.value into table salary

endif

第五十套

答案：一、3、程序改错：改为：i=i+2

二、1、程序修改

第1处改为：SELECT 系名,avg(工资) as 平均工资,max(工资) as 最高工资;

第2处改为：FROM 教师表,学院表WHERE 教师表.系号= 学院表.系号;

第3处改为：group BY 学院表.系号;

第4处改为：order BY 3 DESC,2 DESC;

第5处改为：INTO table three

三、“生成”的Click事件代码：

if thisform.pageframe1.page2.optiongroup1.value=1

select 系名,教师表.系号,avg(工资) as 平均工资from 教师表,学院表where 教师表.系号=学院表.系号and 系名=https://www.360docs.net/doc/e310557510.html,bo1.value into table salary

else

select 系名,教师表.系号,sum(工资) as 总工资from 教师表,学院表where 教师表.系号=学院表.系号and 系名=https://www.360docs.net/doc/e310557510.html,bo1.value into table salary

endif

第五十一套

答案：一、4、create table 销售明细表(顺序号c(10) primary key,日期d,商品号c(6),商品名c(10),金额n(10,2)) 三、“查询”的Click事件代码：

t=alltrim(thisform.text1.value)

thisform.grid1.recordsource="select 顾客号,顾客名,地址from cust where 顾客号=t into table tabb"

thisform.grid2.recordsource="select order.商品号,商品名,单价,数量,单价*数量as 金额from cust,order,comm where cust.顾客号=order.顾客号and order.商品号=comm.商品号and cust.顾客号=t group by order.商品号order by order.商品号into table tabc"

第五十二套

答案：一、3、delete from student where 学号="s3"

二、2、two.prg程序修改

第1处改为：SELECT 顾客号,sum(数量*单价) 应付款;

第2处改为：DO WHILE not EOF()

第3处改为：REPLACE 应付款with money

三、“查询”的Click事件代码：

t=alltrim(thisform.text1.value)

thisform.grid1.recordsource="select cust.顾客号,comm.商品号,商品名,单价,数量,单价*数量as 金额from

cust,comm,order where cust.顾客号=order.顾客号and order.商品号=comm.商品号and cust.顾客号=t order by comm.商品号into table tjb"

select sum(金额) from tjb into array x

thisform.text2.value=x(1)

第五十三套

答案：一、4、text1的InteractiveChange事件代码：

if thisform.text1.value<0

https://www.360docs.net/doc/e310557510.html,mand1.enabled=.f.

endif

三、“统计”过程代码：

select 姓名as 客户名,count(*) 订单数from customers,orders where customers.客户号=orders.客户号and year(签订日期)=2007 group by 姓名order by 订单数desc,姓名into table tabletwo

“返回”过程代码：

set sysmenu nosave

set sysmenu to default