我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码?

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/13 04:57:41

我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码?
下面是我编写的代码,我不能交换第2列与第4列的位置,哪里错了?
Option Base 1
Private Sub Form_Click()
Dim a(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = Val(InputBox("请输入数据"))
Next j
Next i
For i = 1 To 4
For j = 1 To 4
Print a(i, j);
Next j
Print
Next i

For i = 1 To 4

For j = 1 To 4
m = a(1, j)
a(1, j) = a(3, j)
a(3, j) = m

Print a(i, j);
Next j
Print
Next i

For i = 1 To 4
For j = 1 To 4
n = a(i, 2)
a(i, 2) = a(i, 4)
a(i, 4) = n
Print a(i, j);
Next j
Print
Next i
End Sub
同时同样的二维数组我还想知道分别输出各行各列的和的代码.求解大神帮忙啊啊啊啊.

就是你在交换第一行和第三行的值时只需要一个循环语句就行了,我不会你写的这种编程语言,我照你这个来的话只需要向像下面这样就行了
For j = 1 To 4
m = a(1, j)
a(1, j) = a(3, j)
a(3, j) = m

Next j
第二列和第四列的值交换和这是差不多
For i = 1 To 4
n = a(i, 2)
a(i, 2) = a(i, 4)
a(i, 4) = n
Next i

接着就是各行各列的和：
hang_sum[4]={0,0,0,0};
lie_sum[4]={0,0,0,0};

for(int i=0;i
再问：你的那个求和的编程我不太懂，我没有碰到过能解释下嘛？而且我按照你的代码写，运行时说下标越界怎么回事？
再答：先看求每行值的和：在i=0时，我求的就是第一行所有数的和，hang_sum[0]初始值为0，让后我通过一个循环 for(int j=0;j

我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码? 设A是3阶矩阵,将A的第1列与第2列交换得B,再把B的第2列加到第3列得C,求矩阵Q 设A是3阶矩阵,将A的第1列与第2列交换得B,再把B的第2列加到第3列得C,求矩阵D,使得AD=C. 将正整数依次按下表规律排成四列,则根据表中的排列规律,数19应排的位置是第行第列．第1列第2列第3 第1列第2列第3列第4列第5列第1行 2 -4 6 -8 第2行 -16 14 -12 10 第3行 18 - 第1列第2列第3列第4列第5列第1行 2 4 6 8 第2行 16 14 12 10 第3行 18 20 22 一个三阶单位矩阵经过初等转换（比如说交换第2行与第3行的位置)再乘以任意一个三阶矩阵一个矩阵先交换第i行j列,在交换j行i列,新矩阵与老矩阵是否相似设A为3阶矩阵,将A的第2列加到第1列得矩阵B,再交换B的第2行与第3行得单位矩阵观察下列各数排列规律第1列第2列第3列第4列第5列第一行 2 4 6 8第二行 10 12 14 16 第三行 A是一个n阶矩阵,交换A的第i列和第j列后,再交换第i行和第j行,得到矩阵B：将正偶数按下表排列第1列第2列第3列第4列.第1行 2 第2行 4 6第3行 8 10 12第4行 14 16 1