(完整版)中職VF課堂練習(xí)題

1、四、程序填空(每空3分，共18分)SKIPENDDo1 下面的程序功能是完成工資查詢，請?zhí)羁眨篠ET TALK OFFUSE employeeACCEPT 請輸入職工號TO numLOCATE FOR 職工號 =numIF _ NOT EOF()DISPLAY 姓名,工資ELSE?職工號輸入錯誤！ENDIFUSESET TALK ON2有學(xué)生數(shù)據(jù)表ST.ddbf,其中“編號”字段(N, 2, 0 )的值 從1開始連續(xù)排列。以下程序欲按編號的1, 7, 13, 19,的規(guī) 律抽取學(xué)生參加比賽，并在屏幕上顯示參賽學(xué)生編號，請?zhí)?空。USE STUDENTDO WHILE .NOT. EOF() I

2、F MOD _ (編號,6)=1 ?編號ENDIFUSE3下列程序的功能是根據(jù)“銷售”表中的數(shù)據(jù)去修改“庫存.dbf”表的數(shù)據(jù)，請?zhí)羁?。SELECT 1USE庫存SELECT 2USE銷售DO WHILE NOT EOF () SELECT 1LOCATE FOR商品名=B.商品名REPLACE數(shù)量 WITH 數(shù)量-B.數(shù)量,總金額 WITH單價*數(shù)量SELECT 2SKIPENDDOCLOSE DATABASE4下列程序是判斷任意整數(shù)(2)是否為素數(shù)，請?zhí)羁铡?提示： 如果一個整數(shù)N能被2.n之間的任一整數(shù)整除，則這個整 數(shù)N不是素數(shù)SET TALK OFFINPUT 輸入一個整數(shù)：TO N

3、FOR 1=2 TO SQRT( n)IF _ MOD(N,I)=0EXIT(或 N/I=INT (N/I)ENDIFENDFORIFSQRT( n)_? N,是素數(shù)ELSE? N,不是素數(shù)”ENDIFRETURNSET TALK ONb=a+b-cRETURN2.下列程序執(zhí)行時，在鍵盤上輸入21,則屏幕上的顯示結(jié)果為OK1INPUT X= TO XDO CASECASE X 10? OKICASE X 20? OK2OTHERWISE? OK3ENDCASE1寫出下列程序的輸出結(jié)果是：9 3x=1y=3DO sub WITH x,(y),5? x,yRETURN3設(shè)數(shù)據(jù)表文件CJ.DBF中有兩條記錄，內(nèi)容如下：運行以 下程序的結(jié)果應(yīng)當(dāng)是一1100.00_。RECORD#XMZF1李四500.002張三600.00PROCEDURE subPARAMETER a,b,ca=a+b+cUSE CJX = 0DO WHILE .NOT. EOF()X= X + ZFSKIPENDDO? XRETURN4執(zhí)行如下程序，如果輸入 N值為5,則最后顯示值是6 4_0SET TALK OFFS = 0I = 0INPUT N= TO N