2010年全国计算机等级考试二级VB模拟试题(19)

　　3.综合应用题

　　在考生文件夹下有股票管理数据库stock_6，数据库中有stock_mm表和stock_cs表，stock_mm的表结构是股票代码C(6)、买卖标记L(.T.表示买进，.F.表示卖出)，单价N(7，2)、本次数量N(6);stock_cs的表结构是股票代码C(6)，买入次数N(4)，最高价N(7，2)。stock_mm表中一支股票对应多个记录，stock_cs表中一只股票对应一个记录(stock_cs表开始时记录个数为0)。

　　请编写运行符合下列要求的程序：

　　(1)设计一个名为stock_m的菜单，菜单中有两个菜单项“计算”和“退出”。

　　程序运行时，单击“计算”菜单项应完成的操作是：计算每支股票的买入次数和(买入时的)最高价存入stock_cs表中，买卖标记.T.(表示买进)。

　　注意：stock_cs表中的记录按股票代码从小到大的物理顺序存放。

　　(2)根据stock_cs表计算买入次数最多的股票代码和买入次数，并存储到的stock_x表中(与stock_cs表对应字段名称和类型一致)。

　　单击“退出”菜单项，程序终止运行。

　　【参考答案】

　　具体步骤如下：

　　① 在“命令”窗口输入：CREATE MENU stock_m命令。

　　② 弹出“新建菜单”对话框，单击“菜单”图标按钮，进入菜单设计器。

　　③ 根据题意，在菜单设计器中输入两个主菜单名称“计算”和“退出”，接着在“计算”菜单行的“结果”下拉列表框中选择“过程”选项(用于编写程序)，在“退出”菜单行的“结果”下拉列表框中选择“命令”选项。

　　④ 单击“计算”菜单行中的“创建”按钮，进入程序设计的编辑窗口，输入如下程序段。

　　*****“计算”菜单命令的程序设计****

　　SET TALK OFF

　　SET SAFETY OFF

　　OPEN DATABASE stock_6

　　SELECT股票代码,COUNT(*)AS买入次数,MAX(单价)AS最高价;

　　FROM stock_mm;

　　WHERE买卖标记;

　　GROUP BY股票代码;

　　ORDER BY股票代码;

　　INTO ARRAY AFieldsValue

　　DELETE FROM stock_cs

　　INSERT INTO stock_cs FROM ARRAY AFieldsValue

　　PACK

　　USE

　　SELECT*TOP 1 FROM stock_cs ORDER BY买入次数DESC INTO TABLE stock_x

　　SET SAFETY ON

　　SET TALK ON

　　*********************************

　　⑤ 在“退出”菜单项的“命令”文本框中编写程序代码：SET SYSMENU TO DEFAULT。

　　⑥ 选择菜单命令“菜单”→“生成”，生成一个菜单文件stock_m.mpr。

　　⑦ 关闭菜单设计窗口，在“命令”窗口输入命令：DO stock_m.mpr。

　　⑧ 可以看到Visual FoxPro的菜单栏被新建的菜单所代替，执行“计算”菜单命令，计算结果将自动保存到对应表中，单击“退出”菜单命令将恢复系统菜单。

　　【试题解析】

　　本试题主要考查了菜单的设计方法，主要注意“结果”下拉列表框中的选项选择即可，用于编写程序段的菜单命令应该选择“过程”。在菜单命令的过程设计中，可利用SQL的查询语句和插入语句完成对记录的查找和添加工作，同时注意利用数组来保存和插入查找结果。