江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
江蘇計算機二級VFP2011春上機真題2

  2011()江蘇省計算機等級考試二級VFP上機試卷(02)

    (考試時間為70分鐘)

說明同前

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

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

1.jxsj數據庫中按如下表格中所示的結構創建ab.dbf,并按表格中的要求設置相關屬件。

   

    字段名

    數據類型

    寬度

    字段標題

    pm

 

 

    C

 

    20

 

    片名

    yz

 

 

    C

 

    10

 

    語種

    SC

 

 

    N

 

    3

 

    時長

    rkrq

    D

 

    入庫日期

 

    (1)設置表的注釋:影視記錄;

    (2)設置片名字段的格式:刪除字段值的前導空格;

    (3)設置時長字段的有效性規則:大于或等于30;

    (4)設置語種字段的顯示類:列表框;

    (5)創建普通索引,索引名為abcd,要求按語種排序,語種相同時按時長排序。

2.ab表中輸入如下記錄:

 pm

    yz

    SC

    rkrq

 Avatar

    英語

    150

  2010-5-15

 

3.將自由表cjb中的所有記錄徹底刪除(即物理刪除)

4.kc表已存在主索引kcdm,索引表達式為kcdm;cj表已存在普通索引kcdm,索引表達式為kcdm。以kc表為主表、cj表為子表,根據kcdm建立永久關系,并設置兩表之間的參照完整性:更新級聯、刪除級聯、插入限制。

二、設計查詢(8)

    已知課程表(kc)含有課程代碼(kcdm,C)、學分(xf,N)和課程名稱(kcmc,C)等字段;成績表(cj)含有成績(cj,N)、課程代碼(kcdm,c)和備注(bz,M)等字段,成績等級信息存放在備注字段的前7個字節中。按如下要求修改jxgl項目中的查詢chaxun:

    基于kc表和cj表查詢每門課成績優秀和不及格的學生信息。要求:查詢輸出字段為

kcmcxh、學分、成績等級、補考日期;查詢結果按課程名稱排序,課程名稱相同時按成績等級排序;僅輸出成績等級為"A優秀""F不及格"的記錄。

 

    :cj.cj>=60,學分為xf字段的值,否則為0;cj.cj<60,補考日期的值為

"2010.09.06",否則為10個字節的空字符串。

三、設計菜單(5)

  jxgl項目中已存在菜單MENU,其中已定義了"文件"菜單欄及其中的"退出菜單"項。按

如下要求設計菜單,菜單運行后的效果如圖1所示。

1."文件"菜單欄下插入系統菜單"發送(D)..."

2."文件"菜單欄右側創建"管理信息系統"菜單欄。

3."管理信息系統"菜單欄創建子菜單"使用說明""主程序"

4."使用說明"菜單項設置命令代碼:MODI COMM 操作說明.TXT

5.設置有關選項,使菜單運行時執行"清理"代碼:

    CLOSE TABLES  ALL

 

四、設計表單(10)

    表單F102E用來按小組查看世界杯球隊信息。按下列要求修改表單,修改后表單運行時如圖2所示。

1.設置表格grdFifa不顯示刪除標記列,不顯示滾

  動條,行高設置為27

2.在表格grdFifa"國旗"列中,刪除文本框控件Text1,添加一個OLE綁定型控件,并設置該控件在顯示圖像時按"等比填充"方式顯示。

3.世界杯球隊信息存儲在自由表fifa,表結構如下:組別(C,1)、編號(C,1)、國旗(G)、國家(C,

  12)、簡介(M)。該表已添加在表單的數據環境中。表單中的選項按鈕組OptionGroup1用來選擇小組賽的組別。在表單的Init事件代碼中,已定義了一個全局變量cGroup,用來存  儲當前選定的組別,完善Init事件代碼,實現:(1)對當前數據工作區中的fifa表設置篩選條件:cGroup變量中的值對"組別"字段進行篩選;(2)將記錄指針指向首行記錄。編寫選項按鈕組OptionGroup1Interactivechange事件代碼,以實現如下功能:調用表單Init事件的方法程序,并刷新表單。

五、程序改錯(5)

  下列程序用來產生200100之間不重復的隨機整數,并將結果輸出。要求:

  ①將下列程序輸入到項目中的程序文件PCODE,并對其中的2條錯誤語句進行修改;

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

    CLEAR

    DIMENSION a(20)

    a=0

    FOR i=1 T0 20

       X=INT(RAND()*100)

       iscf=.F.

       FOR i=0 T0 i-1

         IF a(j)=X

           iscf=.T.

           EXIT

         ENDIF

       ENDFOR

       IF iscf=.F.

          a(i)=X

       OTHERWISE

          i=i-1

       ENDIF

   ENDFOR

  DISPlAY MEMORY LiKE a*

彩票30选5开奖结果