中职VF课堂练习题.doc

四、程序填空 (每空3分，共18分)

1．下面的程序功能是完成工资查询，请填空：
SET TALK OFF
USE employee
ACCEPT "请输入职工号" TO num
LOCATE FOR 职工号 = num
IF __ NOT EOF()_______
DISPLAY 姓名, 工资
ELSE
? "职工号输入错误！"
ENDIF
USE
SET TALK ON
2．有学生数据表ST.ddbf，其中“编号”字段( N, 2, 0 )的值从1开始连续排列。以下程序欲按编号的1, 7, 13, 19, … 的规律抽取学生参加比赛，并在屏幕上显示参赛学生编号，请填空。
USE STUDENT
DO WHILE .NOT. EOF( )
IF MOD __ (编号,6)=1___
??编号
ENDIF
SKIP
ENDDo
USE
3．下列程序的功能是根据 “销售” 表中的数据去修改 “库存.dbf” 表的数据，请填空。
SELECT 1
USE库存
SELECT 2
USE销售
DO WHILE NOT EOF（）
SELECT 1
LOCATE FOR 商品名=B.商品名
REPLACE 数量 WITH 数量-B.数量,总金额 WITH 单价*数量
SELECT 2
SKIP
ENDDO
CLOSE DATABASE
4．下列程序是判断任意整数(>2)是否为素数，请填空。（提示：如果一个整数N能被2~之间的任一整数整除，则这个整数N不是素数
SET TALK OFF
INPUT "输入一个整数：" TO N
FOR I=2 TO SQRT(n)
IF ___ MOD(N,I)=0_____
（或N/I=INT（N/I）
EXIT
ENDIF
ENDFOR
IF ___ I>SQRT(n)__
? N, "是素数"
ELSE
? N, "不是素数"
ENDIF
RETURN
SET TALK ON

1、写出下列程序的输出结果是： 9 3
x=1
y=3
DO sub WITH x,(y),5
? x,y
RETURN

PROCEDURE sub
PARAMETER a,b,c
a=a+b+c
b=a+b-c
RETURN
2．下列程序执行时，在键盘上输入21，则屏幕上的显示结果为______ OK1
INPUT "X=" TO X
DO CASE
CASE X > 10
? "OK1"
CASE X > 20
? "OK2"
OTHERWISE
? "OK3"
ENDCASE

3．设数据表文件CJ.DBF中有两条记录，内容如下：运行以下程序的结果应当是__1100.00_。
RECORD#
XM
ZF
1
李四
500.00
2
张三
600.00
USE CJ
X = 0
DO WHILE .NOT. EOF( )
X= X + ZF
SKIP
ENDDO
? X
RETURN
4．执行如下程序，如果输入N值为5，则最后显示值是___6 4__。
SET TALK OFF
S = 0
I = 0
INPUT "N=" TO N
DO WHILE S <= N
S = S+ I
I = I + 1
ENDDO
? S,I
SET TALK ON
RETURN

7