2010年全國計算機等級考試二級VB模擬試題(19)

　　3.綜合應(yīng)用題

　　在考生文件夾下有股票管理數(shù)據(jù)庫stock_6，數(shù)據(jù)庫中有stock_mm表和stock_cs表，stock_mm的表結(jié)構(gòu)是股票代碼C(6)、買賣標記L(.T.表示買進，.F.表示賣出)，單價N(7，2)、本次數(shù)量N(6);stock_cs的表結(jié)構(gòu)是股票代碼C(6)，買入次數(shù)N(4)，最高價N(7，2)。stock_mm表中一支股票對應(yīng)多個記錄，stock_cs表中一只股票對應(yīng)一個記錄(stock_cs表開始時記錄個數(shù)為0)。

　　請編寫運行符合下列要求的程序：

　　(1)設(shè)計一個名為stock_m的菜單，菜單中有兩個菜單項“計算”和“退出”。

　　程序運行時，單擊“計算”菜單項應(yīng)完成的操作是：計算每支股票的買入次數(shù)和(買入時的)最高價存入stock_cs表中，買賣標記.T.(表示買進)。

　　注意：stock_cs表中的記錄按股票代碼從小到大的物理順序存放。

　　(2)根據(jù)stock_cs表計算買入次數(shù)最多的股票代碼和買入次數(shù)，并存儲到的stock_x表中(與stock_cs表對應(yīng)字段名稱和類型一致)。

　　單擊“退出”菜單項，程序終止運行。

　　【參考答案】

　　具體步驟如下：

　�、� 在“命令”窗口輸入：CREATE MENU stock_m命令。

　�、� 彈出“新建菜單”對話框，單擊“菜單”圖標按鈕，進入菜單設(shè)計器。

　�、� 根據(jù)題意，在菜單設(shè)計器中輸入兩個主菜單名稱“計算”和“退出”，接著在“計算”菜單行的“結(jié)果”下拉列表框中選擇“過程”選項(用于編寫程序)，在“退出”菜單行的“結(jié)果”下拉列表框中選擇“命令”選項。

　　④ 單擊“計算”菜單行中的“創(chuàng)建”按鈕，進入程序設(shè)計的編輯窗口，輸入如下程序段。

　　*****“計算”菜單命令的程序設(shè)計****

　　SET TALK OFF

　　SET SAFETY OFF

　　OPEN DATABASE stock_6

　　SELECT股票代碼,COUNT(*)AS買入次數(shù),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買入次數(shù)DESC INTO TABLE stock_x

　　SET SAFETY ON

　　SET TALK ON

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

　　⑤ 在“退出”菜單項的“命令”文本框中編寫程序代碼：SET SYSMENU TO DEFAULT。

　�、� 選擇菜單命令“菜單”→“生成”，生成一個菜單文件stock_m.mpr。

　�、� 關(guān)閉菜單設(shè)計窗口，在“命令”窗口輸入命令：DO stock_m.mpr。

　�、� 可以看到Visual FoxPro的菜單欄被新建的菜單所代替，執(zhí)行“計算”菜單命令，計算結(jié)果將自動保存到對應(yīng)表中，單擊“退出”菜單命令將恢復(fù)系統(tǒng)菜單。

　　【試題解析】

　　本試題主要考查了菜單的設(shè)計方法，主要注意“結(jié)果”下拉列表框中的選項選擇即可，用于編寫程序段的菜單命令應(yīng)該選擇“過程”。在菜單命令的過程設(shè)計中，可利用SQL的查詢語句和插入語句完成對記錄的查找和添加工作，同時注意利用數(shù)組來保存和插入查找結(jié)果。