我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码?下面是我编写的代码,我不能交换第2列与第4列的位置,哪里错了?Option Base 1Private Sub Form_Click()Dim a(4, 4) As
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/27 14:43:28
我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码?下面是我编写的代码,我不能交换第2列与第4列的位置,哪里错了?Option Base 1Private Sub Form_Click()Dim a(4, 4) As
我想把一个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
同时同样的二维数组我还想知道分别输出各行各列的和的代码.求解大神帮忙啊啊啊啊.
我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码?下面是我编写的代码,我不能交换第2列与第4列的位置,哪里错了?Option Base 1Private Sub Form_Click()Dim a(4, 4) As
就是你在交换第一行和第三行的值时只需要一个循环语句就行了,我不会你写的这种编程语言,我照你这个来的话只需要向像下面这样就行了
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