1、上机操作题模拟试卷 33及答案与解析 一、基本操作题 1 设计一个表单 my完成以下功能： (1)表单上有 1个标签，表单运行时标签的 Caption属性显示为系统时间，且表单运行期间标签标题动态显示当前系统时间。标签标题字体大小为 25，布局为 “中央 ”，字体颜色为 “红色 ”，标签 “透明 ”。 (2)表单上另有 3个命令按钮，标题分别为 “蓝色 ”， “绿色 ”和 “退出 ”。当单击 “蓝色 ”命令按钮时，表单背景颜色变为蓝色；当单击 “绿色 ”命令按钮时，表单背景颜色变为绿色；单击 “退出 ”命令按钮表单退出。表单的 Name属性和表单 文件名均设置为 my，标题为 “变色时钟 ”。
2、 二、简单应用题 2 (1)使用 “一对多表单向导 ”生成一个名为 sell的表单。要求从父表 de中选择所有字段，从子表 PT表中选择所有字段，使用 “部门号 ”建立两表之间的关系，样式为“阴影式 ”；按钮类型为 “图片按钮 ”；排序字段为部门编号 (升序 )；表单标题为 “数据维护 ”。 (2)在考生文件夹下打开命令文件 asp.pr8，该命令文件用来查询各部门的分年度的“部门编号 ”、 “部门名称 ”、 “年度 ”、 “全年销售额 ”、 “全年利润 ”和 “利润率 ” (全年利润 /全年销售额 )，查询结果先 按 “年度 ”升序、再按 “利润率 ”降序排序，并存储到li表中。 三、综合应
3、用题 3 在考生文件夹下有学生管理数据库 books，数据库中有 score表 (学号、物理、高数、英语和学分查询表结构 )，其中前 4项已有数据。 请编写符合下列要求的程序并运行程序： 设计一个名为 myform的表单，表单中有两个命令按钮，按钮的名称分别为cmdyes和 cmdno，标题分别为 “计算 ”和 “关闭 ”。程序运行时，单击 “计算 ”按钮应完成下列操作： 计算每一个学生的总学分并存入对应的学分字段。学分的计算方法是：物理 60分以上 (包括 60分 ) 2学分，否则 0分；高数 60分以上 (包括 60分 )3学分，否则 0分；英语 60分以上 (包括 60分 )4学分，否则
4、 0分。 根据上面的计算结果，生成一个新的表 xf(要求表结构的字段类型与 score表对应字段的类型一致 )，并且按 “学分 ”升序排序，如果 “学分 ”相等，则按 “学号 ”降序排序。单击 “退出 ”按钮，程序终止运行。 上机操作题模拟试卷 33答案与解析 一、基本操作题 1 【正确答案】 (1)从菜单栏里单击 “文件 ”并选择 “新建 ”，或直接单击工具栏上的“新建 ”图标，在弹出的对话框中文件 类型选择 “表单 ”，单击对话框右边的 “新建文件 ”图标，弹出了 Form1的表单设计器，单击工具栏上的 “保存 ”图标，以 my命名保存在考生文件夹下。 单击 “表单控件 ”窗口中的 “标签
5、 ”控件，在表单上放置一个标签控件，将其 FontSize属性值改为 20，调整标签的大小，将其 Alignment属性值改为 “2-中央 ”，将其 ForeColor属性值改为 “255,0,0”，将其 BackStyle属性值改为“0。透明 ”。 单击 “表单控件 ”窗口中的 “计时器 ”控件，在表单上放置一个计时器控件，修改其 “Internal”属性值为 1000(Internal属性值 1000表示 1秒 )，双击 “计时器 ”控件，在其 Timer事件中输入以下代码： *计时器控件的 timer事件代码* Thisform.Labell.Caption = time() * 保存表
6、单设计并运行。 (2)在命令窗口输入命令： MODIPY FORM my，打开刚设计的表单文件，在属性窗口中 (注意当前操作对象是 “表单 form1”)修改 name属性值为 my，修改 Caption属性值为 “变色时钟 ”。接着，单击 “表单控件 ”工具栏中的 “命令按钮 ”控件，在表单上放置三个命令按钮控件，将它们的 Caption属性值分别改为 “蓝色 ”(Command1)， “绿色 ”(Command2)和 “退出 ”(Command3)。双击 “蓝色 ”命令按钮，在其 Click事件中输入以入代码： *命令按钮 Command1(蓝色 )的 Click事件代码 * Thisfo
7、rm.BackColor=rgb(0， 0， 255) * 双击 “绿色 ”命令按钮，在其 Click事件中输入以入代码： *命令按钮 Command2(绿色 )的 Click事件代码* Thisform.BackColor=rgb(0， 255， 0) * 双击 “退出 ”命令按钮，在其 Click事件中输入以入代码： *命令按钮 Command3(退出 )的 Click事件代码* Thisform.Release * 在命令窗口输入命令： DO FORM my，表单运行结果如图所示：【知识模块】 上机操作题 二、简单应用题 2 【正确答案】 (1)启动 Visual FoxPro，在 “工
8、具 ”菜单选择 “向导 ”“表单 ”菜单命令，出现 “向导选取 ”对话框，根据题意数据源是多个表，因此选定 “一对多表单向导 ”。单击 “确定 ”。 步骤一：在弹出的对话 框中 “数据库和表 ”选项选择父表 de，并把全部的 “可用字段 ”选为 “选定字段 ”。 步骤二：选择子表 pt，并把全部的 “可用字段 ”选为 “选定字段 ”。 步骤三：系统自动以 “部门编号 ”建立两表之间的关系。 步骤四：表单样式选择为 “阴影式 ”，按钮类型选择 “图片按钮 ”。 步骤五：在 “排序次序 ”中选择 “部门编号 ”，并选择升序排序。 步骤六：把表单标题改为 “数据维护 ”，可以在单击 “完成 ”之前单
9、击 “预览 ”按钮来预览生成的表单，最后单击 “完成 ”按钮。 将表单以文件名 sell保存在考生文件夹里。表单运行结果如图所示，(2)在命令窗 口中输入命令： MODIFY COMMAND asp.prg，打开程序文件编辑窗口。 *文件中asp.prg程序段如下 * *下面的程序在第 5行、第 6行、第 8行和第 9行有错误，请直接在错误处修改。 *修改时，不可改变 SQL语句的结构和短语的顺序，不允许增加或合并行。 OPEN DATABASE SALEDB SELECT PT.部门编号，部门名称，年度，； 一季度销售额 +二季度销售额 +三季度销售额 +四季度销售额AS全年销售额 ,; 一
10、季度利润 +二季度利润十三季度利润 +四季度利润 AS全年利 润 ,; 一季度利润 +二季度利润 +三季度利润 +四季度利润 /一季度销售额 +二季度销售额 +三季度销售额 +四季度销售额 AS利润率 ; FROMPT DE; WHERE PT.部门编号 =DE.部门编号 ; GROUP BY年度 利润率 DESC; INTO LI * 根据源程序提供的错误，修改后的程序段如下所示： *修改后的文件内容 * OPEN DATABASE SALEDB SELECT PT.部门编号 ,DE.部门名称 ,PT.年度 ,; PT.一季度销售 +PT.二季度销售 +PT.三季度销售+PT.四季度销售 A
11、S全年销售额 ,; 一季度利润 +二季度利润 +三季度利润 +四季度利润 AS全年利润 ,; (一季度利润 +二季度利润 +三季度利润 +四季度利润 )/(一季度销售+二季度销售 +三季度销售十四季度销售 ) AS利润率； FROM PT,DE; WHERE PT.部门编号 =DE.部门编号 ; ORDER BY 利润率 DESC； INTO TABLE LI * 【知识模块】 上机操作题 三、综合应用题 3 【正确答案】 在命令窗口输入命令： CREATE FORM myform，打开表单设计器：单击表单控件工具栏上的 “命令按钮 ”控件图标，向表单添加两个命令按钮，选中第一个命令按钮 (c
12、ommarldl)，在属性对话框中将命令按钮的 Name属性值修改为cmdyes，将 Capdon属性值修改为 “计算 ”，如图所示。以同样的方法，将第二个命令按钮 (command2)的 Name属性值修改为 cmdno，将 Caption属性值修改为 “关闭 ”。 双击命令按 钮cmdyes(计算 )，在 Click事件代码中编写如下程序段： *命令按钮Commandl(计算 )的 Click事件代码 * SET TALK OFF USE score REPLACE ALL 学分 WITH 0 GO TOP DO WHILE.NOT.EOF() IF 物理 =60 THEN REPIACE
13、 学分 WITH 学分 +2 ENDIF IF 高数 =60 THEN MPLACE 学分 WITH学分 +3 ENDIF IF 英语 =60 THEN REPLACE 学分 WITH 学分 +4 ENDIF SKIP ENDDO SORT ON学分 ,学号 /d TO xf SET tALK ON * 双击命令按钮 cmdno(关闭 )，在 Chck事件代码中编写如下程序段： *命令按钮 Command2(关闭 )的Click事件代码 * Thisform.Release *保存表单，在 命令窗口输入命令： DO FORM myform。在运行的表单界面中单击 “计算 ”命令按钮，系统将计算结果自动保存到新表 xf中。 【知识模块】 上机操作题
