foxpro写出程序的执行结果

来源：百度知道 编辑：UC知道 时间：2024/05/27 01:36:35
写出程序的执行结果
4道题80分
主程序和子程序分开

1、SET PROCEDURE TO SUB1
A=1
DO P1
DO P2
?”A=”,A
CLOSE PROCEDURE
RETURN

子程序
PROCEDURE P1
PRIVATE A
A=10
A=A*2
?“A1=”,A
RETURN
PROCEDURE P2
A=A*(A+1)
?“A2=”,A
RETURN

2、CLEAR A=0
DO S1
?A
RETURN

子程序：
PROCEDURE S1
PRIVATE A
A=10
DO S2
?A
DO S2
?A
RETURN
PROCEDURE S2
A=A+20
RETURN

3、 SET TALK OFF K5="ABC" <

1.
SET PROCEDURE TO
A=1
DO P1
DO P2
?"A=",A
CLOSE PROCEDURE
RETURN

PROCEDURE P1
PRIVATE A
A=10
A=A*2
?"A1=",A
RETURN
PROCEDURE P2
A=A*(A+1)
?"A2=",A
RETURN

A1=20
A2=2
A=2

2.
30
50
0
3.
SET TALK OFF
K5="ABC"
DO SUB1
?K5
RETURN

子程序：
PROCEDURE SUB1
PRIVATE K5
K5="100+8"
?K5
RETURN

100+8
ABC

4.
E
D
C
B
A