中职VF课堂练习题

四、程序填空 (每空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之间的任一整数整除，则这个整数N不是素数

SET TALK OFF

INPUT "输入一个整数：" TO N

FOR I=2 TO SQRT(n)

IF ___ MOD(N,I)=0_____

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_。

USE CJ

X = 0

DO WHILE .NOT. EOF( )

X= X + ZF

（或N/I=INT（N/I）

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

4

5

6

7