1、有如下ABC.PRG和XYZ.PRG两个程序, 写出执行命令Do ABC后的结果。

**ABC.PRG
Store 10 To a, b, c
Do xyz With a, a+b, 10
?a, b, c
?i, m, n
Return
**XYZ.PRG
Para x, y, z
Public i, m
60
Store 5 To i, m, n
i=x+y
X=y+z
y=m+n
?x, y, z
Return
2、有如下TEST.PRG 和SUB.PRG两个程序, 写出执行命令Do ABC 后的结果。

* TEST.PRG
Public a
a=1
c=3
b=5
Do SUB
? “返回主程序：a, b, c, d=”, a, b, c, d
Return
*SUB.PRG
Private c
a=a+1
61
d=2
c=4
b=6
? “过程中a, b, c, d=”, a, b, c, d
Return
3、有下列两个程序，写出执行命令Do PROG1后的运行结果。

**PROG1.PRG
X=“同学们”
Y=“你们好！”
?X+Y
Do SUBPRO
?X, Y, Z
Return
** SUBPRO.PRG
Private X
Public Z
X=100
Y=200
Z=300
?X+Y+Z
Return
4、有以下3 个程序，写出执行命令Do TEST 后运行的结果。

**TEST.PRG
a=5
b=6
c=7
Do SUBI
?’a1, b1, c1=’, a, b, c
Do SUB2 With a+b, c, 10
?’a2, b2, c2=’, a, b, c
Return
* *SUB1.PRG
Private b, c
a=21
b=22
c=23
Return
Do SUB1
Return
**SUB2.PRG
Parameter x, y, z
?’x, y, z=’, x, y, z
x=31
y=32
z=33
63
Return
5、阅读下面两个程序，写出执行Do MAIN命令后的运行结果。

**MAIN.PRG
X1=1
X2=3
Do P1 With X1, X2
? “X1=”+Str(X1, 1), “X2=”+Str(X2, 1)
X1=2
X2=4
Do P1 With X1, X1+X2
? “X1=”+Str(X1, 1), “X2=”+Str(X2, 1)
Return
**P1.Prg
Para W1, W2
W1=W1*2
W2=W2*2
Return
6、有如下两个程序，写出执行Do MAIN命令的运行结果。

*MAIN.PRG
Clear Memory
Dime X(4, 3)
I=1
Do While I<3
J=I+1
X(I, J)=J
Do Sub
X(I, J)=I
I=I+1
Enddo
X(J, I)=4
?X(1, 1), X(1, 2), X(1, 3)
?X(6), X(2, 1), X(5), X(7)
Return
*SUB.PRG
If X(I, J)>=3
X(I+J)=X(I, J)
Endif
J=J-1
Return。