主题：求高手赐予答案！！
zzxchinahf
[专家分：0] 发布于 2009-09-30 11:27:00
（1）set talk off
s=0
p=5
do while p<=10
p=p+1
s=s+p*2
enddo
?s
return
运行结果
（2）for i=1 to 7
??i
if i=4
loop
endif
?i
endfor
运行结果
（3）用多分支结构完成下列程序
有一工资表文件GZ.DBF,其中有“基本工资”字段。若调资按下列原则调法：
基本工资<200 曾50元
200<=基本工资<300 曾40元
300<=基本工资<400 增30元
400<=基本工资 增10元
回复列表 （共5个回复）
沙发
sywzs [专家分：5650] 发布于 2009-10-01 06:13:00
前两个问题，建个 PRG 文件，运行一下。
后一个问题，自己动手用 do while .....enddo 和 do case .....endcase 编一段程序，运行一下。
板凳
sywzs [专家分：5650] 发布于 2009-10-02 06:37:00
第三个问题补充一下，还可以用 SCAN.....ENDSCAN 和 DO CASE.....ENDCASE
*** 用 DO WHILE ...ENDDO 循环语句
GO TOP
DO WHILE !EOF()
DO CASE
CASE 基本工资<200
REPLACE 基本工资 WITH 基本工资+50
CASE 基本工资<300
REPLACE 基本工资 WITH 基本工资+40
CASE 基本工资<400
REPLACE 基本工资 WITH 基本工资+30
OTHERWISE
REPLACE 基本工资 WITH 基本工资+10
ENDCASE
SKIP
ENDDO
*** 用 SCAN......ENDSCAN 语句
SCAN
DO CASE
CASE 基本工资<200
REPLACE 基本工资 WITH 基本工资+50
CASE 基本工资<300
REPLACE 基本工资 WITH 基本工资+40
CASE 基本工资<400
REPLACE 基本工资 WITH 基本工资+30
OTHERWISE
REPLACE 基本工资 WITH 基本工资+10
ENDCASE
ENDSCAN
3 楼
dfwxj [专家分：270] 发布于 2009-10-08 00:01:00
不写代码倒也罢了，一写全错了
scan
do case
case 基本工资<200
repl 基本工资 with 基本工资+50
case 基本工资>=200 and 基本工资<300
repl 基本工资 with 基本工资+40
case 基本工资>=300 and 基本工资<400
repl 基本工资 with 基本工资+30
case 基本工资>=400
repl 基本工资 with 基本工资+10
endc
4 楼
dfwxj [专家分：270] 发布于 2009-10-08 00:03:00
不计较效率的
repl 基本工资 with 基本工资+50 for 基本工资<200
repl 基本工资 with 基本工资+50 for 基本工资>=200 and 基本工资<300
repl 基本工资 with 基本工资+50 for 基本工资>=300 and 基本工资<400
repl 基本工资 with 基本工资+50 for 基本工资>=400
5 楼
dfwxj [专家分：270] 发布于 2009-10-08 00:04:00
拷贝错了，
repl 基本工资 with 基本工资+50 for 基本工资<200
repl 基本工资 with 基本工资+40 for 基本工资>=200 and 基本工资<300
repl 基本工资 with 基本工资+30 for 基本工资>=300 and 基本工资<400
repl 基本工资 with 基本工资+10 for 基本工资>=400
我来回复
您所在位置：