Question

VFP程序，这每一步都是什么意思啊？

第一个（最后结果是18,15,12）
dimension A(6)
for K=1 to 6
A(K)=30-3*K
endfor
K=5
do while K>=1
A(K)=A(K)-A(K+1)
K=K-1
enddo
?A(2),A(4),A(6)
set talk on
return
第二个
S=0
I=1
do while I<4
accept"请输入字符串:" to x
if "A" $ X
S=S+1
endif
I=I+1
enddo
?S
return
运行时输入"abcd","ABCD","aBcD"，输出S的值是？（答案是1）
第三个（运行结果为：P(1)=2,P(2)=4,P(3)=8,b=15）
Clear
store 1 to I, A, B
do while I<=3
do Prog1
??"P("+str(I,1)+")="+Str(A,2)+","
I=I+1
enddo
??"B="+str(B,2)
return
procedure prog1
A=A*2
B=B+A
return

Answer 1

1.
A(6)=30-3*6=12;
A(5)=30-3*5=15,A(4)=30-3*4=18,由第二个循环计算A(5)=15-12=3,A(4)=18-3=15,
A(2)一样这么演算，你自己算。

2.
循环体设置了用户可输入三次，判断语句IF "A" $ X 意思是如果这个表达式为真，则S=S+1.题目上输入的三个字符串只有"A"$"ABCD"为真，所以，只执行了一次S=S+1=0+1=1

3.
自己一步步逻辑推算吧，用语言描述起来太烦了