明天要考试了，题目还不会做，请VFP高手赐教

一、单项选择题（每小题1分，共20分）

1、表达式{99/09/09}-ctod(“99/08/30”)的数据类型是（ ）。

A、C B、N C、D D、L

2、关系数据库中常见的关系运算应包括是（ ）。

A、选择、投影、连接 B、选择、制表、逻辑

C、投影、统计、逻辑 D、制表、统计、连接

3、不是Visual Foxpro支持的循环结构是（ ）。

A、do while -enddo B、scan-endscan C、for-endfor D、if-endif

4、下列函数中，将数值转换为字符的是( )。

A、CTOD() B、VAL() C、DTOC() D、STR( )

5、执行了AA=‘100’ 之后，再执行？‘200’+‘&AA’的结果是（ ）。

A、200&AA B、300 C、200100 D、出错信息

6、表达式:MOD(24,-7)的值（ ）。

A. 3 B . –4 C. 4 D. –3

7、数据表有字段:姓名(C,10),工资(N,2).直接显示当前记录的姓名及工资,应用（ ）命令。

A. ?姓名+工资 B.?姓名-工资

C. ?VAL(姓名)+工资 D.?姓名+STR(工资,2)

8、在Visual Foxpro的命令中，<范围>选项的内容不包括（ ）。

A、next n B、record n C、rest D、go n

9、Visual Foxpro的ZAP命令可以删除当前数据表文件的（ ）。

A、结构和所有记录 B、所有记录

C、满足条件的记录 D、有删除标记的记录

10、下列符号中不是变量名的是（ ）。

A、‘姓名’ B、性别 C、A100 D、AB

11、执行A=“12．数据库”和B=20两条赋值命令后，能够正确求值的表达式是( )。

A、RIGHT(A,4)+SUBSTR(B,2) B、VAL(LEFT(A,1))+B

C、A+B D、SUBSTR(A,1，1)+B

12、不需要对数据库表文件排序或建立索引就可引用的命令是（ ）。

A、total B、find C、seek D、sum

13、select 0的功能是（ ）。

A、选择工作区号最小的空闲工作区 B、选择工作区号最大的空闲工作区

C、选择当前工作区号1的工作区 D、随机选择一个工作区的区号

14、以下（ ）命令实现统计数据表的记录数。

A、sum B、continue C、count D、average

15、DB(数据库)、DBMS(数据库管理系统)和DBS(数据库系统)三者之间的关系是( )。

A、DB包括DBMS和DBS B、DBS包括DB和DBMS

C、DBMS包括DBS和DB D、DBS与DB和DBMS无关

16、关于信息和数据，下列叙述正确的是（ ）。

A、信息与数据，只有区别，没有联系 B、数据是信息的载体

C、同一信息用同一数据表示形式 D、信息就是数据

17、建立索引是为（ ）。

A、提高查询速度 B、减少I/O C、节约空间 D、减少缓冲区个数

18、已知商品数据表sp的结构为（商品代码C10，品名 C30 ，单价N5，产地C10）。查询商品代码的值是奇数，并且单价小于1000的全部商品信息的VFP一SQL语句是（ ）。

A、 list for sqrt (val (商品代码),2)<>0 and 单价<1000

B、 select where mod (val (商品代码)，2)<>0 and单价<1000

C、 select * from sp where mod (val (商品代码),2)<>0 and 单价<1000

D、 select where mod (val (商品代码),2)<>0 and 单价<1000

19、与下列语句序列等效的删除命令是（ ）。

DO WHILE .T.

IF 性别◇"女"

EXIT

ENDIF

IF籍贯="重庆"

DELETE

ENDIF

SKIP

ENDDO

A、 DELETE FOR 性别="女" .AND. 籍贯="重庆"

B、 DELETE WHILE 性别="女".AND. 籍贯="重庆"

C、 DELETE FOR 性别="女" WHILE籍贯="重庆"

D、 DELETE WHILE 性别="女" FOR 籍贯="重庆"

