三、程序填空题
1． 以下是计算机等级考试查分程序，请完成此程序。已有库文件STUDENT（准考证号，
身份证号，姓名，成绩）
use student index xm &&xm为表STUDENT的姓名字段的索引文件 tc=”Y”
do while tc<>”Y”
acce “请输入要查询的准考证号” to num
① if found() disp off else
? “对不起，无此考号” ②
wait “继续查询吗？y/n” to tc ③ enddo use
2. 学生.DBF(学号,姓名,性别,出生日期,班级) 成绩.DBF(学号,课程号,成绩)
课程.DBF(课程号,课程名,学分,任课教师)
三个表已存在，根据课程号查询姓名、课程名、成绩,班级、任课教师，并统计任课两门以上的教师人数。
Kch=space(10)
@ 5,5 say “请输入课程号” get kch read
SELECT 学生.姓名，课程.课程名，成绩.成绩，学生.班级，课程.任课教师； ① INNER JOIN 成绩； ON ② ； ON 学生.学号 = 成绩.学号； WHERE 成绩.课程号 = kch
SELECT 课程.课程名，课程.任课教师，count（*）as 门数； FROM 课程；
③ 课程.任课教师； ORDER BY 课程.课程名； ④ abcd.dbf
select count（*）from ⑤ where 门数＞＝2
3．如图所示的菜单，菜单栏有三个菜单，其中“新建”菜单下有子菜单，单击退出菜单时
退出用户菜单返回系统菜单。
（1）设计好菜单的内容后将菜单以文件名MENU1保存，此时文件扩展名为 ① 。
（2）完成菜单的全部设计后，运行菜单可以用命令DO ② 。
（3）单击“退出”菜单，可以恢复系统菜单。则退出菜单的命令是 ③ 。 4．设计如下表单，运行表单时显示标签文字的颜色为红色，点击相应的命令按钮时，标签
文字按指定的颜色改变。假设：相关属性都设置完成。
form 的 ① 事件代码设置如下： thisform.labell.forecolor=rgb(255.00.00) “蓝色”按钮的Click事件代码设置如下： thisform.labell..visible=.t.
②
“隐藏” 按钮的Click事件代码设置如下：
③
在“结束” 按钮的Click事件代码设置如下：
④