计算机二级考试《VFP》模拟试题及答案（2）

计算机二级考试《VFP》模拟试题及答案（2）
计算机二级考试《VFP》模拟试题及答案2017
二、基本操作题
在考生文件夹下，打开“TEST_DB”数据库，完成如下操作：
1. 为表SELL建立一个主索引，索引名为PK，索引表达式为:
部门号+年度+月份。

2. 将自由表DataTest、MODEL、TABC和PASS添加到当前打开的数据库中;
3. 在当前数据库中创建表TEST(部门号，年份，销售额合计)，其中：部
门号为字符型，宽度为2;年份为字符型，宽度为4;销售额合计为数值型，宽
度为8(其中小数2位)。

4. 使用报表向导建立一个简单报表，要求选择表SELL中所有字段(其他不做
要求)，报表文件名为TWO。

解题思路：略
三、简单应用题
在考生文件夹下，完成如下简单应用：
1. 打开“TEST_DB”数据库，根据表DEPT和表SELL并使用查询设计器设计一个名称为THREE的查询，按年度分部门(按年度和部门分组)统计月平均销售(通过销售额计算)、月平均工资(通过工资额计算)和月平均利润(通过"月平均销售-月平均工资"计算)。

查询统计结果按部门号、年度升序排序，并将查询结果输出到表TABB中。

表TABB的字段名依次为：部门号、部门名、年度、月平均销售、月平均工资、月平均利润。

设计完成后，运行该查询。

解题思路：
1. 建立查询---添加表“dept”和表“sell”---单击“字段”选项卡，选择试题要求的字段“部门号”、“部门名”和“年度”添加到
“选定字段”列表框中，在“函数和表达式”下的文本框输入“AVG(销售额) AS 月平均销售”，单击“添加”按钮。

在“函数和表达式”下的文本框输入“AVG(工资额) AS 月平均工资”，单击“添加”按钮。

在“函数和表达式”下的文本框输入“AVG(销售额)-AVG(工资额) AS 月平均利润”，单击“添加”按钮---单击“排序依据”选项卡，选择“Dept.部门号”并选择“升序”，再选择“Sell.年度”并选择“升序”---单击“分组依据”选项卡，选择“Dept.部门号”，单击“添加”按钮，再选择“Sell.年度”，以“部门号和年度”为分组条件。

(这一步不能漏做，否则结果将不正确)---单击“查询输出去向”菜单项，在“查询去向”对话框中，单击“表”按钮，在“表名”处输入“tabb“---保存该查询并运行。

*********************************
2. 打开文件名为“testA”的表单。

该表单完成如下功能：
每当用户输入用户名和口令并按“确认”按钮后，利用表PASS中记录检查其输入是否正确，若正确，就显示“欢迎使用本系统!”字样，并关闭表单;若不正确，则显示"用户名或口令不对，请重输入!"字样;如果三次输入不正确，就显示“用户名或口令不对，登录失败!”字样，并关闭表单。

(1) 修改口令输入文本框，使输入的口令显示为“*”。

(2) 修改该表单“确认”按钮的Click事件中的程序。

请将第3、4和12行语句修改正确。

修改时不允许增加或删除行，只能在错误行上进行修改。

解题思路：
2.选中Text2，在其“属性”的PasswordChar处输入“*”。

第2行：应改为：Key2=ALLTRIM(ThisForm.Text1.Value)
第3行：应改为：Key2=ALLTRIM(ThisForm.Text2.Value)
第4行：应改为：LOCATE ALL FOR USER=Key1
第7行：应改为：ThisForm.Release
第12行：所以也应改为：ThisForm.Release
四、综合应用题
建立一个文件名和表单名均为myform的表单文件，表单上有：. 表格控件grid1(RecordSourceType属性手工设置为“别名”) . 文本框控件Text1
. 命令按钮控件Command1(文本为“确定”)
程序运行时在文本框中输入部门名,然后单击“确定”命令按钮计算该部门各年度的销售额(合计)和利润(合计)(利润为“销售额-工资额”)，按年度升序将结果(含年度、销售额和利润3个字段)保存在以部门名命名的dbf文件的同时，在
Grid1控件中显示计算的结果。

要求：程序完成后必须运行，并分别计算"笔记本产品部"和"计算机产品部"
按年度的销售额和利润情况。

解题思路：
1.建立表单，在“表单设计器”中，在其“属性”的Name处输入“myform”。

在“表单设计器”中，分别添加一个文本框Text1和表格Grid1。

在“表单设计器”中，添加一个命令按钮Command1，在其命令按钮的“属性”的Caption处输入“确定”。

双击“确定”按钮，在“Command1.Click”编辑窗口中输入下列程序
dn=thisform.text1.value
SELECT Sell.年度, SUM(Sell.销售额) 销售额,;
SUM(Sell.销售额)- SUM(Sell.工资额) 利润;
FROM sell where 部门号 in;
(select 部门号 from dept where 部门名=dn);
GROUP BY Sell.年度 into dbf &dn
thisform.grid1.recordsource=dn。