2013年9月計(jì)算機(jī)二級(jí)VF考試上機(jī)精選題及答案（7）

　　一、基本操作題(共4小題，第1和2題是7分、第3和4題是8分)

　　1. 新建一個(gè)名稱為"外匯數(shù)據(jù)"的數(shù)據(jù)庫(kù)。

　　2. 將自由表rate_exchange和currency_sl添加到數(shù)據(jù)庫(kù)中。

　　3. 通過(guò)"外幣代碼"字段為rate_exchange和currency_sl建立永久聯(lián)系(如果必要請(qǐng)建立相關(guān)索引)。

　　4. 打開表單文件test_form，該表單的界面如下圖所示，請(qǐng)將標(biāo)簽"用戶名"和"口令"的字體都改為"黑體"。

　　二、簡(jiǎn)單應(yīng)用(2小題，每題20分，計(jì)40分)

　　1. rate_pro.prg中的程序功能是計(jì)算出"林詩(shī)因"所持有的全部外幣相當(dāng)于人民幣的價(jià)值數(shù)量，summ中存放的是結(jié)果。注意：某種外幣相當(dāng)于人民幣數(shù)量的計(jì)算公式：人民幣價(jià)值數(shù)量 = 該種外幣的"現(xiàn)鈔買入價(jià)"* 該種外幣"持有數(shù)量"。請(qǐng)?jiān)谥付ㄎ恢眯薷某绦虻恼Z(yǔ)句，不得增加或刪除程序行，請(qǐng)保存所做的修改。

　　2. 建立一個(gè)名為menu_rate的菜單，菜單中有兩個(gè)菜單項(xiàng)"查詢"和"退出"。"查詢"項(xiàng)下還有子菜單，子菜單有"日元"、"歐元"、"美元"三個(gè)選項(xiàng)。在"退出"菜單項(xiàng)下創(chuàng)建過(guò)程，該過(guò)程負(fù)責(zé)返回系統(tǒng)菜單。

　　三、綜合應(yīng)用(1小題，計(jì)30分)

　　設(shè)計(jì)一個(gè)文件名為myrate的表單，所有控件的屬性必須在表單設(shè)計(jì)器的屬性窗口中設(shè)置。表單的標(biāo)題為"外匯持有情況"。表單中有一個(gè)選項(xiàng)組控件(命名為myOption和兩個(gè)命令按鈕"統(tǒng)計(jì)"(command1)和"退出"(command2)。其中，選項(xiàng)組控件有三個(gè)按鈕"日元"、"美元"和"歐元"。運(yùn)行表單時(shí)，首先在選項(xiàng)組控件中選擇"日元"、"美元"或"歐元"，單擊"統(tǒng)計(jì)"命令按鈕后，根據(jù)選項(xiàng)組控件的選擇將持有相應(yīng)外幣的人的姓名和持有數(shù)量分別存入rate_ry.dbf(日元)或rate_my.dbf(美元)或rate_oy(歐元)中。單擊"退出"按鈕時(shí)關(guān)閉表單。表單建成后，要求運(yùn)行表單，并分別統(tǒng)計(jì)"日元"、"美元"和"歐元"的持有數(shù)量。

　　簡(jiǎn)單應(yīng)用題答案：

　　1、 第一處將“find”改為“l(fā)oca” 注意：loca 只準(zhǔn)寫四個(gè)字符，多寫扣7分。

　　2、 第二處將“while not eof()”改為“do while not eof()”

　　3、 第三處將“summ=summ+a[1] * rate_exchange.持有數(shù)量”改為“summ=summ+a[1]*currency_sl.持有數(shù)量”注意：[ ]不要改( )。

　　綜合應(yīng)用題答案：“統(tǒng)計(jì)”命令按鈕的CLICK事件代碼為：

　　DO CASE

　　CASE thisform.myOption.option1.value=1

　　SELECT 姓名,持有數(shù)量 FROM rate_exchange,Currency_sl where rate_exchange.外幣代碼=Currency_sl.外幣代碼 and ;

　　外幣名稱="日元" INTO TABLE rate_ry

　　CASE thisform.myOption.option2.value=1

　　SELECT 姓名,持有數(shù)量 FROM rate_exchange,Currency_sl where rate_exchange.外幣代碼=Currency_sl.外幣代碼 and ;

　　外幣名稱="美元" INTO TABLE rate_my

　　CASE thisform.myOption.option3.value=1

　　SELECT 姓名,持有數(shù)量 FROM rate_exchange,Currency_sl where rate_exchange.外幣代碼=Currency_sl.外幣代碼 and ;

　　外幣名稱="歐元" INTO TABLE rate_oy

　　ENDCASE

　　“退出”命令按鈕的CLICK事件代碼為：thisform.release