20、显示当前数据表中所有年龄既不低于30岁又不超过50岁的人员，应选用命令（ ）。

A、list 姓名 for 年龄>=30 or 年龄<=50

B、list 姓名 for 年龄>30 or 年龄<50

C、list 姓名 for 年龄>=30 and 年龄<=50

D、list 姓名 for 年龄>30 and 年龄<50

二、多项选择题（每小题1分共10分）

1、以下哪些是程序设计的基本结构（ ）。

A、分支 B、复制 C、选通 D、循环 E、顺序

2、能释放内存变量的命令是（ ）。

A、release all B、clear all C、clear D、clear memo E、quit

3、在Visual Foxpro环境下，建立排序文件时，能作为关键字段的数据类型是（ ）。

A、C B、M C、N D、L E、G

4、计算机数据管理经历的阶段有（ ）。

A、自动管理阶段 B、文件系统管理阶段 C、人工管理阶段

D、无人管理阶段 E、数据库系统管理阶段

5、下列叙述中正确的是( )。

A、事件既可以由系统引发，也可以由用户激发

B、事件代码能在事件引发时执行

C、事件不能自定义，由VFP事先设定

D、在容器对象的嵌套层次里，事件的处理遵循独立性原则，即每个对象独立识别及处理属于自己的事件。

E、事件代码不能由程序员修改

6、下列函数中，返回逻辑值的有（ ）。

A、col() B、delete() C、file() D、recno() E、found()

7、以下函数要求其参数X为字符类型的有（ ）。

A、at(x,x) B、str(x) C、val(x) D、substr(x,m,n) E、left(x,m)

8、在一个原已有6条记录的数据表中继续输入记录，应采用的数据输入方式是（ ）。

A、立即输入方式 B、自动输入方式 C、随意输入方式

D、人工输入方式 E、追加输入方式

9、在Visual Foxpro环境下，能移动记录指针的命令有（ ）。

A、locate B、browse C、find D、go E、skip

10、Visual Foxpro中的表达式有（ ）。

A、算术表达式 B、混合表达式 C、字符表达式

D、关系表达式 E、逻辑表达式

三、是非判断题(正确的打“√”，错误的打“×”。每小题1分，共10分)

1、内存变量名可以是任意字符打头，后跟字母、数字和下划线，长度不超过10个字符。

2、关系模型的‘域’指属性的取值范围。

3、空格字符在字符串中没有意义。

4、数据库刚打开时记录指针指向首记录, 且bof()函数值为f。

5、 函数mod（26，-3）的结果是2。

6、关系的每一个分量必须是一个不可分的数据项。

7、选择运算就是在一个关系中选出满足指定条件的那些记录。

8、“程序”-space(2)+“设计”和“程序”+space(2)-“设计”两个表达式的结果在屏幕上均显示为“程序设计”。

9、记录删除命令delete、zap和pack有区别。

10、在Visual FoxPro中，seek、find均在索引或排序的数据表中查询。

四、填空题（每空2分，共20分）

1、已知教师表js．dbf有如下记录：

Recold# 编号 姓名 年龄 职称 工作量

l 100l 张红 36 讲师 690

2 1002 刘平 31 讲师 680

3 1003 王山 22 助教 820

4 1004 陈七 46 副教授 960

5 1005 李剑 40 教授 l100

6 1006 米丽 50 副教授 920

7 1007 赵国强 47 教授 1200

下列三条VFP-SOL语句分别完成指定的数据表操作，请填空完成。

(1)查询所有讲师的姓名、工作量。

Select from js where职称=“讲师”

(2)按职称分组，计算出各职称组的平均工作量。

Select 职称，avg(工作量) from js

(3)根据人事政策，对年龄低于50岁的员工工作量进行更新，原工作量加5%元。

Update js set where 年龄<50

5、有xsda.dbf(学号，姓名，性别，年龄等字段),xscj.dbf(学号，课程号，考试成绩等字段),xskc.dbf(课程号，课程名，任课教师等字段)有如下程序：

set talk off

sele 1

