VFP 练习3—程序设计 1 程序设计操作练习题 计算:T=1
T=0 for i=1 to 10 S=1 for j=1 to i S=S*j endfor T=T+S endfor
=",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
eof() disp 编号,姓名,性别,职称 &&可以使用
输出 wait "继续吗(Y/N)
" to YN VFP 练习3—程序设计 2 if UPPER(YN)="N" Ex it Endif Skip Enddo Use Set