《Visual FoxPro和其应用系统开发》(简明版)答案第4章.doc

若已建立了一个日销售文件（营业员代号、品名、数量、单价、营业额），每笔营业产生一个记录，但营业额字段的值因未填写而都为0.00，试编制程序查询某营业员的全天营业额。 CLEAR SET TALK OFF USE RXS .DBF REPLAYCE ALL 营业额WITH 数量* 单价 @ 5，10 SAY “查询营业员的全天营业额” ？ Input“请输入营业员代号：” TO DH SUM 营业额 FOR 营业员代号=DH TO YY @9,4 SAY “营业员“+DH+”的全天营业额是：”+STR(YY,10,2)+”元” USE SET TALK ON 在某程序中加一段程序，要求能累计程序运行的次数，试写出程序段。（提示：可将程序执行次数存储在一个表中） IF FILE (“YXCS.DBF”) USE YXCS REPLACE 运行次数 WITH运行次数+1 ELSE CREATE TABLE YXCS (运行次数 你（5，0）) Insert into YXCS VALUES(1) ENDIF USE 输入一个字符串，要求分别统计出其中英文字母、空格、数字和其他字符的个数。 STORE 0 TO ZM,KG,SZ,QT INPUT “请输入字符串：”TO ZFC FOR I=1 TO LEN(ZFC,I,1). ZF=ASC(ZF) DO CASE CASE ZF64 AND ZF91 OR AF96 AND ZF123; ZM=ZM+1 CASE ZF=32 KG=KG+1 CASE ZF47 AND ZF58 SZ=SZ+1 OTHERWISE QT=QT+1 ENDCASE ENDFOR ?”英文字母个数：“，ZM ?”空格个数：“，kg ？“数字个数：”，sz ？“其他字符个数：”,QT 已知成绩.DBF含有学号、平时、考试、等级等字段，前三个字段已存有某班学生的数据，平时成绩、考试成绩均填入了百分制数。请以平时成绩20%、考试成绩80%的比例确定等级并填入等级字段。等级评定办法是：90分以上为优，75~89分为良，60~74分为及格，60分以下不及格。要求用条件、步长、扫描3种循环语句分别编出程序。 USE 成绩 SCAN ZHCJ=平时*0.2+考试*0.8 DJ=IIF(ZHCJ=90,”优”,IIF(ZHCJ90 AND ZHCJ=75,”良”,IIF(ZHCJ75; AND ZHCJ=60,”及格”，”不及格”))); REPLACE 等级 EITH DJ ENDFOR LIST OFF USE 13. 请分别把求阶乘的功能设计为子程序、过程、自定义函数，并在计算5！-3！+7！时进行调用。 (1)主程序： * 程序文件名：T4-13-1.prg .CLEAR JC=0 DO JSJC WITH 3,JC K3=JC DO JSJC WITH 5,JC K5=JC DO JSJC WITH 7,JC K7=JC S=K5-K3+K7 ?”5!-3!+7!=”,S FUNCTION ‘B’ 子程序： *文件名：JSJC.PRG PARAMETERS N,P P=1 FOR I=2 TO N P=P*I ENDFOR RETURN (2), * 程序文件名：T4-13-2.prg CLEAR JC=0 DO JSJC WITH 3,JC K3=JC DO JSJC WITH 7,JC K7=JC S=K5-K3+K7 ?”5!-3!+7!=”,S FUNCTION ‘B’ * PROCEDURE JSJC PARAMETERS N,P P=1 FOR I=2 TO N P=P*I ENDFOR RETURN (3), *程序文件名：T4-13-3.prg CLEAR JC=0 S=JSJC(5,JC)-JSJC(3,JC)+JSJC(7,JC) ?”5!-3!+7!=”,S FUNCTION ‘B’ * FUNCTION JSJC PARAMETERS N,P P=1 FOR I=2 TO N P=P*I ENDFOR RETURN P 读程序，写出运行结果。 （1）* ex1.prg * pp.prg a=3 PARAMETER x,y b=5 y=x*y Do pp WITH 2*a,b ?”s=”+STR(y,3) ? a,b RETURN RETURN (2) *