use xsda

index on 学号 to xsda_xhi

sele 2

use xskc

index on 课程号 to xskc_kchi

sele 3

set relation to 学号 into a

list 学号,a->姓名,a->性别, b->课程名,b->任课教师,考试成绩

close all

五、读程序写运行结果（每小题5分，共20分）

1、数据库表文件grade.dbf的内容如下：

record# 学号 姓名 成绩

1 98104 张三 78

2 98102 李四 90

3 98101 王五 82

4 98103 周六 64

5 98105 郑七 85

SET TALK OFF

clea

use grade

n=1

zd=成绩

scan

if 成绩<zd

zd=成绩

n=recno( )

endif

endscan

go n

?学号，姓名，成绩

use

set talk on

2、set talk off

s=0

x=1

do while x<=11

if mod(x,2)<>0

s=s+x

endif

x=x+1

enddo

?“s=”+str(s,4)

set talk on

3、已知数据表内容为：

姓名 性别 籍贯

苗妙 女 重庆

李全西 女 北京

迪来 男 上海

数据表己打开(未索引或排序)，请写出以下程序段运行的结果。

DO WHILE ．NOT．EOF()

lF性别=”男”

EXIT

ENDIF

IF籍贯◇”重庆”

??姓名+space(4)

ENDIF

SKlP

ENDDO

4、以下程序运行时输入：6和9。请写出程序运行的结果。

Set talk off

Clear

Strore 0 to max,min

@11,25 say “请输入第一个数 ” get max

@12,25 say “请输入第二个数 ” get min

read

if min>max

t=min

min=max

max=t

endif

do while min<>0

temp=min

min=max％min

max=temp

enddo

?max

set talk on

六、程序设计题（20分）

有如下两个销售数据表文件，其结构如下：

客户订货表guest.dbf：编号（c/10）,客户名（c/10）,联系电话(c/10)。

货品清单表wares.dbf：编号（c/10），品名（c/10），单价（n/10/2），数量（n/6）,已发货（l/1）,已付款（l/1）。

编写一个查询客户未付款货品清单的程序。要求：当输入客户名称时，首先判断有无此客户，若有则显示该客户已发货但未付款货品清单，显示格式如下：

客户已发货未付款货品清单

客户名 货品名 单价 数量

…… …… …… ……

…… …… …… ……

…… …… …… ……

…… …… …… ……

第二套：

一、 单项选择题（每小题1分，共20分）

1、DBMS 的意思是（ ）。

A、数据库管理系统 B、关系型数据库系统

C、对象—关系型数据库系统 D、结构化查询语言

2、在关系数据库中,为了简明地表达数据间的关系,采用的是（ ）。

A、数组形式 B、层次形式 C、二维表格形式 D、矩阵形式

3、执行命令：x=ctod(‘11/29/95’)后,变量X的类型为（ ）。

A、日期型 B、数值型 C、备注型 D、字符型

4、date()函数返回值的数据类型是( )。

A、数值型 B、字符型 C、逻辑型 D、日期型

5、表达式SUBSTR(RIGHT("CHONGQINGJIAOTONG"，8)，5，4)的结果是( )。

A、CHONG B、QING C、JIAO D、TONG

6、表达式:30-MOD(-2,7)的值（ ）。

A、28 B 、 32 C、 23 D、25

7、通用字段的数据宽度为4，它存放的是( )．

A、多媒体数据 B、文件名称 C、FPT指针 D、CDX指针

8、设x=100，Y=600，H="X+Y"，则表达式1+&H的值是( )

A、701 B、数据类型不匹配 C、1+X+Y D、601

9、有如下命令序列

X=1

Y=2

Z=3

?Z=X+Y

执行最后一条命令后，显示的结果应该是( )。

A、X+Y B、3 C、 .F． D、 .T．

10、下列符号中不是变量名的是（）。

A、‘姓名’ B、入学总分 C、X300 D、AB

11、下列命令中，不能关闭数据表文件的命令是（ ）。

A、clear B、use C、close all D、quit

