在考生文件夹下有数据库“投资”，请编写并运行符合下列要求的程序：
设计一个名为“cd1”的菜单，菜单中有两个菜单项“计算”和“关闭”。程序运行时，单击“计算”菜单项应完成下列操作：
①将现价比买入价高的股票账户信息存入“账户_yl”表，其中：
盈利=(现价-基准价)*持有数量
(注意：要先把表“账户_yl”内容清空)
②根据“账户_yl”表计算总盈利金额，存入一个新表“盈利账户”中，包括字段：“股票账户”和“盈利金额”。
单击“关闭”菜单项，程序终止运行。
【操作步骤】
①选择【文件】→【新建】命令，选择“菜单”，单击“新建文件”按钮，再单击“菜单”按钮，打开菜单设计器，在“菜单名称”中输入“计算”，在“结果”下拉列表框中选择“过程”，单击“创建”按钮创建“计算”菜单过程，在菜单过程代码编辑窗口中输入以下代码：
SELECT l
USE账户_y1
DELETE FROM账户_y1
SELECT股票账户.*，(现价一基准价)*持有数量INTO ARRAY aa FROM股票账户WHERE现价>买入价
SELECT账户_y1
PACK
APPE FROM ARRAY aa
USE
SELECT股票账户，SUM(盈利)AS盈利金额INTO TABLE盈利账户FROM账户_y1 GROUP BY股票账户
关闭菜单过程代码编辑窗口回到菜单设计器。
②单击下一行，输入菜单名称“关闭”，在“结果”下拉列表框中选择“命令”，在右边的“命令”文本框中编写程序代码：SET SYSMENU TO DEFAULT
③选择【菜单】→【生成】命令，将菜单保存为“cd1”，生成一个菜单文件“cd1.mpr”。关闭菜单设计窗口，在命令窗口输入命令：DO cd1.mpr，执行“计算”菜单程序。