VFP练习题(精华哦!)

VFP程序设计练习题

一、选择题

1、 Visual FoxPro 是一个。

A. 数据库系统

B. 数据库管理系统

C. 数据库

D. 数据库管理员

2、实体是信息世界的术语，与之对应的数据库术语是。

A. 文件

B. 数据库

C. 记录

D. 字段

3、数据库系统与文件系统的最主要区别是。

A.数据库系统复杂，而文件系统简单

B.文件系统只能管理程序文件，而数据库系统能够管理各种类型的文件

C.文件系统管理的数据量较小，而数据库系统可以管理庞大的数据量

D.文件系统不能解决数据冗余和数据独立性问题，而数据库系统可以解决

4、目前三种基本的数据模型是 ________ 。

A. 层次模型、网络模型、关系模型

B. 对象模型、网络模型、关系模型

C. 网络模型、对象模型、层次模型

D. 层次模型、关系模型、对象模型

5、数据库管理系统是 ________ 。

A. 教学软件

B. 应用软件

C. 计算机辅助设计软件

D. 系统软件

6、关系型数据库采用 ________ 表示实体和实体间的联系。

A. 对象

B. 字段

C. 二维表

D. 表单

7、下列表达式中，合法的是。

A. Year(Date())-{2000/08/02}

B. Date()-{2000/08/02}

C. Date()+{2000/08/02}

D. A、B、C 均对

8、表达式?round(123.456,0)

A..T.

B..F.

C.FALSE

D.TRUE

9、下面4个关于日期表达式中，错误的是哪个。

A.{^2002/02/01 11:10:10 am}-{^2001/09/01 11:10 10 AM}

B.{^2002/02/01}+15

C.{^2002/02/01}+{^2001/01/01}

D.{^2007/07/01}-{^2002/09/01}

10、下列逻辑运算的结果为“假”的是。

A.?”abcde”==”abcde”

