2013年计算机二级VF考试上机精选题及答案（1）

　　基本操作题答案：

　　1、“显示”命令按钮的Click事件代码为：thisform.text1.value=year(date())

　　2、test的事件代码为：thisform.command1.enabled=.f.

　　4、程序three.prg的内容如下：alter table 教师表 alter 职工号 set check LEFT(职工号,3)="110"

　　简单应用题答案： 1、程序four.prg的内容如下：由于阅卷系统问题，本题必须严格照抄，包括行数。

　　create sql view salary as;

　　select 教师表.系号,AVG(教师表.工资) AS 平均工资;

　　FROM 课程管理!教师表;

　　GROUP BY 教师表.系号;

　　ORDER BY 2 DESC

　　2、第一处加：do while not eof(),由于阅卷系统问题，not前后不能带. 第二处加：endif，第三处加：skip，第四处加：if flag=0

　　综合应用题答案：“生成表”命令按钮的CLICK事件如下：

　　Clos all

　　a=thisform.check1.value

　　b=thisform.check2.value

　　c=thisform.optiongroup1.option1.value

　　d=thisform.optiongroup1.option2.value

　　if a=1 and b=1

　　if c=1

　　select 职工号,姓名,系名,工资,课程号 from教师表,学院表 where 教师表.系号=学院表.系号;

　　order by 职工号 into table two

　　else

　　if d=1

　　select 职工号,姓名,系名,工资,课程号 from教师表,学院表 where 教师表.系号=学院表.系号;

　　order by 职工号 desc into table two

　　endif

　　endif

　　endif

　　if a=1 and b=0

　　if c=1

　　select 职工号,姓名,系名,课程号 from教师表,学院表 where 教师表.系号=学院表.系号;

　　order by 职工号 into table one_x

　　else

　　if d=1

　　select 职工号,姓名,系名,课程号 from教师表,学院表 where 教师表.系号=学院表.系号;

　　order by 职工号 desc into table one_x

　　endif

　　endif

　　endif

　　if a=0 and b=1

　　if c=1

　　select 职工号,姓名,工资,课程号 from教师表,学院表 where 教师表.系号=学院表.系号;

　　order by 职工号 into table one_xx

　　else

　　if d=1

　　select 职工号,姓名,工资,课程号 from教师表,学院表 where 教师表.系号=学院表.系号;

　　order by 职工号 desc into table one_xx

　　endif

　　endif

　　endif