第二部分Visual FoxPro程序设计

一、选择题(用答题卡答题，答案依次填在21—30答题号内)

21．关键字是关系模型中的重要概念。当一个二维表(A表)的主关键字被包含到另一个二维表(B表)中时，它就称为B表的    (    21   )  。

  A．主关键字    C．外部关键字

  B．候选关键字    D．超关键字

22．对于下列函数来说，其返回值的数据类型不为数值型的是    (   22   )  。

  A．LEN(“Visual FoxPro”)    C．ATC(“this”，”ThisForm”)

  B．YEAR(DATE())D．LEFT(“123456”，2)

23．设变量X的值为”abc  “(其长度为4，末尾为一个空格字符)，变量Y的值为”abc”(其长度为4，第一个字符为空格)，则表达式LEN(x+y)和LEN(x—y)的返回值分别为    ( 23)  A．6，6    B．7，7    C．8，8 D．8，7

24．在下列关于数据库表和临时表(Cursor)的叙述中，正确的是    (   24   )  。

  A．数据库表随着其所在的数据库的打开而打开，也随着其所在的数据库的关闭而关闭

  B．基于数据库表创建的临时表随着数据库的打开而打开，也随着数据库的关闭而关闭

  C．用BROWSE命令可浏览数据库表，也可浏览临时表

  D．临时表被关闭后，可使用USE命令再次将其打开

25．设某数据库中的学生表(XS．DBF)已在2号工作区中打开，且当前工作区为1号工作区，则下列命令中不能将该XS表关闭的是    ( 25 )。

  A．CLOSE TABLE    C．CLOSE DATABASE ALL

  B．USE IN 2       D．USE

26．首先执行CLOSE TABLES ALL命令，然后执行    (  26   ) 命令，可逻辑删除JS(教师)表中年龄超过60岁的所有记录(注：csrq为日期型字段，含义为出生日期)。

  A．DELETE  FOR  YEAR(DATE0-YEAR(csrq))>60

  B．DELETE FROM js WHERE YEAR(DATE())-YEAR(csrq)>60

  C．DELETE FROM js FOR YEAR(DATE()-YEAR(csrq))>60

  D．DELETE FROM js WHILE YEAR(DATE())-YEAR(csrq)>60

27．对表单中的一个文本框控件来说，下列事件中最后发生的事件是    (27)   。

  A．Valid    C．Destroy

  B．Init     D. Lostfocus

 28·将表单中的所有文本框的Enabled属性设置为假，可在表单的Init事件处理代码中用SetAll方法进行设置。下列表述中，命令正确的是    (28)    。

    A．THISFORM．SetAll(“Enabled”，．F．，”Text”)

    B．THISFORM．SetAll(Enabled，．E，Text)

    C．THISFORM．SetAll(“Enabled”，．F．，”Textbox”)

    D．THISFORM．SetAll(“Enabled”，．F．)

29．在下列几种控件中，无Value属性的是    (29)    。

  A．命令按钮(Command)    C．复选框(CheckBox)

  B．选项按钮(OptionButton)D．编辑框(EditBox)

30．下列有关报表的叙述中，错误的是    (30)    。

    A．定义报表有两个要素，即报表的数据源与报表的布局

    B．在报表中若设置数据分组，可设置每组数据从新的一页开始打印

    C．在报表中若设置数据分组，最多可以设置一个分组依据

    D．报表可以不设定数据环境，即报表内容可以不与任何表和视图相关

二、填空题  (请将答案填写在答题纸的相应答题号内，每个答案只占一行)

1·数据库中的数据按一定的数据模型组织、描述和储存，具有较小的数据    (1  ) 度，较高的数据独立性和易扩展性，并可以供各种用户共享。

2．数据模型是数据库系统中用于数据表示和操作的一组概念和定义。数据模型通常由3部分组成，即数据结构、数据操作和数据的 ( 2 )约束条件。

3·Visual FoxPro系统支持3种不同的索引文件，即( 3 )索引文件、非结构复合索引文件和独立索引文件。

