2）、将DIME A（20）改成 DIME A（10）后，（）
A）出现“数组重复定义”的错误 B）出现“数组下标越界”的错误
C）程序功能不变，只是输出10个数组元素值 D）程序功能不变，仍然输出20个数组元素值 3）、程序段 DO WHILE P<=20
A(P)=INT(RAND()*100+1) P=P+1 ENDDO 的功能是：（ ）
A）产生20个0到101之间的随机整数，且存入数组变量A中 B）产生20个1到101之间的随机整数，且存入数组变量A中 C）产生20个1到100之间的随机整数，且存入数组变量A中 D）产生20个0到100之间的随机整数，且存入数组变量A中 5、数据表JY.DBF的内容如下：
Record # 借书证号 借书日期 1 0010 02/01/99 2 0007 05/04/99 3 0006 02/03/99 4 0010 05/17/99 数据表JYR.DBF 的内容如下：
Record # 借书证号 姓名 职称 1 0006 孟小梅 教授 2 0010 郑财勇 讲师 3 0007 王志军 助教
且：JYR库以借书证号为关键字建立了索引，索引文件为JYR.IDX 程序如下： SELECT 1
USE JYR INDEX JYR SELECT 2 USE JY
SET DEVICE TO PRINT H=1
DO WHILE .NOT. EOF() TS=DATE()-借书日期
IF TS>80
SELECT 1
SEEK B.借书证号
IF TS>100 .OR. 职称<>?教授?
@H,4 SAY 姓名+?同志，您借的书已过期，请归还? H=H+1
ENDIF
SELECT 2 ENDIF SKIP ENDDO
SET DEVICE TO SCREEN RETURN
（1）设当前系统日期为06/15/99，程序将打印（）还书的信息
A． 孟小梅、郑财勇各一行 B．孟小梅一行、郑财勇两行 C． 孟、郑、王各一行 D．孟、郑、王三人共五行 （2）高级职称和其它职称借书的最多天数分别是（）
A．81天,101天 B．100天,80天 C．80天,100天 D．101天,81天 （3）本程序的功能是：（）
A． 查询接书证号 B．查询借书日期
C．书未还书者 D．查询并打印超期未还书者 6、CLEAR N=10
FOR J=1 TO 3
?STR(J,2)+?)? ??SPACE(6*J)
FOR K=1 TO 3-J+1 ?? STR(J*K,6) N=N+2 ENDFOR ? ENDFOR RETURN
（1）输出的图形为：（）
A. 1 ) 1 B. 1 ) 1 2 3 C. 1 ) 1 2 3 D. 1 ) 1 2 2 ) 2 4 2 ) 2 4 2 ) 2 4 2 ) 4 3 ) 3 6 9 3 ) 3 3 ) 3 3 ) （2）程序结束时，N的值是：（）
A. 12 B. 9 C . 10 D . 15 7、CLEAR
M=0
FOR X=1 TO 10 IF MOD(X,3)=0 M=M+X ENDIF ENDFOR ? M RETURN
1）、该程序的功能是：求1到10之间（）
A. 能被3整除数的个数 B. 能被3整除数的和 C. 不能被3整除数的个数 D. 不能被3整除数的和 2）、该程序执行的结果是：（） A. 3 B. 10 C. 18 D. 37
8．*A1.prg *
M=1 PRIVATE M N=2 M=3 DO B1 N=4 ?’M=”,M,”N=”,N RETURN RETURN
3 6 8 9 12 15 (1)执行以上程序后，M=( )
A、3 B、1 C、2 D、4 (2) 执行以上程序后，N=( )
A、3 B、1 C、2 D、4 9、表JB1.DBF中记录如下：
记录号 学号 姓名 性别 专业
1 200204 张晓梅 女 计算机应用 2 200205 王刚 男 应用化学 3 200206 邓群 女 热力工程 4 200207 李大为 男 应用数学 表JB2.DBF中记录如下：
记录号 学号 上机 笔试 1 200204 90 87 2 200205 63 56 3 200206 90 95 4 200207 45 60 SET TALK OFF SET DELE ON SELE 2 USE JB2 SELE 1 USE JB1
INDEX ON 学号 TO XH1
JOIN WITH B TO JB3 FOR 学号=A->学号 USE JB3
DELE ALL FOR 上机<60.OR.笔试<60 LIST PACK GO 2 XH=学号 XM=姓名 ?XH,XM USE RETU
(1)程序中LIST命令共显示的记录个数是（ ） A、4 B、3 C、2 D、1 (2)程序中?XH,XM命令显示的值是（ ）
A、200204 张晓梅 B、200205 王刚 C、200206 邓群 D、200207 李大为 10．阅读程序： CLEA
BM=SPACE(10)
@5，10 SAY“请输入表名：”GET BM READ
BM=ALLTRIM(BM)
IF FILE(“&BM..DBF”)
USE &BM
BROWSE NOMODI
ELSE
WAIT“文件不存在!” WINDOW NOWAIT
ENDIF USE RETURN
1）、程序的功能是( )
A)浏览任意一个打开的表文件 B)修改任意一个打开的表文件 C)浏览指定表文件BM D)修改指定表文件BM
2）、函数FILE(“&BM..DBF”)的功能是( )
A)测试指定的文件的类型正确否 B)指定文件类型为.DBF
C)测试指定的文件存在否 D)指定文件为&BM．．DBF
3）、将语句USE&BM改写为USE(BM)，程序( ) A)程序不能执行 B)程序功能不变
C)该命令将关闭表文件 D)以上三种说法都不对 11、&&MAIN.PRG &&P1.PRG
X1=1 PARA W1,W2 X2=2 PRIVATE W1 DO P1 WITH X1,X2 W1=W1*3 ??X1=?+STR(X1,1) W2=W2*4 ???X2=?+STR(X2,1) RETURN X1=1
X2=2
DO P1 WITH X1,X1+X2 ??X1=?+STR(X1,1) ???X2=?+STR(X2,1) RETURN
（1）第一次显示X1，X2的值是（）
A. 1 , 8 B. 3 , 8 C. 1 , 1 D. 8 , 8 （2）第二次显示X1，X2的值是（）
A. 1 , 2 B. 3 , 1 C. 3 , 2 D. 1 , 3 12、有图书数据表TS和订书单表DSD如下： TS：（书号：C3， 单价：N6.2 书名C10） 书号 单价 书名
001 12.0 计算机应用 002 10.0 化学 003 15.0 分析化学 DSD：（班级：C6，书号：C3 ，数量：N3.0, 款项：N7.2） 记录号 班级 书号 数量 款项 1 化95.4 001 47 0.00 2 数94.3 002 74 0.00 3 物96.4 003 67 0.00 4 生95.4 002 47 0.00
5 地94.3 001 67 0.00 6 物94.3 002 67 0.00
7 数94.3 001 74 0.00 8 化95.4 003 47 0.00 9 数94.3 003 74 0.00
程序： CLEA ALL SELE 1
USE Ts ALIAS SHU
INDEX on 书号 tag TSSH SELE 2
USE dsd alias shdn
SET RELA TO 书号 INTO SHU
update shdn set 款项＝数量*shu .单价 where shdn．书号=shu．书号
sele 班级，dsd .书号,ts.书名,数量,款项 from dsd.dbf ,ts.dbf order by 款项=dsd.书号 into cursor aaa LIST
DO WHIL .T.
ACCE “输入班级名(输入0退出)” TO BJ IF BJ =?0? EXIT ENDI
ACCE“输入书号” TO SH LOCAT FOR 书号=SH IF BOF （） EXIT ENDI
？班级+”班长，请来领<<”+TRIM(书名)+”>>并交款”+str(款项)+”元。” ENDD clea all RETURN 1）、do while循环中locate操作的表是：（ ）
A）数据表TS B）数据表DSD C）系统临时表aaa D）系统临时表cursor aaa 2）、运行时输入”数94.3”，并输入书号“003”，则输出为：（ ）
A）数94.3班长，请来领〈〈化学〉〉，并交款 740 元 B）化95.4班长，请来领〈〈分析化学〉〉，并交款 705元 C）物96.4班长，请来领〈〈分析化学〉〉，并交款 1005元 D）输入错误，没有输出 13、阅读下面程序： CLEAR
OPEN DATABASE emplorer USE compen
SCAN FOR RECNO()<=10 IF 姓名=?李强? LOOP
ENDIF
?姓名，实发工资
where ts.书号