中职VF课堂练习题.docVIP

四、程序填空 (每空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 （或N/I=INT（N/I） ENDIF ENDFOR IF ___ ISQRT(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 PAGE