5. 输入一个字符串，要求分别统计出其中英文字母、空格、数字和其他字符的个数。 STORE 0 TO ZM,KG,SZ,QT INPUT “请输入字符串：”TO ZFC FOR I=1 TO LEN(ZFC,I,1). ZF=ASC(ZF) DO CASE
CASE ZF>64 AND ZF<91 OR AF>96 AND ZF<123; ZM=ZM+1 CASE ZF=32 KG=KG+1
CASE ZF>47 AND ZF<58 SZ=SZ+1 OTHERWISE QT=QT+1 ENDCASE ENDFOR
?”英文字母个数：“，ZM
?”空格个数：“，kg www.khda课后答w.co案网m课后答案网 www.khdaw.com ？“数字个数：”，sz ？“其他字符个数：”,QT
6. 已知成绩.DBF含有学号、平时、考试、等级等字段，前三个字段已存有某班学生的数据，平时成绩、考试成绩均填入了百分制数。请以平时成绩20%、考试成绩80%的比例确定等级并填入等级字段。等级评定办法是：90分以上为优，75~89分为良，60~74分为及格，60分以下不及格。要求用条件、步长、扫描3种循环语句分别编出程序。 USE 成绩 SCAN
ZHCJ=平时*0.2+考试*0.8
DJ=IIF(ZHCJ>=90,”优”,IIF(ZHCJ<90 AND ZHCJ>=75,”良”,IIF(ZHCJ<75; 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 www.khda课后答w.co案网m 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
14. 读程序，写出运行结果。
（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) * ex2.prg * sub prg PUBLIC a PRIVATE c a=1 a=a＋1 c=5 PUBLIC b Do sub b=2 ?”ex2:”,a,b,c c=3 RETURN d=4 ?”sub:”,a,b,c,d RETURN (1)* EX1.PRG A=3 B=5
DO PP WITH 2*A,B ?A,B RETURN (2)* EX2.OPRG PUBLIC A A=1 C=5 DO SUB ?”EX2:”,A,B,C RETURN
15. 编制通信录管理程序,要求具有如下功能:
(1) 记录输入、修改、插入与删除； (2) 能分别以姓名、邮政编码升序显示记录； (3) 能按姓名查询记录。 * 程序文件名：T4-15.prg SET TALKOFF SET SAFETY OFF CLEAR USE 通讯录 TEXT
****************通讯录管理系统***************** * 1，输入 2. 修改 * * 3. 插入 4 删除 * * 5 显示 6. 查询 * 0.退出
*********************************************** ENDTEXT DO WHILE .T. @ 8,0 CLEAR @8,34 SAY “”
INPUT SPACE(34)+”请输入0~6：”TO XZ DO CASE CASE XZ=1 DO SR CASE XZ=2 DO XG CASE XZ=3 DO CR CASE XZ=4 DO XS