vfp及其应用系统开发 第4章习题.docx

第四章1.若要建立一个日销售文件（营销员代号、品名、数量、单价、营销额），每笔营业产生一个记录，但营业额字段的值因未填写而都为0.00,试编制程序查询某营业员的全天营业额。CLEARSET TALK OFFUSE rxs.dbfREPLACE ALL 营业 WITH 数量*单价@ 5,10 SAY查询营业员全天营业额？INPUT请输入营业员代号： TO dhSUM 营业额 FOR 营业员代号=dh TO yy@ 9,4 SAY 营业员+dh+的全天营业额是：+STR(yy,10,2)+元USESET TALK ON2.CLEARUSE sb@ 5,10 SAY 修改设备的价格和部门?INPUT 请输入设备号： TO sbbhLOCATE FOR 编号 =sBBHIF FOUND()INPUT 请输入设备价格： TO sbjgINPUT 请输入设备部门： TO sbbMREPLACE 价格 WITH sbjg,; 部门 WITH sbbM?DISPLAY FIELDS 编号，名称，价格，部门WAIT......请检查修改后的记录，按任意键结束......ELSE@ 12,20 SAY无此设备!ENDIFUSE3.IF FILE(Yxcs.dbf)USE yxcsREPLACE 运行次数 WITH 运行次数 + 1ELSECREATE TABLE yxcs(运行次数 n(5，0))INSERT INTO yxcs　VALUES(1)ENDIFUSE4.编制一个通用的交换记录的程序，即要求对换某表中任意的两个记录。5.输入一个字符串，要求统计出其中的英文字母，空格，数字和其他字符的个数。6.已知成绩。DBF有学号，平时，考试，等级等字段，前三个字段已经存有数据，请以平时的20%加考试的80%来评定等级。90分以上为优，75—89为良，60---74为及格，60分以下为不及格。7.clear For i=1 to 4 For j=1 to 4 If i=j ?? str(I,1)+”*”+str(j,1)+”=”+str(i*j,2)+space(2) Endif Next ? Endfor10.试编程序，把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?EndforUse11.试编写程序，将SB,DBF的记录转置显示。Clear Use sbCount to n Copy to array sbszFor i =1 to n For j =1 to 6 @i*2,(j-1)*10+1 say sbsz(i,j) function’B’ Next?EndforWait”………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转置显示…………”Use12.设计一个计算存款本息的自定义函数。程序如下：（1）当函数包含在调用程序中，函数定义如下：Function vtParameters p,i,yT=p*(1+i*y)Return t（2）若自定义函数作为一个独立的文件，函数定义如下：Parameters p,i,yT=p*(1+i*y)Return t13.设计为子程序如下设计为过程如下：设计为函数如下：14.（1）运行结果：（2）运行结果：15.运行结果如下：