二、簡單應用(2小題，每題20分，計40分)

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

　　1. 歌手比賽分為四個組，"歌手表"中的"歌手編號"字段的左邊兩位表示了該歌手所在的組號�？忌�目錄下的程序文件five.prg的功能是：根據"歌手表"計算每個組的歌手人數(shù)，將結果填入表one.dbf，表one.dbf中有兩個字段："組號"和"歌手人數(shù)"。程序中有三處錯誤，請修改并執(zhí)行程序。注意：只能修改標有錯誤的語句行，不能修改其他語句，數(shù)組名A不允許修改。

　　2. 建立一個數(shù)據庫文件"歌手大獎賽.dbc"，并將"歌手表"、"評委表"和"評分表"三個自由表添加到該數(shù)據庫中。使用視圖設計器建立視圖songer_view，該視圖根據"歌手表"、"評委表"和"評分表"建立，視圖中的字段項包括：評委姓名、歌手姓名、分數(shù)，視圖中的記錄按"歌手姓名"升序、"分數(shù)"降序排列。

　　本題的主要考核點是VFP命令，數(shù)據庫的建立和視圖的建立等知識點。

　　本題解題思路：

　　第一步：本題是一個程序修改題。第一處錯誤應改為DO WHILE NOT EOF();第二處錯誤應改為SELECT COUNT(*) FROM 歌手表 WHERE LEFT(歌手表.歌手編號,2)=zuhao INTO ARRAY A;第三處錯誤應改為REPLACE 歌手人數(shù) WITH A。

　　第二步：在Visual FoxPro主窗口中按下組合鍵Ctrl+N，系統(tǒng)彈出"新建"對話框，在文件類型中選擇"數(shù)據庫"，點擊"新建文件"按鈕，在彈出的對話框的"數(shù)據庫名"處輸入"歌手大獎賽"，單擊保存按鈕。選擇"數(shù)據庫"菜單選擇"添加表(A)"，在彈出的"打開"對話框中，選定考生文件夾下的歌手表，再點擊"確定"即可，這樣歌手表就添加到了"歌手大獎賽"數(shù)據庫中，用同樣的方法，將"評委表"和"評分表"也添加到"歌手大獎賽"數(shù)據庫中。

　　第三步：在新建對話框中選擇"視圖"或用CREAT VIEW命令打開視圖設計器。建立一個視圖，將"歌手表"、"評委表"和"評分表"添加到視圖中，并將題中指定字段添加入視圖;切換到"排序依據"中選擇字段"歌手表.歌手姓名"，在"排序選項"處選擇"升序";再選擇字段"評分表.分數(shù)"，在"排序選項"處選擇"降序";最后將視圖命名為songer_view。

　　三、綜合應用(1小題，計30分)

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

　　1. 建立一個文件名和表單名均為myform的表單，表單中包括一個列表框(List1)和兩個命令按鈕(Command1和Command2)，Command1和Command2的標題分別為"計算"和"退出"。

　　2. 列表框(List1)中應顯示組號，通過RowSource和RowSourceType屬性手工指定列表框的顯示條目為01、02、03、04(注意不要使用命令指定這兩個屬性，否則將不能得分)。

　　3. 為"計算"命令按鈕編寫程序。程序的功能是：表單運行時，根據列表框中選定的"組號"，將"評分表"中該組歌手("歌手編號"字段的左邊兩位表示了該歌手所在的組號)的所有記錄存入自由表two.dbf中，two.dbf的表結構與"評分表"相同，表中的記錄先按"歌手編號"降序、再按"分數(shù)"升序排列。

　　4. 運行表單，在列表框中指定組號"01"，并且單擊"計算"命令按鈕。注意：結果two表文件中只能且必須包含01組歌手的評分信息。

　　本題的主要考核點是表單的創(chuàng)建、表單控件的添加、表單控件屬性的設置以及控件代碼等知識點。

　　1.利用"文件"菜單下的"新建"命令可創(chuàng)建新的表單文件，在"顯示"菜單中打開表單控件工具欄，通過表單控件工具欄向表單中添加各控件。

　　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, 評分表.分數(shù)

　　4.最后以myform為文件名將表單保存在考生文件夾下，并運行該表單。