VFP 练习3—程序设计 1 程序设计操作练习题 计算：T=1!+2!+3!+…+10!。 T=0 for i=1 to 10 S=1 for j=1 to i S=S*j endfor T=T+S endfor ?"1!+2!+....10!=",T 1. 某商场的日销售表RQ.DBF 包含：营业员代号（DH,N,6）、品名（PM,C,6）、数量（SL,N,2）、单价（DJ,C,7,2）、营业额（YEE,N,9,2），每一笔销售构成数据表中的一条记录，营业额字段为 0，编程查询某个营业员全天营业额的程序。例如： DH PM SL DJ YYE 011201 洗衣机 4 1820.00 011201 电饭锅 8 298.00 020301 空调 5 4500.00 011201 空调 3 4500.00 020301 MP3 1 458.00 CLEA USE RQ REPL ALL YYE WITH SL*DJ &&营业额=单价*数量 D="" && 初始化变量 D Accept "请输入营业员代号：" TO D S=0 Locate for DH=D Do while Not eof() S=S+YYE Cont Enddo @12,10 SAY "营业额为："+STR(S,8,2) RETU 3. 逐条显示 RSGL.DBF 中的记录，显示完一条记录后暂停，出现提示“继续吗(Y/N)？”，用户输入 Y(y)则继续显示下一条记录，输入 N(n)退出。 clear set talk off use rsgl do while .not. eof() disp 编号,姓名,性别,职称 &&可以使用?输出 wait "继续吗(Y/N)?" to YN VFP 练习3—程序设计 2 if UPPER(YN)="N" Ex it Endif Skip Enddo Use Set talk on Retu rn 4 显示RSGL.DBF 中在1966 年以后出生的职工记录。 5、已知数据表 STU.DBF 中含有学号（C），姓名（C），民族（C），是否三好（L），成绩（N）等字段，且表中已有记录数据若干，见下图所示。现编程实现对成绩进行如下调整：是三好学生的对其成绩加 10 分；是少数民族的学生对其成绩加 10 分；如果一个同学同时满足上述两个条件，则对该同学只能加 15 分。请把程序补充完整。 USE STU DO WHILE IF REPLACE ELSE IF 是否三好 REPLACE ELSE IF REPLACE 成绩 WITH 成绩 + 10 ENDIF ENDIF ENDIF ______________ ENDDO VFP 练习3—程序设计 3 USE 6、下列程序的功能是求 1 到 100 之间所有奇数的和并输出结果。 S=0 ______________ DO WHILE X<=100 ______________ ___________ ENDDO _________ RETUR 1、下列程序的功能是求 1 到 100 之间所有整数的平方和并输出结果，填空： S=0 ______________ DO WHILE (X<=100) ______________ ___________...
