FoxBASE综合试题（五）

FoxBASE综合试题（五）
FoxBASE综合试题(五)
一、选择题
1. 在FoxBASE环境下，最多允许同时打开10个数据库文件及21个索引文件，以及其它相应文件。

但是打开文件总数不得超过
A) 10个B) 48个C) 100个D) 64个
2. 在FoxBASE圆点提示符下，关闭所有数据库的命令是
A) USE B) CLOSE DATABASE C) SET DB OFF D) CLEAR
3. 在FoxBASE系统中，内存变量只定义了数组MK(12)，它具有12个下标变量。

用LIST MEMORY 命令显示已定义的内存变量数是
A) 12 B) 1 C) 0 D) 有时是1，有时是12
4. 打开一个空数据库文件，分别用函数EOF()和BOF()测试，其结果一定是
A) .T.和.T. B) .F.和.F. C) .T.和.F. D) .F.和.T.
5. 要求一个数据库文件的数值型字段具有5位小数，那么该字段的宽度最少应当定义成
A) 5位B) 6位C) 7位D) 8位
6. 可以使用5种不同的数据类型描述数据库文件中的字段，它们分别是字符 (C)、数值型(N)、日期型(D)、逻辑型(L)和
A) 屏幕型(S) B) 备注型(M) C) 浮点型(F) D) 全局型(Pub)
7. 在FoxBASE数据库管理系统中，备注文件的扩展名是
A) DBF B) DBT C) FPT D) FMT
8. 在FoxBASE数据库管理系统中，下列数据中为常量的是
A) 02/07/97 B) T C) .y. D) TOP
9. 在FoxBASE中，数组元素赋值以后
A) 可以在内存中长期保存B) 可以在数据库中长期保存
C) 不重新赋值就可长期保存D) 存入内存文件中可长期保存
10. 在FoxBASE下列各式中，运算结果为数值的是
A) CTOD('04/05/97')-28 B) '1234'+'5678'
C) 120+30=150 D) LEN('ABCD')-1
11. 下列FoxBASE表达式运算结果为日期型的是
A) 04/05/97+2 B) CTOD('04/05/97')-DATE()
C) CTOD('04/05/97')-3 D) DATE()+"04/05/97"
12. 职工工资数据库文件按基本工资字段升序索引后，再执行GO TOP命令，此时当前记录是
A) 1 B) 基本工资最少的记录号C) 0 D) 基本工资最多的记录号
13. 在FoxBASE状态下执行命令 ?TYPE('04/05/97')后，屏幕上显示的结果是
A) C B) N C) 04/05/97 D) D
14. 在FoxBASE环境下执行命令 @ 10,30 CLEAR TO 20,50 的结果是
A) 清除屏幕中间10行30列到20行50列的一块
B) 清除屏幕中间9行29列到19行49列的一块
C) 清除屏幕中间10行20列到30行50列的一块
D) 出错信息
15. 当前数据库文件有10条记录，要在第5条记录后面插入1条新记录，应使用命令
A) APPEND B) INSERT C) EDIT D) BROWS
16. FoxBASE函数ROUND(123456.789,-2)的值是
A) 123456 B) 123500.000 C) 123456.700 D) -123456.790
17. 数据库文件XSCJ.DBF中有8000条记录，其文件结构是:姓名/C/8，成绩/N/6.2。

建立命令文件如下:
SET TALK OFF
USE XSCJ
J=0
DO WHILE .NOT.EOF()
J=J+成绩
SKIP
ENDDO
'平均分:'+STR(J/8000,6,2)
RETURN
运行此程序，屏幕上将显示
A) 平均分:XXX.XX(X代表数字) B) 数据类型不匹配
C) 平均分:J/8000 D) 字符串溢出
18. 当前数据库文件有20条记录，当前记录号是10。

