VF第四章作业.docVIP

第四章作业 若要建立一个日销售文件（营销员代号、品名、数量、单价、营销额），每笔营业产生一个记录，但营业额字段的值因未填写而都为0.00,试编制程序查询某营业员的全天营业额。 CLEAR SET TALK OFF USE rxs.dbf REPLACE 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 若要修改某设备的价格和部门，试编写程序。 CLEAR USE sb @ 5,10 SAY 修改设备的价格和部门 ? INPUT 请输入设备号： TO sbbh LOCATE FOR 编号 =sBBH IF FOUND() INPUT 请输入设备价格： TO sbjg INPUT 请输入设备部门： TO sbbM REPLACE 价格 WITH sbjg,; 部门 WITH sbbM ? DISPLAY FIELDS 编号，名称，价格，部门 WAIT......请检查修改后的记录，按任意键结束...... ELSE @ 12,20 SAY无此设备! ENDIF USE 在某程序中加一段程序，要求能累计程序运行的次数，试写出程序段。（提示：可将程序执行次数存储在一个表中） IF FILE(Yxcs.dbf) USE yxcs REPLACE 运行次数 WITH 运行次数 + 1 ELSE CREATE TABLE yxcs(运行次数 n(5，0)) INSERT INTO yxcs　VALUES(1) ENDIF USE 4.编制一个通用的交换记录的程序，即要求对换某表中任意的两个记录。 5输入一个字符串，要求统计出其中的英文字母，空格，数字和其他字符的个数。 6.已知成绩。DBF有学号，平时，考试，等级等字段，前三个字段已经存有数据，请以平时的20%加考试的80%来评定等级。90分以上为优，75—89为良，60---74为及格，60分以下为不及格。 10、试编程序，把SB.DBF的内容移入二维数组。 Clear Use sb Copy to array sbsz ?”二维数组sbsz存放的数据：” ? ? For i=1 to recount() For j = 1 to 6 ?? sbsz(i,j),space(2) Next ? Endfor Use 11、试编写程序，将SB,DBF的记录转置显示。 Clear Use sb Count to n Copy to array sbsz For i =1 to n For j =1 to 6 @i*2,(j-1)*10+1 say sbsz(i,j) function’B’ Next ? Endfor Wait”………SB.DBF正常显示……….” Clear For i= 1 to 6 For j= 1 to n @ i*2,(j-1)*10+1 say sbsz(j,i) function ‘B’ Next ? Wait “……….SB.DBF转置显示…………” Use 12、设计一个计算存款本息的自定义函数。 程序如下： 1、当函数包含在调用程序中，函数定义如下： Function vt Parameters p,i,y T=p*(1+i*y) Return t 2、若自定义函数作为一个独立的文件，函数定义如下： Parameters p,i,y T=p*(1+i*y) Return t 13,请分别把求结成的功能设计为子程序、过程、自定义函数，并在计算5!-3!+7!时进行调用。 解：设计为子程序如下 用子程序调用结果如下： 设计为过程如下： 调用结果如下： 设计为函数如下： 调用结果如下： 14，读程序，写出运行结果。 解：（1） 运行结果为： （2） 运行结果如下： 编制通讯录管理程序，要求具有如下功能： （1） 纪录输入，修改，插入与删除； （2） 能分别以性命、邮政编码升序显示纪录 （3） 能按姓名查询纪录。 解：程序如下： *ex4-15.prg set talk off set safety off clear use 通信录.dbf text 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