计算机二级_VF_上机1试题及答案.doc

上机考试题（第一套）注意：以下各题所设计的数据库文件均已建立在考生工作盘的根目录下，库中已录入部分数据，在程序调试中不得改变各库的结构。一、表单设计：磁盘上已有一项目文件TEST1，利用项目TEST1中的数据表文件SK.DBF，在项目中建立一个表单文件xg.scx ，实现对表中记录文件的修改。表文件结构： SK（书号 (C)4，作者名 (C) 8 ，书名 (C) 16）表单功能要求：1、数据浏览时不能进行修改，只有点击“修改”按钮后才能进行记录修改。2、当记录指针到文件尾时，“下一条”按钮呈不可用状态。3、当记录指针到文件头时，“上一条”按钮呈不可用状态。* 运行表单时的初始状态 * 点击“修改”按钮后表单显示状态 * 点击下一条按钮到文件尾状态时 * 点击上一条按钮到文件头状态时 *一、 编写程序在项目TEST1中有考生综合成绩表KSCJK.DBF和成绩表CJ.DBF考生综合成绩表(KSCJK.DBF) 考号 姓名 学院 笔试 上机 综合 A001 张小燕 水电学院 A003 李飞 计算机学院 A002 王晓明 外语学院 A004 晓华 信息工程学院 A005 李大明 计算机学院 成绩表(CJ.DBF) 考号 笔试 上机 A001 65 60 A003 84 56 A002 78 88 A004 95 92 A005 50 49在项目TEST1中建立程序（ABC1.PRG）实现如下操作：1、 利用CJ.DBF中的笔试和上机成绩，修改KSCJK.dbf库中的笔试和上机字段2、 计算“综合”成绩（综合计算公式为笔试占60%，上机占40%）3、 显示KSCJK.DBF表所有通过考生的“考号，姓名，院系，综合”本次考试通过考生名单 = = = = = = = = = = = = = = = = = = = = = = = = 考号 姓名 院系 综合A001 张小燕 水电学院 63A002 王晓明 外语学院 82A003 李飞 计算机学院 73A004 晓华 信息工程学院 94上机考试题（第二套）注意：以下各题所设计的数据库文件均已建立在考生工作盘的根目录下，库中已录入部分数据，在程序调试中不得改变各库的结构。一、 表单设计：磁盘上已有一项目文件TEST2，利用项目TEST2中的数据表文件TSXX.DBF，在项目中建立一个表单文件TJ.SCX ，实现对表中记录文件的修改。表文件结构：TSXX（图书代码 (C)6，书名 (C) 10, 单价 (n) 5 2）表单功能要求：1、显示记录不能修改，点击“添加”按钮后才能在当前位置添加,且添加按钮呈不可用状态。2、当记录指针到文件尾时，“下一条”按钮呈不可用状态。3、当记录指针到文件头时，“上一条”按钮呈不可用状态。* 运行表单时的初始状态 * 点击“添加”按钮后表单显示状态 * 点击下一条按钮到文件尾状态时 * 点击上一条按钮到文件头状态时 *二、 编写程序（文件名abc2.prg）在项目TEST2中有学生信息表（xxk.DBF）学生信息表（xxk.DBF） 学号 姓名 年龄 籍贯 学生来源 200201 李小虎 19 上海 上海 200203 周华 18 江苏 广州 200204 王永富 18 重庆 成都 200202 杜晓晓 20 武汉 武汉 简介表（jjk.DBF）结构： 姓名 年龄 学生来源在项目TEST2中建立程序（ABC2.PRG）实现如下操作：1、 将表文件xxk.DBF的结构拷贝到数据表jjk.DBF中，表jjk.DBF中只有姓名、年龄、学生来源三个字段。2、 将年龄在18-19岁的学生数据填入jjk.DBF表中（要求：按照多工作区操作，以DO WHILE 循环完成，不得使用APPEND FROM ）3、 按下列要求显示jjk.DBF中的所有记录。表文件jjk的记录浏览 _ 姓名 年龄 学生来源 王小虎 19 上海 周华 18 广州 王永富 18 成都答案 (第一套)一、设计表单1、建立一个表单文件xg.scx (6分)2、设置form的标题为修改记录 (6分)3、在表单上设置表中3个字段的标签和文本框对象，数据引用正确 (10分)4、在表单中添加修改按钮对象和设置click事件代码 (10分) click事件代码 thisform.txt书号.readonly=.f. thisform.txt作者号.readonly=.f. thisform.txt书名.readonly=.f. mand1.enabled=.f. thisform.refresh5、在表单中添加下一条按钮对象和设置click事件代码. (7分) click事件代码 thisform.txt书号.readonly=.t. thisform.txt作者号.readonly=.t. thisform.txt书名.readonly=.t. if recno()=reccount() go bottom mand2.enabled=.f. else skip endif mand3.enabled=.t. mand1.enabled=.t. thisform.refresh 6、在表单中添加上一条按钮对象和设置click事件代码.(7分) click事件代码 thisform.txt书号.readonly=.t. thisform.txt作者号.readonly=.t. thisform.txt书名.readonly=.t. if recno()=1 go top mand3.enabled=.f. else skip -1 endif mand2.enabled=.t. mand1.enabled=.t. thisform.refresh 7、Form的init事件代码：(4分) go top thisform.txt书名.readonly=.t. thisform.txt作者号.readonly=.t. thisform.txt书名.readonly=.t.二、编程：(abc1.prg) 50分评分细则：(1)多个工作区打开表文件 (10分)(2)正确进行多表间的修改 (10分)(3)正确进行综合计算 (10分)(4)按指定格式输出记录 (15分)(5)程序结束，关闭结束 (5 分)*参考程序abc1.prgsele 1use kscjkindex on 考号 tag xh1sele 2use cjindex on 考号 tag xh2sele 1update on 考号 from b repl 笔考 with b.笔试,上机 with b.上机replace all 综合 with 笔试*0.6+上机*0.4locate for 综合=60? 考号 姓名 学院 综合 ? %do while found() ?考号,姓名,学院,综合 contenddoclose all (第二套)一、设计表单1、建立一个表单文件tj.scx (6分)2、设置form的标题为添加记录 (6分)3、在表单上设置表中3个字段的标签和文本框对象，数据引用正确 (10分)4、在表单中添加添加按钮对象和设置click事件代码 (10分) click事件代码 thisform.txt图书代码.readonly=.f. thisform.txt单价.readonly=.f. thisform.txt书名.readonly=.f. mand1.enabled=.f. insert blank thisform.refresh5、在表单中添加下一条按钮对象和设置click事件代码. (7分) click事件代码 thisform.txt图书代码.readonly=.t. thisform.txt单价.readonly=.t. thisform.txt书名.readonly=.t. if recno()=reccount() go bottom mand2.enabled=.f. else skip endif mand3.enabled=.t. mand1.enabled=.t. thisform.refresh 6、在表单中添加上一条按钮对象和设置click事件代码.(7分) click事件代码 thisform.txt图书代码.readonly=.t. thisform.txt单价.readonly=.t. thisform.txt书名.readonly=.t. if recno()=1 go top mand3.enabled=.f. else skip -1 endif mand2.enabled=.t. mand1.enabled=.t. thisform.refresh 7、Form的init事件代码：(4分) go top thisform.txt图书代码.readonly=.t. thisform.txt单价.readonly=.t. thisform.txt书名.readonly=.t.二、编程：(abc1.prg) 50分评分细则：(1)多个工作区打开表文件 (6分)(2)正确建立新表文件 (10分)(3)正确选择年龄段 (10分)(4)将相关数据正确填入记录(10分)(5)按指定格式输出记录 (10分)(5)程序结束，关闭结束 (4 分)*参考程序abc2.prgclearsele 1use xxkcopy stru to jjk fields 姓名,年龄,学生来源sele 2use jjksele 1do while not eof() if 年龄=18 .and. 年龄平均分=85LOCA FOR SUBSTR（学号，1，2）=“99”.AND.“四川”$籍贯10,10 say 学号 姓名 平均分row()+2,10 say =DO WHILE FOUND()row()+2,10 say 学号+SPAC（2）+姓名+SPAC（2）+STR（B-平均分）CONTENDDORoq()+2,10 say “=”CLOSE all二、表单设计 （50分） （1） 添加表中控件及属性设置 （10分） 标签控件：Label1.Caption=“学生信息查询”，LabelCaption=“请输入查询学号”，Label3.Caption=“学号”，Label4.Caption=“姓名”，Label5.Caption=“性别”；Label6.Caption=“出生日期”，Label7.Caption=“籍贯”，Label8.Caption=“入学分”；文本框空间“Text2的controlsource=stda.学号，Text3的controlsource=stda.姓名，Text4的controlsource=stda.性别，Text5的controlsource=stda.出生日期，Text6的controlsource=stda.籍贯，Text7的controlsource=stda.入学分；命令按钮组控件： Commandgroup1.buttomcount=2 Cmand1.caption=“确定” Cmand1.caption=“取消” “命令按钮”控件：caption=“查询结束“（2）“确定”，“取消”。当输入查询学号后，点击“确定”按钮，则显示查询结果；点击“取消”按钮，则表示重新输入查询学号。 （15分） “确定”按钮的click事件代码 （10分） loca for alltrim(stda.学号)=alltrim(thisform.text1.value) if found() thisform.refresh endif “取消”按钮的click事件代码 （5分） thisform.text1.value=” thisform.text1.setfocus thisform.refresh (3) 当点击“查询结束”按钮时，结束表单的运行。 （5分）“查询结束”按钮的click事件代码：thisform.release（）运行表单时，若没有输入查询的学号，则表单中不显示任何记录（注：显示的记录内容不能修改）（分）Form表单的init事件代码：thisform.txt学号.value“”thisform.txt姓名.value“”thisform.chk性别.value.f.thisform.txt出生日期.value“”thisform.txt籍贯.value“”thisform.txt入学分.value“”thisform.txt学号.readonly.t.thisform.txt姓名.readonly.t.thisform.chk性别. readonly.t.thisform.txt出生日期.readonly.t.thisform.txt籍贯.readonly.t.thisform.txt入学分.readonly.t.thisform.text1.setfocusthisform.refresh第六套上机试题考试磁盘中已建立项目20test1，在该项目中已有自由表“学生.DBF”、“成绩.DBF”“课程.DBF”。下面的程序设计与表单设计都应在项目中完成。 一、编写程序（文件名：ABC1.PRG），利用磁盘上已有的数据表“学生”、“成绩” 、“课程”，实现如下功能： 输入“课程号”，查询相关课程的学生姓名、课程名、成绩、班级和任课教师的 基本信息。学生.DBF 记录号 学号 姓名 性别 出生日期 班级1 A0101 李晓英 女 12/ 30/ 85 2000级电气 2 A0202 张刚 男 112385 2000级数学 3 AO2O3 吴小华 女 101085 2000级电气 4 A0204 王波 男 0S1284 2000级数学 5 AOl03 代非 男 030486 2000级电气 6 A0301 曾诚 男 060185 2000级物理成绩.DBF记录号 学号 课程号 成绩1 A0l01 D01 80.0 2 A0202 D02 90.0 3 AOl02 D03 70.0 4 A0201 D04 76.0 5 AOl03 D01 77.0 6 A0301 D02 66.0 7 A0101 D03 76.0 8 A0202 D0l 78.0 9 A102 D04 88.0 10 A1201 D03 67.0 11 A0103 D02 67.0 12 A0301 D01 82.0课程.DBF记录号 课程号 课程名 学分 任课教师1 D01 计算机应用基础 2.0 李静2 D02 高等数学 1.5 杨小勇3 D03 大学英语 4.0 庄利4 D04 普通物理 1.5 刘悔请查询输入课程号D02 _查询结果_ 姓名 课程名 成绩 班级 本任课教师 张刚 高等数学 90 2000级数学 杨小勇 曾诚 高等数学 66 2000级物理 杨小勇 代非 高等数学 67 2000级电气 杨小勇二、表单设计(文件名：表单1.SCX) 利用磁盘上已有的数据表学生.DBF和成绩.DBF,建立一张查询表单,界面如下图所示. 1.表单以文件名表单1.SCX存盘. 2.表单标题为学生查询表. 3.在表单上设置标签,组合框和表格控件. 4.表格中显示的3个栏目分别为学号.课程号.成绩 5.通过组合框中的学号选择,表格控件中数据随之改变. 第七套上机试题考试磁盘中已建立项目20test2，在该项目中已有自由表“工资.DBF”、“考试.DBF”下面的程序设计与表单设计都应在项目中完成。一、编写程序（文件名：abc2.prg），其功能是利用磁盘上已有的数据表文件工资.DBF（含有编号，姓名，基本工资等字段），考试.DBF（含有编号，姓名，考试成绩等字段），完成以下数据操作：工资.dbf 记录号 编号 姓名 出生日期 职称 基本工资 1 00001 李东 03/25/57 副教授 888.00 2 00003 高兴 10/07/48 讲师 680.00 3 00005 林晓梅 08/06/70 助教 450.00 4 00002 吴程 05/26/3