12、可输入各种类型数据的输入命令是( )。

A、WAIT B、ACCEPT C、INPUT D、INKEY(0)

13、SELECT 0的功能是（ ）。

A、 选择工作区号最小的空闲工作区 B、选择工作区号最大的空闲工作区

C、选择当前工作区号+1的工作区 D、随机选择一个工作区的区号

14、已知商品数据表goods的结构为(代码cl0，品名c30，单价n5，供应商代码c10)。查询 “品名，单价”两个字段并且单价大于200的全部商品的VFP-SQL语句是。( )

A、select * from goods where单价>200

B、select * whi le单价>200

C、select品名，单价from goods where单价>200

D、select品名，单价where单价>200

15、用DIMENSION命令定义数组后，各数组元素在没有赋值之前的数据类型是（ ）。

A、C型 B、N型 C、L型 D、未定义

16、将学生档案数据表中所有少数民族学生的入学总分增加10分，应使用的命令是( )。

A、 REPLACE 入学总分 WITH 10 FOR 民族<>"汉"

B、 REPLACE 入学总分 WITH 入学总分+10 WHILE民族<>"汉"

C、 CHANGE 入学总分 WITH 入学总分+10 FOR民族<>"汉"

D、 REPLACE 入学总分 WITH 入学总分+10 FOR民族<>"汉"

17、已知商品数据表goods的结构为(代码cl0，品名c30，单价n5，供应商代码c10)，查询全部不重复的“单价” 的VFP-SQL语句是。( )。

A、 select单价top from goods。 B、 select‘单价’top from goods

C、 select distinct‘单价’from goods D、select distinct单价from goods

18、数据库表的扩展名为（ ）。

A、*.dbf B、*.scx C、*.dbc D、*.cdx

19、在FoxPro环境下，通常是在（ ）窗口中输入命令。

A、browse B、command C、SQL D、VIEW

20、如果要在运行期间改变表单的标题显示为：“查询”，需要执行事件代码( )。

A、 thisform．Name=“查询” B、 thisform．Caption=“查询”

C、 thisform．Text=“查询” D、 thisform．Value=“查询”

一、 多项选择题（每小题1分共10分）

1、以下Visual Foxpro表达式中，合法的是（ ）。

A、8-3=5 B、{99/01/01}+15 C、[8]+[3]>10

D、at(‘ad’, ‘xyadvanad’)- len(‘adadad’) E、‘abc’-‘add’

2、Visual Foxpro支持的选择结构有（ ）。

A、if --endif B、if—endif C、for--endfor

D、do case--endcase E、scan--endscan

3、在Visual Foxpro环境下，内存变量的数据类型有（ ）。

A、C B、D C、N D、L E、G

4、下列在给变量rq赋值的方式中，使其成为日期型变量的有（ ）。

A、store “04/12/01”to rq B、rq= ctod(“04/12/01”)

C、store date()-15 to rq D、 rq={04/12/01}+15 E、rq={04/12/01}-{04/02/01}

5、下列数据中属于字符型常量的有（）。

A、75.75 B、“75.75” C、[75.75] D、’ 75.75’ E、“I’m [a] student ”

6、设A1=’123’，B1=’234’，以下表达式的结果为假(．F．)的有( )

A、．NOT．A1=B1．0R．B1>’ABC’ B、．NOT．A1<>B1

B、．NOT．A1<>’ABC’．AND．A1<>B1 D、．NOT．A1>=B1

E、substr(A1，2)=Left(B1，2)

7、以下函数要求其参数X为数值类型的有（ ）。

A、at(x,x) B、str(x) C、val(x) D、mod(x,x) E、int(x)

8、在下列函数调用中，正确的有（）。

A、str(day(date()),2) B、val(123) C、trim(‘abc’)

D、substr(dtoc(date()),7) E、INT(VAL('-22.62'))

9、在下面函数中，函数值为数值的有（ ）。

