中职VF课堂练习题.docVIP

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

1．下面的程序功能是完成工资查询，请填空：

SETTALKOFF

USEemployee

ACCEPT请输入职工号TOnum

LOCATEFOR职工号=num

IF__NOTEOF()_______

DISPLAY姓名,工资

ELSE

?职工号输入错误！

ENDIF

USE

SETTALKON

2．有学生数据表ST.ddbf，其中“编号”字段(N,2,0)的值从1开始连续排列。以下程序欲按编号的1,7,13,19,…的规律抽取学生参加比赛，并在屏幕上显示参赛学生编号，请填空。

USESTUDENT

DOWHILE.NOT.EOF()

IFMOD__(编号,6)=1___

??编号

ENDIF

SKIP

ENDDo

USE

3．下列程序的功能是根据“销售”表中的数据去修改“库存.dbf”表的数据，请填空。

SELECT1

USE库存

SELECT2

USE销售

DOWHILENOTEOF（）

SELECT1

LOCATEFOR商品名=B.商品名

REPLACE数量WITH数量-B.数量,总金额WITH单价*数量

SELECT2

SKIP

ENDDO

CLOSEDATABASE

4．下列程序是判断任意整数(2)是否为素数，请填空。（提示：如果一个整数N能被2~之间的任一整数整除，则这个整数N不是素数

SETTALKOFF

INPUT输入一个整数：TON

FORI=2TOSQRT(n)

IF___MOD(N,I)=0_____

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

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

ENDIF

ENDFOR

IF___ISQRT(n)__

?N,是素数

ELSE

?N,不是素数

ENDIF

RETURN

SETTALKON

1、写出下列程序的输出结果是：93

x=1

y=3

DOsubWITHx,(y),5

?x,y

RETURN

PROCEDUREsub

PARAMETERa,b,c

a=a+b+c

b=a+b-c

RETURN

2．下列程序执行时，在键盘上输入21，则屏幕上的显示结果为______OK1

INPUTX=TOX

DOCASE

CASEX10

?OK1

CASEX20

?OK2

OTHERWISE

?OK3

ENDCASE

3．设数据表文件CJ.DBF中有两条记录，内容如下：运行以下程序的结果应当是__1100.00_。

RECORD#

XM

ZF

1

李四

500.00

2

张三

600.00

USECJ

X=0

DOWHILE.NOT.EOF()

X=X+ZF

SKIP

ENDDO

?X

RETURN

4．执行如下程序，如果输入N值为5，则最后显示值是___64__。

SETTALKOFF

S=0

I=0

INPUTN=TON

DOWHILES=N

S=S+I

I=I+1

ENDDO

?S,I

SETTALKON

RETURN

PAGE

PAGE4