中职VF课堂练习题.doc

四、程序填空 (每空3分，共18分)1下面的程序功能是完成工资查询，请填空：SET TALK OFFUSE employeeACCEPT 请输入职工号 TO numLOCATE FOR 职工号 = numIF _ NOT EOF()_DISPLAY 姓名, 工资ELSE? 职工号输入错误！ENDIFUSESET TALK ON2有学生数据表ST.ddbf，其中“编号”字段( N, 2, 0 )的值从1开始连续排列。以下程序欲按编号的1, 7, 13, 19, 的规律抽取学生参加比赛，并在屏幕上显示参赛学生编号，请填空。 USE STUDENT DO WHILE .NOT. EOF( )IF MOD _ (编号,6)=1_ ?编号ENDIFSKIPENDDoUSE3下列程序的功能是根据 “销售” 表中的数据去修改 “库存.dbf” 表的数据，请填空。SELECT 1USE库存SELECT 2USE销售DO WHILE NOT EOF（） SELECT 1LOCATE FOR 商品名=B.商品名REPLACE 数量 WITH 数量-B.数量,总金额 WITH 单价*数量SELECT 2 SKIP ENDDOCLOSE DATABASE4下列程序是判断任意整数(2)是否为素数，请填空。（提示：如果一个整数N能被2之间的任一整数整除，则这个整数N不是素数 SET TALK OFFINPUT 输入一个整数： TO NFOR I=2 TO SQRT(n) IF _ MOD(N,I)=0_ （或N/I=INT（N/I）EXITENDIFENDFORIF _ ISQRT(n)_ ? N, 是素数ELSE ? N, 不是素数ENDIFRETURNSET TALK ON1、写出下列程序的输出结果是： 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，则屏幕上的显示结果为_ OK1INPUT X= TO XDO CASECASE X 10? OK1CASE X 20? OK2OTHERWISE? OK3ENDCASE3设数据表文件CJ.DBF中有两条记录，内容如下：运行以下程序的结果应当是_1100.00_。RECORD#XMZF1李四500.002张三600.00USE CJX = 0DO WHILE .NOT. EOF( )X= X + ZFSKIPENDDO? XRETURN4执行如下程序，如果输入N值为5，则最后显示值是_6 4_。SET TALK OFFS = 0I = 0INPUT N= TO NDO WHILE S = NS = S+ II = I + 1ENDDO? S,ISET TALK ONRETURN7