8．在某个程序模块中使用命令PRIVATE XI定义了一个内存变量，则变量XI（ ）。

　　 A）可以在该程序的所有模块中使用

　　 B）只能在定义该变量的模块中使用 来源教育城

　　 C）只能在定义该变量的模块及其上层模块中使用

　　 D）只能在定义该变量的模块及其下属模块中使用

　　 9．执行下列程序后的运行结果为（ ）。

　　 CLEAR PROCEDURE A PROCEDURE B

　　 DO A PRIVATE s s=s+10

　　 RETURN s=5 RETURN

　　 DO B

　　 ? s

　　 RETURN

　　 A）5

　　 B）10

　　 C）15

　　 D）程序错误，找不到变量

　　 10．执行下列程序后，屏幕上显示的结果是（ ）。

　　 X=2 PROCEDURE SUB1

　　 Y=3 PRIVATE Y

　　 ? X,Y X=4

　　 DO SUB1 Y=5

　　 ?? X,Y RETURN

　　 RETURN

　　 A）2 3 4 5

　　 B）2 3 4 3

　　 C）4 5 4 5

　　 D）2 3 2 3

　　 11．执行下列程序后的运行结果为（ ）。

　　 CLEAR PROCEDURE PROG1

　　 SET TALK OFF a=a*2

　　 STORE 1 TO i, a, b b=b+a

　　 DO WHILE i<=3 RETURN

　　 DO PROG1

　　 ?? "P(" + STR(i,1) + ")=" + STR(a,2) + ","

　　 i=i+1

　　 ENDDO

　　 ?? "b=" + STR(b,2)

　　 SET TALK ON

　　 RETURN

　　 A）P(1)=2, P(2)=3, P(3)=4, b=15

　　 B）P(1)=2, P(2)=4, P(3)=6, b=8

　　 C）P(1)=2, P(2)=4, P(3)=6, b=18

　　 D）P(1)=2, P(2)=4, P(3)=8, b=15

　　 12．有如下程序，执行程序后，屏幕上的输出结果为（ ）

　　 X=10 PROCEDURE SUB1

　　 M=2 PARAMETERS M,N

　　 N=3 X=M+10

　　 DO SUB1 WITH M,N M=M+N

　　 DO SUB1 WITH M,N ? X,M,N

　　 RETURN ENDPROC

　　 A) 12 5 3 B) 12 8 3 C) 12 5 3 D) 12 2 3

　　 12 8 3 15 8 3 15 8 3 12 8 3

　　 13．在运行下列程序后，屏幕上显示的输出结果是（ ）。

　　 STORE 10 TO X,Y,Z PROCEDURE PROC1

　　 DO PROC1 WITH (X),Y PARAMETERS M,N

　　 ? X,Y,Z M=M+10

　　 RETURN N=N+10

　　 RETURN

　　 A）10 10 10

　　 B）10 20 10

　　 C）10 20 20

　　 D）10 10 20

　　 14．下列程序段的输出结果是（ ）。

　　 CLEAR PROCEDURE SWAP

　　 STORE 10 TO A PARAMETERS X1,X2

　　 STORE 20 TO B TEMP=X1

　　 SET UDFPARMS TO REFERENCE X1=X2

　　 DO SWAP WITH A,(B) X2=TEMP

　　 ? A,B ENDPROC

　　 RETURN

　　 A）10 20

　　 B）20 20

　　 C）20 10

　　 D）10 10

　　 15．对第四章上机题中的XSXK.DBC数据库的操作中，与下面程序功能相同的是（ ）。

　　 set talk off

　　 clear

　　 open database xsxk

　　 select c

　　 use 学生 order tag 学号

　　 select b

　　 use 课程 order tag 课程号

　　 select a

　　 use 选课 order tag 学号课程号

　　 set relation to 学号 into 学生 , 课程号 into 课程

　　 browse fields 学号 , 学生.姓名 , 课程.课程名 , 成绩 ;

　　 noappend nodelete noedit

　　 set relation to

　　 close all

　　 A）set talk off

　　 open database xsxk

　　 select 学生.学号 , 姓名 , 课程名 , 成绩 from 学生 , 课程 , 选课 ;

　　 where 学生.学号 = 选课.学号 , 课程.课程号 = 选课.课程号

　　 close all

　　 B）set talk off

　　 open database xsxk

　　 select 学号 , 姓名 , 课程名 , 成绩 from 学生 , 课程 , 选课 ;

　　 where 学生.学号 = 选课.学号 , 课程.课程号 = 选课.课程号

　　 close all

　　 C）set talk off

　　 open database xsxk

　　 select 学生.学号 , 姓名 , 课程名 , 成绩 from 学生 join 选课 on ;

　　 学生.学号 = 选课.学号 join 课程 on 课程.课程号 = 选课.课程号

　　 close all

　　 D）set talk off

　　 open database xsxk

　　 select 学号 , 姓名 , 课程名 , 成绩 from 学生 , 课程 , 选课 ;

　　 where 学生.学号 = 选课.学号 and 课程.课程号 = 选课.课程号 www.12edu.cn

　　 close all