第六章上机实验题目

第六章试验题目
一、上机验证自己的选择是否正确
1、设数据表文件CJ.DBF中有两条记录，内容如下：
XM ZF
1 李四 500.00
2 张三 600.00
运行下面的程序，输出结果是（）。

SET TALK OFF
USE CJ
M->ZF=0
DO WHILE NOT EOF()
M->ZF=M->ZF+ZF
SKIP
ENDDO
?M->ZF,ZF
RETURN
（A）1100．00 0 （B）1100.00 600
（C）600.00 0 （D）600.00 600
2、运行如下的程序后，显示的X的值是（）。

SET TALK OFF
X=0
Y=0
DO WHILE Y>X
X=X+Y
Y=Y+1
ENDDO
?X
RETURN
（A）0 （B）10 （C）100 （D）99
3、执行下面的程序，如果输入的M值为6，则最后P的输出值是（）。

P=0
K=1
INPUT “M=” TO M
DO WHILE P<=M
P=P+1
K=K+1
ENDDO
?P
（A）1 （B）3 （C）6 （D）7
4、有以下的程序段：
INPUT “X=” TO X
DO CASE
CASE X>10
?”AAA”
CASE X>20
?”BBB”
OTHERWISE
?”CCC”
ENDCASE
当运行该程序时，如果在键盘上输入了21，则屏幕上的显示结果是（）。

（A）“AAA”（B）AAA （C）BBB （D）CCC
5、有以下的程序段：
CLEAR
X=1
Y=1
DO WHILE .T.
X=X+1
IF MOD(X,3)=0
LOOP
ENDIF
Y=Y+3
IF Y>25
EXIT
ENDIF
ENDDO
?X,Y
RETURN
程序运行结束后,X,Y的值为:
（A）X，Y不会有值，程序死循环（B）X=14，Y=25
（C）X=14，Y=28 （D）X=10，Y=31
6、有下列的程序段：
a=0
for I=1 to 3
for j=1 to I
for k=j to 3
a=a+1
next k
next j
next I
？a
该程序段的执行结果是（）。

（A）3 （B）9 （C）14 （D）21
二、程序填空题，并上机验证能否运行
1、下面程序是显示“学生”表中的1980年出生的女生的记录（性别=.T.表示是男生）。

SELECT XS
LOCATE FOR ①
DO WHILE ②
DISPLAY
WAIT
③
ENDDO
2、下面程序仅接受输入Y或N，否则程序结束。

DO WHILE .T.
WAIT “请输入Y/N” TO FLAG
IF UPPER(FLAG)<>’Y’ AND UPPER(FLAG)<>’N’
①
ELSE
②
ENDIF
ENDDO
3、下面的程序是用来计算两个日期之间有多少个星期日。

CLEAR
D1={^1999-11-01}
D2=DATE（）
①
FOR ② TO D2-D1
IF DOW（D1+N）〈〉1
③
ENDIF
SUNDAYS=SUNDAYS+1
ENDFOR
？SUNDAYS
RETURN
4、下面的程序是完成按照职工号查询工资信息。

SET TALK OFF
USE employee
ACCEPT “请输入职工号” TO num
LOCATE FOR 职工号=num
IF
DISPLAY 姓名，基本工资
ELSE
?”职工号输入有误！”
ENDIF
USE
SET TALK ON
5、下面的程序是查询职工表中所有基本工资大于3000元的职工信息。

SET TALK OFF
USE employee
DO WHILE .NOT. EOF()
IF基本工资>3000
?”姓名：”，姓名，“工资：”，基本工资
ENDIF
ENDDO
USE
RETURN
6、下面的程序是计算1到100的偶数之和以及奇数之积。

SET TALK OFF
X=1
S=0
P=1
DO WHILE X<=100
IF MOD(X,2)=0
①
ELSE
②
ENDIF
③
ENDDO
？“1到100的偶数之和为：”，STR（④，5）
？“1到100的数奇之积为：”，STR（⑤，5）
RETU
7、下面的程序是输入任意二十个正负数，求正数之和。

SET TALK OFF
K=1
S=0
DO WHILE K<=20
K=K+1
INPUT ‘Please enter the data:’ TO A
IF A<=0
ENDIF
S=S+A
ENDDO
?‘S=’,S
RETURN
8、下面的程序是在屏幕上显示一个由”*”组成的三角形（如下图）。

*
***
*****
*******
SET TALK OFF
CLEAR
X=1
Y=10
DO WHILE X<=4
S=1
DO WHILE S<=2*X-1
@X,Y SAY “*”
Y=Y+1
S=S+1
ENDDO
Y=10-X
ENDDO
9、下面的程序的运行结果为5、15、25，请填入正确答案：
SET TALK OFF
X=0
Y=0
DO WHILE .T.
X=X+1
Y=X*5
IF MOD(Y,2)=0
LOOP
ELSE
??Y
ENDIF
IF X=
EXIT
ENDIF
ENDDO
10、运行下面的程序后将在屏幕上显示如下的乘法口诀表：
<1> 1
<2> 2 4
<3> 3 6 9
<4> 4 8 12 16
<5> 5 10 15 20 25
<6> 6 12 18 24 30 36
<7> 7 14 21 28 35 42 49
<8> 8 16 24 32 40 48 56 64
<9> 9 18 27 36 45 54 63 72 81
请补全程序，使之完成指定的任务。

SET TALK OFF
CLEAR
FOR J=1 TO 9
？”<”+STR(J,2)+”>”
FOR ①
?? ②
ENDFOR
?
ENDFOR
RETURN
三、首先判断程序的结果，然后上机验证
1、写出下面程序的输出结果。

STORE 2 TO PAR1，PAR2
STORE 6 TO K
DO PROC1 WITH PAR1， PAR2，K
？PAR1，PAR2
PROCEDURE PROC1
PARA A1，A2，A3
FOR I=1 TO A3
A1=A1+I*（I+1）
IF MOD（A2，2）=0
A2=A2+I*I
ENDIF
NEXT I
ENDPROC
2、下面程序的输出结果是什么？
CLEAR
STORE 10 TO A
STORE 20 TO B
DO SWAP WITH A，B
？A，B
PROCEDURE SWAP
PARAMETERS X1，X2
TEMP=X1
X1=X2
X2=TEMP
ENDPROC
3、写出下列程序的运行结果。

STORE 0 TO N，S
DO WHILE .T.
N=N+1
S=S+N
IF N>10
EXIT
ENDIF
ENDDO
?”S=”+STR(S,2)
RETURN
4、写出下列程序的执行结果
SET TALK OFF
CLEAR
STORE 0 TO X，Y，S1，S2，S3
DO WHILE X〈10
X=X+1
DO CASE
CASE INT（X/2）=X/2
S1=S1+X/2
CASE MOD（X，3）=0
S2=S2+X/3
CASE INT（X/2）〈〉X/2
S3=S3+1
ENDCASE
ENDDO
？S1，S2，S3
SET TALK ON
RETURN
四、编程题
1、编程实现20以内的整数加法练习，要求练习的次数由操作者自己控制，最后给出总的题数、正确题数、错误次数
2、编写程序，要求任意输入20个数，统计其中正数、负数和0的个数。

3、在职工表中查找职称是“会计师”的职员，若找到则显示其信息，否则显示“对不起，没有符合条件的记录！”，可以进行任意次数的查询。

试编程实现上面的要求。