计算机等级考试二级VFP上机试题及解题思路(64)

　　二、简单应用(2小题，每题20分，计40分)

　　在考生文件夹下完成下列操作：

　　1. 歌手比赛分为四个组，"歌手表"中的"歌手编号"字段的左边两位表示了该歌手所在的组号。考生目录下的程序文件five.prg的功能是：根据"歌手表"计算每个组的歌手人数，将结果填入表one.dbf，表one.dbf中有两个字段："组号"和"歌手人数"。程序中有三处错误，请修改并执行程序。注意：只能修改标有错误的语句行，不能修改其他语句，数组名A不允许修改。

　　2. 建立一个数据库文件"歌手大奖赛.dbc"，并将"歌手表"、"评委表"和"评分表"三个自由表添加到该数据库中。使用视图设计器建立视图songer_view，该视图根据"歌手表"、"评委表"和"评分表"建立，视图中的字段项包括：评委姓名、歌手姓名、分数，视图中的记录按"歌手姓名"升序、"分数"降序排列。

　　本题的主要考核点是VFP命令，数据库的建立和视图的建立等知识点。

　　本题解题思路：

　　第一步：本题是一个程序修改题。第一处错误应改为DO WHILE NOT EOF();第二处错误应改为SELECT COUNT(*) FROM 歌手表 WHERE LEFT(歌手表.歌手编号,2)=zuhao INTO ARRAY A;第三处错误应改为REPLACE 歌手人数 WITH A。

　　第二步：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出"新建"对话框，在文件类型中选择"数据库"，点击"新建文件"按钮，在弹出的对话框的"数据库名"处输入"歌手大奖赛"，单击保存按钮。选择"数据库"菜单选择"添加表(A)"，在弹出的"打开"对话框中，选定考生文件夹下的歌手表，再点击"确定"即可，这样歌手表就添加到了"歌手大奖赛"数据库中，用同样的方法，将"评委表"和"评分表"也添加到"歌手大奖赛"数据库中。

　　第三步：在新建对话框中选择"视图"或用CREAT VIEW命令打开视图设计器。建立一个视图，将"歌手表"、"评委表"和"评分表"添加到视图中，并将题中指定字段添加入视图;切换到"排序依据"中选择字段"歌手表.歌手姓名"，在"排序选项"处选择"升序";再选择字段"评分表.分数"，在"排序选项"处选择"降序";最后将视图命名为songer_view。

　　三、综合应用(1小题，计30分)

　　在考生文件夹下完成下列操作：

　　1. 建立一个文件名和表单名均为myform的表单，表单中包括一个列表框(List1)和两个命令按钮(Command1和Command2)，Command1和Command2的标题分别为"计算"和"退出"。

　　2. 列表框(List1)中应显示组号，通过RowSource和RowSourceType属性手工指定列表框的显示条目为01、02、03、04(注意不要使用命令指定这两个属性，否则将不能得分)。

　　3. 为"计算"命令按钮编写程序。程序的功能是：表单运行时，根据列表框中选定的"组号"，将"评分表"中该组歌手("歌手编号"字段的左边两位表示了该歌手所在的组号)的所有记录存入自由表two.dbf中，two.dbf的表结构与"评分表"相同，表中的记录先按"歌手编号"降序、再按"分数"升序排列。

　　4. 运行表单，在列表框中指定组号"01"，并且单击"计算"命令按钮。注意：结果two表文件中只能且必须包含01组歌手的评分信息。

　　本题的主要考核点是表单的创建、表单控件的添加、表单控件属性的设置以及控件代码等知识点。

　　1.利用"文件"菜单下的"新建"命令可创建新的表单文件，在"显示"菜单中打开表单控件工具栏，通过表单控件工具栏向表单中添加各控件。

　　2.通过属性窗口设置表单及相关各控件的属性，表单及相关各控件的属性值如下：

　　对象 属性名 值

　　myform Name myform

　　Command1 Caption 计算

　　Command2 Caption 退出

　　List1 RowSource 01,02,03,04

　　List1 RowSourceType 1-值

　　3.为"计算"命令按钮的Click事件编写程序代码：SELECT * FROM 评分表 WHERE left(评分表.歌手编号,2) = thisform.list1.list(thisform.list1.listindex) INTO TABLE two.dbf ORDER BY 评分表.歌手编号 DESC, 评分表.分数

　　4.最后以myform为文件名将表单保存在考生文件夹下，并运行该表单。