A、SUBSTR(DTOC(DATE( )),7) B、CTOD(‘01/01/98')

C、AT('人民','中华人民共和国') D、len('-22.62')

E、val(subs(“1299009”,at(“9”, “105920”),3))

10、Visual Foxpro中的表达式有（ ）。

A、算术表达式 B、混合表达式 C、字符表达式

D、关系表达式 E、逻辑表达式

三、是非判断题(正确的打“√”，错误的打“×”。每小题1分，共20分)

1、数据就是信息，信息就是数据。

2、关系模型的‘域’指属性的取值范围。

3、空格字符与空串无区别。

4、数据表刚打开时记录指针指向首记录, 且bof()函数值为.t.。

5、函数mod（26，-3）的结果是2 。

6、“学生”．0R．“教师”是合法的逻辑表达式。

7、在关系数据库中最常用的关系是一对一关系。

8、打开一个含有记录的数据表，则BOF()返回值为．T．，其记录号为1。

9、日期型数据之问不能进行加法运算，但可以进行减法运算。

10、用skip移动记录指针，在任何情况下，都不会出现超界警告。

四、填空题（每空2分，共20分）

1、计算机等级考试的查分程序如下,请填空

set talk off

use stu index st

accept “请输入准考证号:” to nn

seek

if found( )

? 姓名,“成绩:”+str(成绩,3,0)

else

? “查无此人!”

close all

set talk on

retu

2、有一表单程序的功能是输入一个数，显示它的八折值'，如图所示。

左边的图是输入数据的状态，右边的图是计算后的显示状态。该表单的设计思路是添加名称为label1的标签和名称为text1的文本框控件，label1用于显示提示信息，text1存放输入数据、计算结果信息。利用文本框的valid事件触发，编写计算程序。因为文本框的值为字符型，用变量x存放折算数。以下是对应的valid事件代码，请填空完成。

x=

thisform.text1.value=str(x)

thisform. ="这个数的八折是："

3、在visual foxpro中，一个工作区至多可打开 个.dbf文件。

4、请完善程序，实现在屏幕上显示如下图形：

1

222

33333

4444444

for i=1 to

for j=1 to

?? str(i,1)

endfor

return

五、读程序写运行结果（每小题5分，共20分）

1、请写出以下程序运行的结果。

SET TALK OFF

CLEAR

x=0

for i=l to 4

x=i

do sub with x

?x

endfor

procedure sub

parameters y

y=y*y*y

return

2、有数据表（perform.dbf）内容如下

Record# 工号 姓名 年龄 工种 奖金 工资

1 1458 王后 30 4车工 1000 500

2 1479 老衲 55 4车工 800 800

3 1480 高海军 26 1班长 1500 700

4 1500 车又君 32 3钳工 1100 580

5 1503 海健康 37 2办事员 600 380

写出以下程序的执行结果。

set talk off

use perform

index on 工种+str(奖金,4) to iiper

go top

calc max(奖金),max(工资),min(年龄),sum(工资),avg(奖金) to a,b,c,d,e

?a,b,c,d,e

total on 工种 to per2 fields 工号,工种,奖金,工资

use per2

list off for val (left(工号,2))=14

use

return

3、set talk off

s=0

x=1

do while x<=11

if mod(x,2)<>0

s=s+x

endif

x=x+1

enddo

? “s=”+str(s,4)

set talk on

4、 set talk off

clea

store ‘name’ to s

w=‘西部大开发’

c=‘重庆’

a=subs(w,1,4)+subs(w,at(‘开’,w),4)

?’s=‘+s

?’&a.在&c’

set talk on

return

六、程序设计题（20分）

某教材库存数据表和出入库数据表：

教材库存表stock：编号／c／5，书名／c／10，库存量／n／6；

教材出入库数据表shell：编号／c／5，标志／L／1，数量／n／5，其中标志字段为“真”时代表入库，为“假”时代表出库。

试编写程序，根据shell表的数据更新stock表的库存量。具体算法是: 如果标志字段为“真”，将数量增加到stock对应的库存量；如果标志字段为“假”，从stock对应的库存量中减去数量。