执行命令LIST REST 以后，当前记录号是
A) 10 B) 20 C) 21 D) 1
19. 对学生成绩数据库文件按总分/N/6，2降序、姓名/C/8升序索引，应当使用命令
A) INDEX TO ABC ON 总分+姓名
B) INDEX TO ABC ON -总分+姓名
C) INDEX TO ABC ON STR(-总分,5,1)+姓名
D) INDEX TO ABC ON STR(1000-总分)+姓名
20. 假定已经执行了正确命令M=[28+2]，再执行命令?M，屏幕将显示
A) 30 B) 28+2 C) [28+2] D) 30.00
21. 把当前数据库文件中"性别"字段的值全部清除，但仍保留该字段，应当使用命令
A) MODIFY STRUCTURE B) DELETE C) REPLACE D) ZAP
22. 假设当前日期为1997年9月24日，则下列表达式的计算结果是
VAL(SUBSTR('P586',2,1)+RIGHT(STR(YEAR(DATE())),2))+3
A) 600 B) 5+1997 C) 600.00 D) 出错信息
23. 数据库文件CJ.DBF已经打开，共有10条记录，按关键字XM 排序，执行命令 SORT ON XM TO CJ 后，屏幕将显示
A) 10条记录排序完成B) CJ.DBF已存在，覆盖它吗(Y/N)
C) 文件在使用D) 出错信息
24. 用MODIFY STRUCTRUE 命令把数据库文件中"地址"字段的宽度从18位改成14位，但不修改其他字段。

正常结束后再显示数据
库文件记录，会发现各条记录"地址"字段的数据
A) 全总丢失B) 仍保留18位
C) 只保留前14位D) 凡超过14位的字段被删空
25. 假定X=2，执行命令 ?X=X+1后，其结果是
A) 3 B) 2 C) .T. D) .F.
26. 有FoxBASE程序如下
SET TALK OFF
USE CJ
M->ZF=0
DO WHILE .NOT. EOF()
M->ZF=M->ZF+ZF
SKIP
ENDDO
M->ZF
RETURN
其中数据库文件CJ.DBF中有2条记录，内容如下: XM ZF
1 李四 500.00
2 张三 600.00
运行该程序的结果应当是
A) 1100.00 B) 1000.00 C) 1600.00 D) 1200.00
27. 在FoxBASE中，要使用数组
A) 必须先定义B) 必须先赋值
C) 赋值前必须定义D) 有可以不必先定义
28. 有如下FoxBASE程序
主程序:ZCX.PRG 子程序:ZCX1.PRG
SE T TALK OFF K1=K1+'200'
K1='12' RETURN
K1
DO ZCX1
K1
RETURN
用命令DO ZCX运行程序后，屏幕显示的结果是
A) 12 B) 12 C) 12 D) 12
200 212 12200 12
29.有如下FoxBASE程序
SET TALK OFF
DIMENSION K(2,3)
I=1
DO WHILE I<=2
J=1
DO WHILE J<=3
K(I,J)=I*J
K(I,J)
""
J=J+1
ENDDO
I=I+1
ENDDO
RETURN
运行此程序的结果是
A) 1 2 3 B) 1 2 C) 1 2 3 D) 1 2 3
2 4 6
3 2 1 2 3 2
4 9
30. 用DIMENSION P(2)定义了一个数组，紧接着执行命令 ?TYPE('P(1)')，其结果是
A) U B) N C) L D) C
二、填空题（每空2分，共40分）
1. 在FoxBASE中将系统默认磁盘设置为A盘的命令是。

2. 下列FoxBASE命令SEEK、FIND、LOCATE、TOTAL、JOIN 中，执行时不要求对数据库进行索引的命令是和。

3. 在FoxBASE提示符下执行下列命令，请填空。

