for i=1 to m
for j=1 to n
A(i,j)=1'給矩陣賦值
next j
next i
for i=1 to n
for j=1 to m
print a(i,j);
print
next i'打印轉置矩陣