AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > VFP

数组行和列元素对换

51自学网 2015-09-27 http://www.51zixue.net

原帖及讨论:http://bbs.bccn.net/thread-150264-1-1.html

将一个二维数组行和列元素对换,存到另一个二维数组中.

以下是我自己写的哈。

clea
dime a(3,2)
dime b(2,3)
for i=1 to 3
for j=1 to 2
  input "a("+str(i,1)+","+str(j,1)+")=" to a(i,j)
next
next
for i=1 to 3
for j=1 to 2
  ?? "a("+str(i,1)+","+str(j,1)+")="+str(a(i,j),3)+space(5)
next
?
next
for i=1 to 2
for j=1 to 3
  b(i,j)=a(j,i)
next
next
?
for i=1 to 2
for j=1 to 3
  ?? "b("+str(i,1)+","+str(j,1)+")="+str(b(i,j),3)+space(5)
next
?
next

retu

 

 

 
上一篇:VFP基础教程 第八章 报表与标签设计  下一篇:利用oleDB对象,将数据库中全部表转换成XML文件