VF课后作业第四章.docVIP

1，CLEAR USE yye.dbf replace ALL 营业额 WITH 数量*单价 @ 6,11 say 查询一营业员全天的营业额 ? input 请输入营业员代号：to dh SUM 营业额 FOR 营业员代号=dh TO yy @ 12,5 say 营业员+dh+的全天营业额是：+STR(yy,10,2)+元 USE 2，CLEAR USE sb @ 6,10 say 修改设备的价格和部门 ? input 请输入设备编号：to sbbh LOCATE FOR 编号=sbbh IF FOUND() input 请输入设备价格：to sbjg input 请输入设备部门： to sbbm replace 价格 WITH sbjg ,部门 WITH sbbm ? DISPLAY FIELDS 编号,名称，价格,部门 ELSE @ 14,25 say 无此设备！ ENDIF USE 3，IF FILE(ljyxcs.dbf ) USE ljyxcs replace 运行次数 WITH 运行次数+1 ELSE CREATE TABLE ljyxcs(运行次数 n(5,0)) INSERT INTO ljyxcs valuse(1) ENDIF USE 4，CLEAR @ 2,11 say 对换任意两个记录的内容 ? input 请输入第一个记录号: to jlh1 input 请输入第二个记录： to jlh2 CLEAR ?对换前的记录： DISPLAY record jlh1 SET HEADINGS OFF DISPLAY record jlh2 SET HEADINGS ON WAIT ? GO jlh1 SCATTER TO jlarry1 MEMO GO jlh2 SCATTER TO jlarry2 MEMO GATHER FROM jlarry1 MEMO GO jlh1 GATHER FROM jlarry2 MEMO ?对换后的记录： DISPLAY record jlh1 SET HEADINGS OFF DISPLAY record jlh2 SET HEADINGS ON USE 5，CLEAR STORE 0 TO zm,kg,sz,qt input请输入字符串：to zfc FOR i=1 TO LEN(zfc) zf=SUBSTR(zfc,i,1) zf=ASC(zf) DO CASE CASE zf64 AND zf91 OR zf96 AND zf123 zm=zm +1 CASE zf=32 kg=kg+1 CASE zf47 AND zf 58 sz =sz+1 OTHERWISE qt=qt+1 ENDCASE ENDFOR ?英文字母个数：,zm ?空格个数：,kg ?数字个数：,sz ?其他字符个数：,qt 6，CLEAR USE 成绩 DO WHILE NOT EOF(） zhcj=平时*0.2+考试*0.8 DO CASE CASE zhcj =90 dj=优 CASE zhcj90 AND zhcj=75 dj =良 CASE zhcj75 AND zhcj=60 dj=及格 OTHERWISE dj=不及格 ENDCASE replace 等级 WITH dj SKIP ENDDO LIST OFF USE 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 ? ENDFOR 8，CLEAR USE stud ?姓名,数学,语文,外语,平均 pjh=0 SCAN srpj=（数学+语文+外语)/3 ?+姓名+str（数学,5)+STR(语文，6)+STR(外语，6)+STR(grpj,7,1) pjh=pjh+grpj ENDSCA