|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2013秋江蘇省計算機二級VFP上機真題第1套 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
江蘇省高等學校非計算機專業(yè)學生 2013年(秋)計算機基礎(chǔ)知識和應(yīng)用能力等級考試上機試卷 二級 Visual FoxPro (試卷代號VFP01) (本試卷完成時間70分鐘) 1.首先登錄考生信息 2．啟動VFP系統(tǒng)后。首先在命令窗口中執(zhí)行下列命令，以設(shè)置默認的工作目錄 SET DEFA TO T： 3．除非題目要求，否則不要對T盤上的文件進行重命名、 一、項目、數(shù)據(jù)庫和表操作（12分） 打開T盤根目錄中的項目文件JXGL,在該項目中已有一數(shù)據(jù)庫JXSJ。 1．在JXSJ數(shù)據(jù)庫中按如下表格中所示的結(jié)構(gòu)創(chuàng)建AB.dbf表,并按表格后的要求設(shè)置相關(guān) 屬性
(1)設(shè)置表的注釋:畢業(yè)生就業(yè)情況一覽表; (2)設(shè)置XH字段的輸入掩碼:只能輸入12位數(shù)字; (3)設(shè)置SFJY的默認值:.F.; (4)設(shè)置表的插入觸發(fā)器:只能插入2013年畢業(yè)的學生。 (5)創(chuàng)建普通索引，索引名為abcd,要求按學號的前9位排序,學號前9位相同時將已就業(yè)的學生排在前面,未就業(yè)的學生排在后面 2．在AB表中輸入如下記錄:
3．在項目中新建一個程序文件,文件名為MP,該程序的功能是:打開CJB表,并在瀏覽窗口顯示記錄 4．已知kc表與CJ表具有相同的字段KCDM。以kc表為主表、cj表為子表,基于kcdm索引建立永久關(guān)系,并設(shè)置它們之間的參照完整性:刪除限制,插入限制 二、設(shè)計查詢（8分） 已知JXGL項目管理器中的圖書(TSB)表含有分類號(FLH)、書名(SM)等字段,借閱(JYB)表含有分類號(FLH)、讀者類型(LX)等字段,LX字段值為”J”表示讀者為教師,LX字段值為”X”表示讀者為學生。按如下要求修改查詢CHAXUN: 基于TSB表和JYB查詢每本圖書借閱情況,要求輸出字段包括:TSB.FLH、TSB.SM、被借次數(shù)、教師借閱次數(shù)。輸出結(jié)果按被借次數(shù)降序,被借次數(shù)相同按FLH排序,查詢結(jié)果僅輸出被借次數(shù)在5次以上(包括5次)的記錄 三、設(shè)計菜單（5分） 項目JXGL中已存在菜單MENU,利用菜單設(shè)計器按如下要求修改菜單,完成后的運行效果如圖1所示。
1．增加"常用工具"菜單欄及其子菜單"記事本"、"計算器"、和"圖片處理",在菜單項之間設(shè)置分組線,并且為"計算器"設(shè)置快捷鍵CTRL+Q。 2．為"圖片處理"菜單創(chuàng)建子菜單"Windows畫圖軟件"和"Photoshop",在菜單項之間設(shè)置分 組線,并且為兩個菜單項分別設(shè)置訪問鍵”W”和”P”。 3．為"記事本"菜單項設(shè)置命令:啟動Windows中的記事本（注:使用RUN命令調(diào)用Window。 下的Notepad.exe）。 四、設(shè)計表單（10分） 表單FMQ
1．設(shè)置表單的有關(guān)屬性,使表單標題為”選擇鼠標形狀”, 運行時自動居中、無最大化和最小化按鈕。 2．在列表框控件右方添加一個命令按鈕控件,然后設(shè)置有關(guān)屬性使其無標題但顯示由EXIT.ICO文件指定的圖標,再編寫其Click事件代碼,其功能是釋放當前表單 3．修改列表框的RowSource屬性值,在列表的末尾增加一個”沙漏”數(shù)據(jù)項。 4．完善列表框控件的MouseUp事件代碼,其功能是:鼠標選定列表框中某一選項時,使鼠標指針的形狀變成該選項內(nèi)容所指定的形狀(如圖2所示,選定列表框中的”沙漏”選項時,鼠標指針位于列表框范圍內(nèi)則鼠標指針形狀為”沙漏”) 五、程序改錯（5分） 下列程序的功能是利用隨機函數(shù)RAND()隨機產(chǎn)生100個100以內(nèi)的整數(shù),統(tǒng)計它們在0--49和50--100之間出現(xiàn)的次數(shù),要求: 1.項目中有一個程序文件Pcode,將T盤中VFP01.TXT中的程序代碼復制到其中并進行修改 2.在修改程序時,不允許修改程序的總體框架和算法,不允許增加或減少語句數(shù)目 Create Cursor cur1(r i) For i=1 To 100 Insert Into cur1 Values (Int( EndFor Select cur1 Skip Top n=0 Do while Not Eof() If cur1.r>49 n=n-1 EndIf Skip EndDO Clear ?”小于50的次數(shù)是:”+ Str(100-n,2) ?”大于或等于50的次數(shù)是:”+Str(n,2) Use 參考答案 一、項目、數(shù)據(jù)庫和表操作 XH字段輸入掩碼: 999999999999 SFJY字段默認值表達式: .F. 索引表達式: LEFT(XH,9)+IIF(SFJY,”0”,”1”) 觸發(fā)器表達式: YEAR(BYRQ)=2013 MP程序文件代碼： USE CJB BROWSE 或者 SELECT * FROM CJB 二:設(shè)計查詢 SELECT TSB.FLH, TSB.SM, COUNT(*) AS 被借次數(shù), ; SUM(IIF(LX=’J’,1,0)) AS 教師借閱次數(shù); FROM TSB INNER JOIN JYB; ON TSB.FLH=JYB.FLH; GROUP BY TSB.FLH; HAVING COUNT(*)>=5; ORDER BY 3 DESC,TSB,FLH DESC 三、設(shè)計菜單 略 四、設(shè)計表單
五、程序改錯 第6行 SKIP TOP 修改為 ： GO TOP 第10行 n=n-1 修改為: n=n+1
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
