行业应用

开发平台：

VFP

BDBJS.PRG：源码内容

							2
x1=0
do whil recn()<10
x1=x1+je1
skip
enddo
10
repl je1 with x1
12
x2=0
do whil recn()<21
x2=x2+je1
skip
enddo
21
repl je1 with x2
22
repl je1 with x1+x2
25
x3=0
do whil recn()<35
x3=x3+je1
skip
enddo
35
repl je1 with x3
37
x4=0
do whil recn()<42
x4=x4+je1
skip
enddo
42
repl je1 with x4
skip
repl je1 with x3+x4
skip
repl je1 with x1+x2-x3-x4
**************************************
2 
x1=0
do whil recn()<21
x1=x1+je2
skip
enddo
21
repl je2 with x1
23
x2=0
do whil recn()<43
x2=x2+je2
skip
enddo
43
repl je2 with x2
skip
repl je2 with x1-x2
retu

						