vf程序设计练习及答案.docVIP

程序设计操作练习题 计算：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 某商场的日销售表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 if UPPER(YN)=N Exit Endif Skip Enddo Use Set talk on Return 显示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 USE 6、下列程序的功能是求1到100之间所有奇数的和并输出结果。 S=0 ______________ DO WHILE X=100 ______________ ___________ ENDDO _________ RETUR 1、下列程序的功能是求1到100之间所有整数的平方和并输出结果，填空： S=0 ______________ DO WHILE (X=100) ______________ ______________ ENDDO __________ 2、已知成绩数据表CHJ.DBF含有学号，平时成绩（N），考试成绩（N），等级（C）等字段，前三个字段已存有某班学生的数据。其中，平时成绩和考试成绩均填入了百分制成绩。请以平时成绩占20％，考试成绩占80％的比例确定等级并填入等级字段。等级评定办法是：85分以上为优秀，60～84为合格，60分以下为不合格。 USE CHJ DO WHILE __________ zhcj=__________ DO CASE CASE zhcj=85 dj=”优秀” CASE___________ dj=”合格” OTHERWISE ____________ ENDCASE REP