有没有大佬可以看看这道题，为什么转置之后总是有几项为零啊，谢谢各位啦！

顶

转置的交换操作对每两个数应该只进行一次，比如a(1,2)和a(2,1)这两个数，你输入a(1,2)之后交换了一次a(1,2)和a(2,1)，输入a(2,1)之后又交换了一次，前一次交换导致的结果是数字被输入到a(2,1)的位置去了，而a(1,2)仍然是0；后一次交换则把a(2,1)的数字换掉了，然后又交换回了a(1,2)的位置，a(2,1)仍然是0
所以，你应该取消掉输入a(1,2)之后的那次交换，最好的办法是把转置再单独写成一个循环，并且调整循环的范围：
For i = 2 To 4
For j = 1 To i - 1