B.?not(round(223.456,2)

C.?{^2007/05/01}+30>{^2007/06/26}

D.?”abc”<”abcde”

11、在 Visual FoxPro 系统中，以下函数返回值不是数值型的是。

A.LEN（”Visual FoxPro” ）

B.AT（”This””ThisForm” ，）

C.YEAR（DATE（））

D.LEFT（”ThisForm” ，4）

12、下列表述中，能将日期“2004 年 10 月 16 日”赋值给日期型变量 D 的正确

语是。

A.D=10/16/2004

B.D="10/16/2004"

C.D=CTOD("10/16/2004")

D.D=DATE("10/16/2004")

13、下列字段名中，合法的是。

A._income

B.stu name

C.12xyz

D.m_age

14、在 Visual FoxPro 系统中，下列命名中不能作为变量名的是。

A.姓名

B.2004 姓名

C.姓名 2004

D._2004 学生

15、函数 SUBSTR("VisualFoxPro5.0",7,6)的返回值是______。

A. lFoxPro

B. FoxPro

C. FoxPro5

D. FoxPro5.0

16、VFP 的循环语句有______ 。

A. DO WHILE，FOR 和 SCAN

B. DO WHILE ，FOR 和 LOOP

C. FOR，SCAN 和 LOOP

D. DO CASE 和 DO WHILE

17、以下赋值语句正确的是。

A.STORE 12+15 TO A,B

B.A=2 B=12

C.STORE 3,7 TO A,B

D.A,B=8

18、表达式len(space(0))的值是。

A、0

B、 1

C、6

D、8

19、学生表（XS.DBF）的表结构为：学号（XH，C，8），姓名（XM，C，8），性别（XB，

C，2），班级（BJ，C，6），用 Insert 命令向 XS 表添加一条新记录，记录内容为：XH 10 XM 李小平 XB 男 BJ 984461 下列命令中正确的是____ 。

A. INSERT INTO XS VALUES ("10","李小平","男","984461")

B. INSERT TO XS VALUES ("10","李小平","男","984461")

C. INSERT INTO XS（XH，XM，XB，BJ） VALUES (10,李小平,男,984461)

D. INSERT TO XS（XH，XM，XB，BJ） VALUES ("10","李小平","男","984461")

20、学生表（XS.DBF）的表结构为：学号（XH，C，8），姓名（XM，C，8），性别（XB，

C，2），班级（BJ，C，6），并且按 XH 字段设置了结构复合索引，索引标识为 XH，如果 XS 表不是当前工作表，则下列命令中____可以用来查找学号为“96437101”的记录。

A. SEEK 96437101 ORDER XH

B. SEEK “96437101” ORDER XH

C. SEEK “96437101” ORDER XH IN XS

D. SEEK 96437101 ORDER XH IN XS

21、在当前表中，查找第2个男同学的记录，应使用命令。

A.locate for 性别=”男”

B.locate for 性别=”男”

go next 2

C.list for 性别=”男”

D.locate for 性别=”男”

continue continue

22、使用REPLACE命令时，如果范围短语为ALL或REST，则执行该命令后记录指针指

向。

A.首记录的前面

B.首记录

C.末记录的后面

D.末记录

23、对 xsb.dbf 表进行删除操作，下列四组命令中功能等价的是。

1）DELETE ALL 2）DELETE ALL PACK 3）ZAP 4）把 xsb.dbf 文件拖放到回收站中

A.1）、3）、2）

B.3）、4）

C.2）、3）

D.2）、4）、3）

24、在学生档案表中，删除“班级”字段SQL命令是。

A.ALTER TABLE XSDA DELTETE 班级

B.ALTER TABLE XSDA DELETE COLUMN 班级

C.MODI TABLE XSDA DROP COLUMN 班级

D.ALTER TABLE XSDA DROP 班级

25、已知当前表中有60条记录，当前记录为第6号，在执行命令skip 3，当前为第几号记

录。

A.3

B.4

C.8

D.9

26、在 Visual FoxPro 系统中，测试表文件指针是否已到文件尾的函数是。

A.BOF()

B.EOF()

C.END()

D.FILE()

27、对数据表建立性别（C,2）和年龄（N,2）的复合索引时，正确索引关键字表达式为。

A.性别+年龄

B.性别

C.性别，年龄

D.性别+str（年龄）

28、表（table）是存储数据的容器。在下列有关 VFP 表的叙述中，错误的是。

A.系统默认的表文件扩展名为.dbf

B.利用表设计器创建表结构时，系统默认的字符型字段宽度为 10

C.自由表的索引功能与数据库表有区别

D.表文件名在命名时只要遵循操作系统的规定，VFP 本身无任何新的限定

29、对于自由表而言，不允许有重复值的索引是 _______ 。

A. 主索引

B. 侯选索引

C. 普通索引

D. 唯一索引

30、若要以数据表中的“性别”字段为索引关键字建立索引，以下错误的命令是。

A.index on 性别 to xb

B.index on 性别 tag xb

C.index on 性别 tag xb to xb

D.index on 性别 tag xb of xb

31、要求一个表中的数值型字段数据精度4位小数，则该字段的宽度至少定义为 ________ 。

A. 4 位

B. 5 位

C. 6 位

D. 12 位

32、数据库表的参照完整性规则包括更新规则、删除规则和插入规则。其中，插入规则可以

设置为。

A. 级联，或限制，或忽略

B.级联，或忽略

C. 级联，或限制

D. 限制，或忽略

33、数据库表的字段扩展属性中，通过对的设置可以限制字段的内容仅为英文字母。

A. 字段格式

B. 输入掩码

C. 字段标题和注释

D. 字段级规则

34、在 Visual FoxPro 系统中，对于数据库表来说，有多种手段控制数据的有效性。在下

列的叙述中，错误的是。

A.通过设置字段的格式(Format)属性，可以使输入字段的英文字符自动大写

B.字段的有效性规则可以为一个用户自定义函数

C.记录的有效性规则可以用来控制同一条记录中多个字段之间的关系

D.在数据库表之间创建永久性关系并设置参照完整性规则，可使两个表之间的记录一一

对应

35、参照完整性的作用是。

A.字段数据的唯一性

B.记录中相关字段间的数据有效性

C.表中数据的完整性

D.相关表之间的数据一致性

36、在VFP中，如果希望一个内存变量只限于在本过程中使用，则是。

A.private

B.public

C. local

D.在程序中直接使用的内存变量

37、在下列有关 VFP 的类、对像和事件的叙述中，错误的是。

A.对象是基于某种类所创建的实例，它继承了类的属性、事件和方法

B.基类的最小事件集包含 Click 事件、Load 事件和 Destroy 事件

C.事件的触发可以由用户的行为产生，也可以由系统产生

D.用户可以为对象添加新的属性和方法，但不能添加新的事件

38、下面关于“类”的描述，错误的是。

A.一个类包含了相似的有关对象的特征和行为方法

B.类只是实例对象的抽象

C.类并不执行任何行为操作，仅表明该怎么做

D.类可以按所定义的属性、事件和方法进行实际的操作

39、下列 VFP 类中，不能基于它创建子类（派生类）的是。

A.线条（Line）

B.页框（PageFrame）

C.标头（Header）

D.形状（Shape）

40、SQL语句不具有的功能是。

A.数据操纵

B.数据备份

C.数据定义

D.数据查询

41、SQL命令中的insert功能是。

A.在表头插入一行记录

B.在表尾插入一条记录

C.在表中指定位置插入一条记录

D.在表中指定位置插入若干条记录

42、在SQL查询命令中，HAVING字句的作用是。

A.指定分组查询的字段

B.指定分组应满足的范围

C.指定分组应满足的条件

D.指定分组查询的值

二、填空题

1、数据库理论中，数据库的数据模型先后经历了、、和面对对象模

型几个阶段。

2、关系模型是用的结构形式表示实体及其实体间的关系。

3、关系数据模型由、和三大要素组成。

4、在关系数据库中，二维表的列称为，行成为。

5、在 VFP 中，关闭所有的文件并结束当前 VFP 系统运行的命令是。

6、表达式“ABC”>“BC”的值是。LEN(ALLTRIM("3.14"))的值是。

7、函数BETWEEN(34,28 ,52)的运行结果是。

8、？VAL(SUBSTR(“1996”,3))+10的值是，?”xyz ”-“abc”的值是。

9、字段名由字母、汉字、数字或下划线等组成，其长度不超过个字符。

10、当打开的表为一个空表时，函数 RECNO()的值为________。

11、Visual FoxPro 系统通过表间级、记录级、_______ 的完整性与一致性。

12、在数据库系统中，数据的完整性，主要是指数据的和。

13、文本框__ _ 属性设置为“*”用户键入的字符在文本框内显示时为“*”，但属性

Value 中仍保存键入的字符串。

14、VFP中的表分为和，其中可建立永久关系。

15、若已经为在当前工作区中打开的表设置了主控索引，将记录指针移动到物理顺序的第一条记录，所用的命令为 GOTO 1,而将记录指针移动到逻辑顺序的首纪录，所使用的命令为。

16、将记录指针定位到第一个满足条件的记录上，应使用命令 , 继续向下查找满足条

件的记录，可采用命令。

17、设表文件已经打开，为了确保指针定位到物理记录号为1的记录上，则应执行命令。

18、函数能够返回当前工作区的区号。

17、为了选用一个未被使用的编号最小的工作区,可使用命令_______。

19、VFP支持复合索引和两类索引文件，前者扩展名为后者扩展名为。复

合索引文件又有和两种。

20、字段值不允许重复，且一个表中只能创建一个的索引是。

21、在ALTER-SQL语句中，字句用来修改列性质，字句用来增加列。

22、VFP交互操作方式中又分为和。

23、在 VFP 中，使用、和 PUBLIC 命令可以指定内存变量的作用域。

24、VFP含有、、三种变量，并且明确了他们的分工。

25、在VFP中，利用Delete命令可以删除表的记录，必要时可以利用命令进

行恢复。

26、有一个表文件 XSDA，含有一个学号字段（XH，C，8）。利用 ALTER TABLE xsda

_____________COLUMN xh C(10)命令,可以将学号字段的宽度修改为10。

27、在报表设计器中，报表最多可以分为____ 种不同类型的报表带区（例如页标头区、细

节区等等）。

28、在VFP中建立报表可以通过、快速报表和三种方法完成。

29、恢复 Visual FoxPro 6.0 系统菜单的命令是_______。

30、菜单设计的结果，应作为菜单定义保存在扩展名为的菜单文件和扩展名为备

注文件中。

31、用户可以使用 VFP 的菜单设计器设计菜单。创建一个菜单后，系统会生成两个文

件： .mnx 和.mnt。菜单文件不能直接运行，当选中文件且执行“运行”操作时，系统首先自动生成两个文件：和然后运行它。

32、若要输入类似123456.78这样的数字，则需要在“输入掩码”输入。

33、应用程序的用户界面，可分为和两类。

34、VFP中的基类有和两种。

35、类（Class）是面向对象程序设计的核心。类具有许多特点，如继承性、、等，

其中是指包含和隐藏对象信息（如内部数据结构和代码）的能力，使操作对象的内部复杂性与应用程序隔离开来。

36、在数据库设计器中建立表间的联系时，要在父表中建立，在子表中建立。

三、程序填空题

1、此程序要求将 XSB 表的各个字段名的开头字母转换成A。

CLOSE TABLES ALL

USE XSB

n= _

FOR T=1 TO n

c=FIELD(T)

cc=”A”+SUBSTR (C,2)

TABLE XSB RENAME COLOUMN &c TO &cc

ENDFOR

CLOSE TABLES ALL

2、下列自定义函数实现计算阶乘n!功能。

FUNCTION JC

PARA NUM

S=1

FOR N=1 TO

S=S*N

ENDFOR

RETURN

3、此程序主要完成计算托运行李费用的功能。若X<=50kg，则运费按0.25

元/KG计；若X>50KG，则大于50KG的部分，按每公斤0.5元计。

INPUT “请输入行李重量：”TO

IF X>50

ELSE

ENDIF

@10,10 SAY “行李运费：”+STR(Y)

4、设学生表（XS.DBF）中含有：学号（XH，C， 8）姓名（XM， 8）和出生日期(CSRQ,D,8)

字段,该表所在的数据库的存储过程中有一个求学生年龄的自定义函数 AGE，代码如下：

FUNCTION age

PARAMETERS dBirthday

LOCAL nResult

nResult=-1

IF NOT EMPTY(dBirthday)

nResult=YEAR(DATE())-_ __

ENDIF

RETURN

5、下面程序功能是按姓名提供学生成绩的查询，请完成。

USE STUDENT

ACCEPT”请输入待查学生姓名：” TO XM

DO WHILE

IF

?”姓名：”＋姓名，”成绩：”＋STR(成绩,3,0)

ENDIF

ENDDO

SET TALK ON

6、下列程序的功能是求1到100之间所有整数的平方和并输出结果，请将程序填写完整。 S=0

DO WHILE X<=100

ENDDO

? S

RETURN

7、下列的自定义函数 YS（）的功能是：当传送一个字符型参数时，返回一个删除所有内

含空格之后的字符型数据。例如，执行命令？YS（“A B CD”），显示“ABCD”（注：OCCURS （）函数的功能是返回前一个字符表达式在后一个字符表达式中出现的次数。）

FUNCTION YS

PARAMETERS zz

IF OCCURS(SPACE(1),zz)>0 &&如果空格在变量ZZ 中出现的次数大于0 n=OCCURS(SPACE(1),zz)

FOR x=1 TO n

c=AT(SPACE(1), __ ,1)

zz=SUBSTR(zz,1,c-1)+ __

ENDFOR

ENDIF

RETURN zz

ENDFUNC

8、下面程序可以完成统计“RCDA”数据表中工资超过3000元的人数。

USE RCDA

RC=0

DO WHILE

IF 工资

ENDIF

SKIP

ENDDO

@2,30 SAY “工资在3000元以上的人数：”

@2,60 SAY

ENDCASE

9、自定义函数RV( )实现的功能是：将任意一串给定的字符倒序返回。

如执行RV(“ ABCD”)，则返回“ DCBA”，试将程序填写完整。

FUNCTION RV

PARAMERTERS CH

L=LEN(CH)

MCH=””

DO WHILE L >

MCH= MCH+SUBSTR(CH，，1)

L=L-1

ENDDO

RETURN

ENDFUNC

10、下面程序段的功能是根据数值型变量 X 的取值范围不同，给变量 Y 赋不同的值。该程序段中的多条命令可以简化为一条命令，这条命令是： Y=IIF （ X>0 ，1，）。

IF X>0

Y=1

ELSE

IF X= 0

Y=0

ELSE

Y=-1

ENDIF

ENDIF

11、下列程序的功能是计算：

S=1/(1*2)+1/(3*4)+…+1/(N*(N+1))的近似值。

当1/(N*(N+1))的值小于0.00001时，停止计算。

S=0

I=1

DO WHILE .T.

P=

S=S+1/P

IF 1/P< 0.00001

I=I+1

ENDDO

四、写出下列程序运行结果

1、已知学生表(XS.DBF)第一条记录内容如下：XH 字段值为“990101”，XM的字段值为“李林”，XB字段值为“男”，CSRQ 字段值为{08/23/82}，XIMING 字段值为“信息管理系” 。设系统日期为 2002 年 10 月 12 日。

【程序清单】

USE XS

M=ALLTRIM（XM）+SPACE（LEN（XB））+ALLTRIM（XIMING）

N=YEAR（DATE（））-YEAR（CSRQ）

NJ=SUBSTR(XH，1，2）

NN=YEAR（DATE（））-1900-VAL（NJ）

MN=IIF（MONTH（DATE（））>=9，STR(NN+1，2）+“年级” ，STR（NN，2）+“年级” ）则上述命令执行后，M、N、MN 的值分别为 _ 、 _ 、 _ 。

X=2.5

DO CASE

CASE X>1

Y=X+2

CASE X>2

Y=X-1

ENDCASE

? Y

执行上述程序运行结果是：

3、【程序清单】

STORE 5 TO N

STORE 1 TO T

DO WHILE N>0

STORE T*N TO T

STORE N-1 TO N

ENDDO

? “X=”,STR(T)

执行上述程序运行结果是：

4、【程序清单】

SET TALK OFF

STORE 4 TO N

？S（N）

FUNCTION S

PARAMETERS X

Y=1

P=0

FOR I=1 TO X

Y=Y*I

P=P+Y

ENDFOR

RETURN P

ENDFUNC

执行上述程序运行结果是：

PUBLIC a

a=1

c=5

DO sub

? a,b,c

* sub.prg

PRIVATE c

a=a+1

PUBLIC b

b=2

c=3

d=4

运行结果：

6、【程序清单】

C=“江苏省高等学校计算机等级考试”

DO SUB1

?LEFT（&X，6）+SUBSTR（C，15）+RIGHT（T，3）PROCEDURE SUB1

PUBLIC X，T

X=“C”

T=“数据库VFP”

RETURN

执行上述程序运行结果是：

7、【程序清单】

SET TALK OFF

CLEAR

X=20

IF X>0

IF X>15

Y=3*X+1

ELSE

Y=X*X+1

ENDIF

ELSE

Y=X*X+3*X-1

ENDIF

?”Y=”,Y

SET TALK ON

执行上述程序运行结果是：

8、【程序清单】

SET TALK OFF

N=101

DO WHILE N<=386

N3=INT(N/100)

X=N-N3*100

N2=INT(X/10)

N1=N-N2*10

IF N1!=N3

??N

ENDIF

N=N+100

ENDDO

SET TALK ON

执行上述程序运行结果是：

9、【程序清单】

CLEAR

x=”OK”

STORE “学习” TO y

OK=’努力’

?&x+(y)

执行上述程序运行结果是：

10、【程序清单】

SET TALK OFF

CLEAR

INPUT "请输入工作时间:" TO SJ IF SJ>150

GZ=SJ*15+(SJ-150)*15*0.1 ELSE

IF SJ<120

GZ=SJ*15-300

ELSE

GZ=SJ*15

ENDIF

ENDIF

?“本月应发工资:"+STR(GZ,8,2) RETURN

当输入工作时间为120时，结果：