4·在面向对象的程序设计中，通过类可以简化应用程序的设计，因为类具有    (4) 、多态性、封装性、抽象性等特点。

5·函数LEN(sTR(123456789012))的返回值为    ( 5 )   ，函数LEN(DTOC(DATE()，1))的返回值为    (   6   )。

6．设在1号工作区中打开xS表，若要求在2号工作区中再次打开xs表且别名设置为XUESHENG，则可使用命令：USE XS    (7 ) xuesheng IN 2 AGAIN

7·数据库表的触发器(Trigger)是在对表的记录进行操作时被触发的检验规则。在VFP中，触发器分为3种类型，即更新触发器、删除触发器和(   8   )触发器。

8．利用DBGETPROP0'函数，可以获取当前数据库的属性设置信息，或当前数据库中的表、表字段或视图的属性设置信息。例如，要获取当前数据库SJK中XS表的xb字段的默认值，可以使用函数

  DBGETPROP("Xs．xb”，”Field”，”    ( 8 )”)。

9．某数据库表GP．DBF包含的字段分别是dm(股票代码，字符型)、mc(股票名称，字符型)、jg(当前价格，数值型)和zdf(与上个交易日相比涨跌幅的百分数，数值型)，其部分数据如下表所示(zdf值为正数表示上涨，负数表示下跌)：

dm	mc	jg	zdf
600088	中视传媒	25.56	3.02
600143	金发科技	32.16	-2.25
600220	江苏阳光	9.00	-1.96
600266	北京城建	31.39	2.62
600519	贵州茅台	105.51	-O.53
600839	四川长虹	7.59	-1.30
600887	伊利股份	31.33	1.46
……

下列SQL命令查询并显示上涨的股票信息(若上涨股票超过10种，则仅显示上涨幅度最大的前10种股票信息)。

   SELECT (   10   ) dm As 股票代码, mc As 股票名称, jg As 当前价格, zdf as 涨幅度  From gp;

    (    11   )；
 ORDER BY zdf DESC

lO．在教学管理数据库SJK中有2个表：  KC．DBF(课程表)和CJ．DBF(成绩表)，表结构如下：

KC．DBF
字段名	含义	字段类型及宽度
KCDH	课程代号	C(8)
KCM	课程名	C(26)
XF	学分	N(2)

CJ．DBF
字段名	含义	字段类型及宽度
XH	学号	C(10)
KCDH	课程代号	C(3)
CJ	成绩	N(3)

则可用下列SQL命令查询总学分大于100的学生的学号和学分。(注：成绩为60或60以上才能获得相应学分，否则学分为0)：

  SELECT ca．xh，SUM(    12    )AS总学分；

    FROM sjk!Kc INNER JOIN sjk!cj：

    WHERE ca．Kcdh=Kc．Kcdh；

    GROUP BY Cj.Xh；

    (13)    总学分>100

11·已知某数据库表KCYZ．DBF含有5个字段，若其中有一个名为bxk的逻辑型字段，则可用下列SQL命令查询bxk字段值为．T．的所有记录，且要求输出所有字段，输出结果保存在表TEMP．DBF中。

    SELECT    (   14   )   FROM kcyz；

    WHERE bxk=．T．：

    (   15   )Table temp

12·在VFP命令窗口中输入并执行命令    (   16   ) ．FontSize=20，可以使VFP主窗口中输出文本的字号设置为20。

13．某单位人力资源管理系统中有人员档案表RYB．DBF和员工收入表SRB．DBF，其结构分别如下：

RYB．DBF
字段名	字段含义	字段类型及宽度
GH	工号	C(8)
XM	姓名	C(8)
XB	性别	C(2)
CSRQ	出生日期	D
ZW	职务	C(10)

SRB．DBF
字段名	字段含义	字段类型及宽度
GH	工号	C(8)
SRXM	收入项目	C(3)
SRRQ	收入日期	D
JE	金额	Y
BZ	备注	M

  某表单运行后如下图所示，其数据环境包含RYB．DBF和SRB．DBF表。表单上有3个文本框，其对象名分别为Textl、Text2和Text3，分别用于显示总收入、所得税和实际收入。

  列表框(Listl)的InteractiveChange事件代码的功能是：当选中列表框中一名员工时，表格(Gridl)中显示出该员工的收入项目、收入日期、金额和备注，且表格中数据只读，文本框Textl、Text2和Text3分别显示该员工的总收入、所得税和实际收入。(注：所得税计算的算法见代码。)

    (1)根据以上所示的表单，填写列表框、表格和”退出”命令按钮的有关属性值：

    ·列表框的RowSourceType属性值为”2-别名”

    RowSource属性值为    (   17   )

    ColumnCount属性值为    (   18   )

    ·表格的    (   19   )    属性值为．T．(实现数据只读)

    ·命令按钮的Caption属性值为    (   20   )；

    (2)列表框Listl的InteractiveChange事件代码如下：

    cGh=ALLTRIM(THIS.Value)  &&变量cGh已在表单的Init事件代码中设置为公共变量

    SELECT SUM(je) FROM srb WHERE gh=cGh  INTO  (   21   )    m  &&变量m为数组

    DO CASE    &&根据该月份的总收入分段计算所得税

       CASE m(1)>1600 AND m(1)<2101

            nse=(m(1)-1600)*0.05

      CASE m(1)>2100 AND m(1)<3601

            nse=500*0.05+(m(1)-2100)*0.1

      CASE m(1)>3600 AND m(1)<6601

            nse=500*0.05+1500*0.1+(m(1)-3600)*0.15

      CASE m(1)>6600

            nse=500*0.05+1500*0.1+3000*0.15+(m(1)-6600)*0.2

    ENDCASE

    THISFORM.Textl.Value=m(1)

    THISFORM．Text2．Value=    (   22   )

    THISFORM．Text3．Value=THISFORM．Textl．Value-THISFORM．Text2．Value

    SELECT    (   23   )

    SET FILTER TO gh=cGh

    Go  TOP

    THISFoRM.REFRESH

14．完善下列程序，计算3+33+333+3333+33333+……前十项之和。

    CLEAR

    m=3

    n=0

    s=0

    FoR i=l TO 10

       n=    (   24   )

       s=s+n

ENDFoR

15.完善下列程序，使两个程序的功能相同。

[程序清单1]

CLEAR

S=0

P=1

For i=1 to 20

     P=(   25   )

     S=s+p

ENDFOR

? s

[程序清单2]

CLEAR

S=0

N=1

For i=1 to 20

   M=1

   For n=1 to i

      M=m*n

   Endfor

   S=s+m

Endfor

? s

16.执行下列主程序后，输出结果为(   26   )

****主程序****

CLEAR

Public x, y ,z

  X=3

  Y=4

  Z=5

Do pp

? x+y+z

****过程****

Procedure   PP

   LOCAL x

   X=5

   Y=7

   Z=x+y

EndPROC

17.完善下列程序，是程序的结果如下图所示

1*1=1  1*2=2  1*3=3  1*4=4  1*5=5  1*6=6  1*7=7  1*8=8  1*9=9

2*2=4  2*3=6  2*4=8  2*5=10 2*6=12 2*7=14 2*8=16 2*9=18

3*3=9  3*4=12 3*5=15 3*6=18 3*7=21 3*8=24 3*9=27

4*4=16 4*5=20 4*6=24 4*7=28 4*8=32 4*9=36

5*5=25 5*6=30 5*7=35 5*8=40 5*9=45

6*6=36 6*7=42 6*8=48 6*9=54

7*7=49 788=56 7*9=63

8*8=64 8*9=72

9*9=81

*****程序*****

CLEAR

FOR i=1 TO 9

   FOR j=1 TO 9

      If i<=j

         ?? STR(I,1)+”*”+STR(j,1)+”=“+(   27   ) +|SPACE(2)

      ENDIF

   ENDFOR

 (   28   )

ENDFOR

18·将菜单设置为VFP系统默认菜单的命令是SET (   29   )  To DEFAULT。19.在Visual FoxPro系统中，建立事件循环的命令为    (   30   ) 。