江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
2013秋江蘇省計算機二級VFP上機真題第1套

江蘇省高等學校非計算機專業學生

2013()計算機基礎知識和應用能力等級考試上機試卷

二級  Visual FoxPro  (試卷代號VFP01)

(本試卷完成時間70分鐘)

1.首先登錄考生信息

2.啟動VFP系統后。首先在命令窗口中執行下列命令,以設置默認的工作目錄

    SET DEFA TO T

3.除非題目要求,否則不要對T盤上的文件進行重命名、

一、項目、數據庫和表操作(12分)

    打開T盤根目錄中的項目文件JXGL,在該項目中已有一數據庫JXSJ

1.在JXSJ數據庫中按如下表格中所示的結構創建AB.dbf,并按表格后的要求設置相關

  屬性

字段名

數據類型

寬度

字段標題

XH

C

12

學號

XM

C

12

姓名

BYRQ

D

 

畢業日期

SFJY

L

      

是否就業

JYDW

C

30

就業單位

 

  (1)設置表的注釋:畢業生就業情況一覽表;

  (2)設置XH字段的輸入掩碼:只能輸入12位數字;

  (3)設置SFJY的默認值:.F.;

  (4)設置表的插入觸發器:只能插入2013年畢業的學生。

  (5)創建普通索引,索引名為abcd,要求按學號的前9位排序,學號前9位相同時將已就業的學生排在前面,未就業的學生排在后面

2.在AB表中輸入如下記錄:

XH

XM

BYRQ

SFJY

JYDW

200902020001

張紅

2013-07-01

.T.

南京晨光科技

3.在項目中新建一個程序文件,文件名為MP,該程序的功能是:打開CJB,并在瀏覽窗口顯示記錄

4.已知kc表與CJ表具有相同的字段KCDM。以kc表為主表、cj表為子表,基于kcdm索引建立永久關系,并設置它們之間的參照完整性:刪除限制,插入限制

二、設計查詢(8分)

   已知JXGL項目管理器中的圖書(TSB)表含有分類號(FLH)、書名(SM)等字段,借閱(JYB)表含有分類號(FLH)、讀者類型(LX)等字段,LX字段值為”J”表示讀者為教師,LX字段值為”X”表示讀者為學生。按如下要求修改查詢CHAXUN:

  基于TSB表和JYB查詢每本圖書借閱情況,要求輸出字段包括:TSB.FLHTSB.SM、被借次數、教師借閱次數。輸出結果按被借次數降序,被借次數相同按FLH排序,查詢結果僅輸出被借次數在5次以上(包括5)的記錄

三、設計菜單(5分)

    項目JXGL中已存在菜單MENU,利用菜單設計器按如下要求修改菜單,完成后的運行效果如圖1所示。

 

1.增加"常用工具"菜單欄及其子菜單"記事本""計算器"、和"圖片處理",在菜單項之間設置分組線,并且為"計算器"設置快捷鍵CTRL+Q

2.為"圖片處理"菜單創建子菜單"Windows畫圖軟件""Photoshop",在菜單項之間設置分

  組線,并且為兩個菜單項分別設置訪問鍵”W””P”

3.為"記事本"菜單項設置命令:啟動Windows中的記事本(注:使用RUN命令調用Window

  下的Notepad.exe)。

四、設計表單(10分)

    表單FMQ13a用于選擇鼠標形狀。按下列要求修改表單,修改后表單運行時如圖2所示。

 

1.設置表單的有關屬性,使表單標題為選擇鼠標形狀”, 運行時自動居中、無最大化和最小化按鈕。

2.在列表框控件右方添加一個命令按鈕控件,然后設置有關屬性使其無標題但顯示由EXIT.ICO文件指定的圖標,再編寫其Click事件代碼,其功能是釋放當前表單

3.修改列表框的RowSource屬性值,在列表的末尾增加一個沙漏數據項。

4.完善列表框控件的MouseUp事件代碼,其功能是:鼠標選定列表框中某一選項時,使鼠標指針的形狀變成該選項內容所指定的形狀(如圖2所示,選定列表框中的沙漏選項時,鼠標指針位于列表框范圍內則鼠標指針形狀為沙漏”)

五、程序改錯(5分)

下列程序的功能是利用隨機函數RAND()隨機產生100100以內的整數,統計它們在0--4950--100之間出現的次數,要求:

 1.項目中有一個程序文件Pcode,T盤中VFP01.TXT中的程序代碼復制到其中并進行修改

 2.在修改程序時,不允許修改程序的總體框架和算法,不允許增加或減少語句數目

 Create Cursor cur1(r  i)

 For i=1  To  100

Insert  Into cur1 Values (Int(Rand()*100))

 EndFor

 Select cur1

 Skip Top

 n=0

 Do while Not Eof()

If cur1.r>49

   n=n-1

EndIf

Skip

 EndDO

 Clear

 ?”小于50的次數是:”+ Str(100-n,2)

 ?”大于或等于50的次數是:”+Str(n,2)

 Use

 

 

參考答案

一、項目、數據庫和表操作

XH字段輸入掩碼: 999999999999

SFJY字段默認值表達式:   .F.

索引表達式:  LEFT(XH,9)+IIF(SFJY,”0”,”1”)

觸發器表達式:  YEAR(BYRQ)=2013

MP程序文件代碼:

  USE  CJB

  BROWSE

或者

  SELECT * FROM CJB

:設計查詢

  SELECT TSB.FLH,  TSB.SM,  COUNT(*) AS 被借次數, ;

      SUM(IIF(LX=’J’,1,0))  AS  教師借閱次數;

   FROM  TSB  INNER JOIN JYB;

       ON  TSB.FLH=JYB.FLH;

   GROUP  BY TSB.FLH;

   HAVING COUNT(*)>=5;

   ORDER  BY  3  DESC,TSB,FLH DESC

三、設計菜單

 

四、設計表單

 

題號

對象名

屬性

屬性值

 

1

 

FORM

AUTOCENTER

.T.

MaxButton

.F.

MinButton

.F.

Caption

選擇鼠標形狀

 

2

 

List1

RowSource

沙漏

MouseUp

This.MousePointer=This.ListIndex

 

3

 

Command1

Caption

“”

Picture

exit.ico

Click

ThisForm.Release

 

五、程序改錯

  6  SKIP  TOP    修改為      GO   TOP

  10  n=n-1         修改為:  n=n+1

 

 

彩票30选5开奖结果