.US E STUDENT
.COUNT TO X
.?X
35
.GO TOP
.DELETE NEXT 5
.?RECCOUNT()
.SET DELETED ON
.COUNT TO AB
.?AB &&显示值
.?RECCOUNT() &&显示值
4. 运行下列程序，若依次输入数据2.5,8,2.5,3,2,2,10
SET TALK OFF
I=1
DO WHILE I<=2
CLEAR
INPUT "A=" TO A
IF A>INT(A).OR.A>=10
LOOP
ELSE
INPUT “B=” TO B
IF B=INT（B） .AND. B<10
LOOP
ELSE
A,"+",B,"=",A+B
ENDIF
ENDIF
I=I+1 则输出结果是。

ENDDO
5. 下面的程序是将"社会主义现代化"显示为"社会主义现代化"，请填空。

SET TALK OFF
CLEAR
X="社会主义现代化"
Y=""
DO WHILE LEN(X)>=
Y=Y+SUBSTR(X,1,2)+" " X=SUBSTR(X,3)
ENDDO
RETURN
6. 有下列程序
** 主程序 PROG.PRG ** SET TALK OFF
X="同学们"
Y="你们好!"
"主程序中X=",X
"主程序中Y=",Y
DO SUBPRO
"返回主程序后X=",X ?"返回主程序后Y=",Y ?"返回主程序后Z=",Z SET TALK ON
RETURN ** 子程序 SUBPROG.PRG ** PRIVATE X
PUBLIC Z
X=100
Y=200
Z=300
"子程序中X=",X
"子程序中Y=",Y
"子程序中Z=",Z
RETURN
在圆点下执行命令
.DO PROG
返回主程序后X=
返回主程序后Z=
7. 下面程序的功能是接受数据库文件名，然后建立结构文件DBJG.DBF，并显示数据库的字段名、字段类型、宽度和小数位数。

请填空。

SET TALK OFF
CLEAR
DBN=SPACE(10)
DO WHILE .T.
@ 2,16 SAY '请输入数据库文件主名:' GET DBN
FNAME=TRIM(DBN)+'.DBF'
IF
@ 4,30 SAY '数据库不存在!'
ELSE
EXIT
ENDIF
ENDDO
USE &FNAME
USE DBJG
@ 4,10 SAY '字段名:'
@ 4,21 SAY '类型:'
@ 4,32 SAY '宽度:'
@ 4,42 SAY '小数位:'
R=5
DO WHILE .NOT.EOF()
@ R,10 SAY FIELD_NAME
@ R,23 SAY FIELD_TYPE
@ R,32 SAY STR(FIELD_LEN,3)
@ R,44 SAY STR(FIELD_DEC,3)
R=R+1
SKIP
ENDDO
USE
8. 设有图书数据库TSH，包括字段(总编号，分类呈,书名，出版单位，单价);读者数据库DZH(借书证号，姓名，性别，单位，职称，地址);借阅数据库JY(借书证号，总编号，借阅日期，备注)。

下面程序的功能是打印已借书读者的借书证号、姓名、单位，以及借阅图书的书名、单价、借阅日期。

请阅读程序并填空。

SET TALK OFF
SELECT 1
USE DZH
INDEX ON 借书证号TO DSHH
SELECT 2
INDEX ON 总编号 TO SHH
SELECT 3
USE JY
SET RELATION TO 借书证号 INTO A
LIST TO PRINT CLOSE ALL
RETURN
FoxBASE综合试题(五)
一、选择题
21.B 22.B 23.B 24.A 25.C 26.B 27.B 28.C 29.D 30.D
31.C 32.B 33.B 34.A 35.B 36.B 37.A 38.C 39.D 40.B
41.C 42.C 43.C 44.C 45.D 46.A 47.D 48.C 49.A 50.C
二、填空题
1. SET DEFA TO A:
2. LOCATE JOIN
3. 30 35
4. 2+10=12
5. 4 Y+X
6. 同学们 300
7. .NOT. FILE("&FNAME") COPY TO DBJG STRU EXTE
8. SET RELA TO 总编号 INTO B ADDI
借书证号， A->姓名，A->单位，B->书名，B->单价，借书日期。