Question

用VB编写程序，输入一个二维数组：25，36，78，13；12，26，88，93；75，18，22，32；56，44，36，58.

（1）交换第1行和第3行的位置，（2）交换第2列和第4列的位置。最后输出处理后的数组。
VB编程

Answer 1

Dim a(1 To 4, 1 To 4) As Integer
a(1, 1) = 25
a(1, 2) = 36
a(1, 3) = 78
a(1, 4) = 13
a(2, 1) = 12
a(2, 2) = 26
a(2, 3) = 88
a(2, 4) = 93
a(3, 1) = 75
a(3, 2) = 18
a(3, 3) = 22
a(3, 4) = 32
a(4, 1) = 56
a(4, 2) = 44
a(4, 3) = 36
a(4, 4) = 58
Print "原数组是："
For i = 1 To 4
  For k = 1 To 4
    Print a(i, k);
  Next k
  Print
Next i
For i = 1 To 4
  t = a(1, i)
  a(1, i) = a(3, i)
  a(3, i) = t
Next i
For i = 1 To 4
  t = a(i, 2)
  a(i, 2) = a(i, 4)
  a(i, 4) = t
Next i
Print "现在数组是："
For i = 1 To 4
  For k = 1 To 4
    Print a(i, k);
  Next k
  Print
Next i
前面是为数组赋值（因为你的数没规律，就一个一个赋值了）
后面的
For i = 1 To 4
  t = a(1, i)
  a(1, i) = a(3, i)
  a(3, i) = t
Next i
是使1和3行换
For i = 1 To 4
  t = a(i, 2)
  a(i, 2) = a(i, 4)
  a(i, 4) = t
Next i
是使2和4列换
具体你想他们分开不同时换，可以放在不同事件中
注意一下，由于你没说是先交换行还是先交换列，所以，上面说的两个部分的先后顺序的不同，会导致你结果的不同，应该是有两种，也许和你的答案有一定差异，不懂联系
望采纳，谢谢

Answer 2

你是教我记忆的方法吗?可惜我听不懂.能说的通俗一点吗

追问

输入一个二维数组，然后交换其中的行列，最后输出处理过的数组