Question

VFP 行列转换 比如 1 2 3 4 5 6 7 8 9 变成 1 4 7 2 5 8 3 6 9 各位大神帮忙用FOR endf语句完成

3个数字为一行

Answer 1

把
1 2 3
4 5 6
7 8 9
转换成
1 4 7
2 5 8
3 6 9
要先观察它们的联系，再写程序就好写了：
CLEAR
DIMENSION sz(3,3),sz2(3,3)&&定义两个数组放初始值和结果

zhi=0
FOR i=1 TO 3
FOR j=1 TO 3
zhi=zhi+1
?? zhi &&为了程序简化，在此输出初始值
sz(i,j)=zhi &&初始值赋值
ENDFOR
? &&换行
ENDFOR

FOR i=1 TO 3
FOR j=1 TO 3
sz2(j,i)=sz(i,j) &&开始转换
ENDFOR
ENDFOR
?'转换后为：'
?
FOR i=1 TO 3
FOR j=1 TO 3
??sz2(i,j) &&为了验证转换结果，为结果输出写成独立循环。
ENDFOR
?
ENDFOR

***************************************************************
如果不需要保存转换后的结果，可直接赋值然后输出：

CLEAR
DIMENSION sz(3,3)
zhi=0
FOR i=1 TO 3
FOR j=1 TO 3
zhi=zhi+1
?? zhi
sz(i,j)=zhi
ENDFOR
?
ENDFOR
?'转换后为：'
?
FOR i=1 TO 3
FOR j=1 TO 3
??sz(j,i)
ENDFOR
?
ENDFOR