1、国家二级 VF机试模拟试卷 62及答案与解析 一、基本操作题（ 30分） 1 表 “员工 ”中字段 “加班费 ”的值为空，编写满足如下要求的程序： 根据 “值班 ”表中的夜和昼的加班费的值和 “员工 ”表中各人昼夜值班的次数确定员工表的 “加班费 ”字段的值，最后将程序保存为 myprog.prg，并执行该程序。 二、简单应用题（ 40分） 2 建立一个名为 cdl的菜单，菜单中有两个菜单项 “日期 ”和 “关闭 ”。 “日期 ”下还有一个子菜单，子菜单有 “月份 ”和 “年份 ”两个菜单项。单击 “关闭 ”菜单返回到系统菜单。 3 在 “住 宿管理 ”数据库中有 “学生 ”表和 “宿舍 ”表
2、。用 SQL语句完成查询，结果为学生姓名及所住的宿舍电话号码，并将结果存放于表。 result中，将 SQL语句保存在 result.prg文件中。 三、综合应用题（ 30分） 4 设计文件名为 myform1的表单。表单的标题设为 “部门人数统计 ”。表单中有 1个组合框、 2个文本框和 2个命令按钮，命令按钮的标题分别为 “统计 ”和 “退出 ”。 运行表单时，组合框中有部门信息 “部门号 ”可供选择，在做出选择以后，单击“统计 ”命令按钮，则第一个文本框显示出部门名称，第二个文本框中显 示出 “员工 ”表中该部门的人数。单击 “退出 ”按钮关闭表单。 国家二级 VF机试模拟试卷 62答案
3、与解析 一、基本操作题（ 30分） 1 【正确答案】 步骤 1：单击工具栏上的 新建 按钮，打开 创建 对话框，在 文件类型 区中选择 “程序 ”，单击 新建文件 ，打开程序编辑窗口输入： SET TALK OFF SELECT 单位加班费 FRON 值班 ; WHERE 值班类型 =“白班 “; INTO ARRAY temp1 SELECT 单位加班费 FRON 值班 ; WHERE 值班类型 =“夜班 “; INTO ARRAY temp2 UPDATE 员工 SET 加班费 =白班数 *temp1(1,1)+夜班数 *temp2(1,1) SET TALK ON 步骤 2：单击工具栏上
4、的 保存 按钮，在打开的 另存为 对话框中将文件名为设为“myprog”，单击工具栏的 运行 按钮，查看结果。 二、简单应用题（ 40分） 2 【正确答案】 步骤 1：单击工具栏上的 新建 按钮，在弹出的 新建 对话框 文件类型 中选择 “菜单，再单击 新建文件 ，打开菜单设计器。 步骤 2：在菜单设计器的 “菜单名称 ”列输入 “日期 ”， “结果 ”列选择 “子菜单 ”，单击 创建 按钮，此时会弹出新的菜单设计器。在 “菜单名称 ”列输入 “月份 ”，在下一行的 “菜单名称 ”列输入 “年份 ”。在 “菜单级 ”列表框中选择菜单栏。然后返回第一级菜单进行设置。 步骤 3：在最后一行的 “菜
5、单名称 ”中输入 “关闭 ”， “结果 ”列选择 “过程 ”。单击 创建 按钮，在弹出的文本框中输入程序代码 “SET SYSMENU TO DEFAULT”。 3 【正确答案】 步骤 1：单击工具栏上的 新建 按钮，然后打开 新建 对话框，在文件类型 区中选择 “程序 ”，单击 新建文件 ，打开程序文件编辑窗口，在编辑窗口中输入以下程序代码： SELECT 姓名，电话 FROM 学生，宿舍 WHERE 学生 .宿舍编号 =宿舍 .宿舍编号 INTO TABLE result 步骤 2：单击工具栏上的 保存 按钮，在打开的 另存为 对话框中将文件名命名为“result”，然后关闭窗口。 步骤
6、3：单击工具栏上的 执行 按钮，随即运行程序。 三、综合应用题（ 30分） 4 【正确答案】 步骤 1：单击工具栏上的 新建 按钮，打开 新建 对话框，在 文件类型 区中选择 “表单 ”，单击 新建文件 ，进入表单设计器。再单击表单，在 属性 窗口将 “Caption”设置为 “部门人数统计 ”。然后，单击 表单控件 窗口的组合框控件，单击表单，将组合框控件放入表单合适位置。在 属性 窗口将“RowSourceType”设置为 “6-字段 ”， “SourceType”设置为 “部门信息部门号 ”。单击表单控件 窗口的文本框控件，单击表单，将文本框放入表单合适位置。按同样的方法再添加一个 文本
7、框和两个命令按钮。单击第一个命令按钮，在 属性 窗口中将“Caption”设置为 “统计 ”。单击另一个命令按钮，在 属性 窗口将 “Caption”设置为“退出 ”。 步骤 2：右击表单，选择 “数据环境 ”项，在弹出的 打开 对话框中选择 “部门管理 .dbc”，单击 确定 按钮。在 添加表或视图 对话框中，选中表 “部门信息 ”，单击添加 按钮，单击表 “员工 ”，单击 添加 按钮，最后单击 关闭 按钮。 步骤 3：右击 统计 按钮选择 “代码 ”，在 Click事件中输入： SELECT 部门名称 FROM 部门信息 ; WHERE 部门号 =ALLT(THISFORM.combol.DISPLAYVALUE) INTO ARRAY temp THISFORN.text1.VALUE=temp(1,1) SELECT COUNT (工号 ) FROM 员工 WHEER=ALLT(THISFORM.dombo1.DISPLAYVALUE); INTO ARRAY temp2 THISFORN.text2.VALUE=temp2(1,1) 右击 退出 按钮选择 “代码 ”，在其 Click事 件中输入： Thisform.Release。 步骤 4：单击工具栏上的 保存 按钮，将文件名保存为 “myform”即可
