我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码?下面是我编写的代码,我不能交换第2列与第4列的位置,哪里错了?Option Base 1Private Sub Form_Click()Dim a(4, 4) As
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/14 02:51:13
![我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码?下面是我编写的代码,我不能交换第2列与第4列的位置,哪里错了?Option Base 1Private Sub Form_Click()Dim a(4, 4) As](/uploads/image/z/5403231-63-1.jpg?t=%E6%88%91%E6%83%B3%E6%8A%8A%E4%B8%80%E4%B8%AA4%E8%A1%8C4%E5%88%97%E7%9A%84%E6%95%B0%E7%BB%84%2C%E4%BA%A4%E6%8D%A2%E7%AC%AC1%E8%A1%8C%E4%B8%8E%E7%AC%AC3%E8%A1%8C%E4%BD%8D%E7%BD%AE%2C%E4%BA%A4%E6%8D%A2%E7%AC%AC2%E5%88%97%E4%B8%8E%E7%AC%AC4%E5%88%97%E7%9A%84%E4%BD%8D%E7%BD%AE%2C%E6%80%8E%E4%B9%88%E7%BC%96%E5%86%99%E4%BB%A3%E7%A0%81%3F%E4%B8%8B%E9%9D%A2%E6%98%AF%E6%88%91%E7%BC%96%E5%86%99%E7%9A%84%E4%BB%A3%E7%A0%81%2C%E6%88%91%E4%B8%8D%E8%83%BD%E4%BA%A4%E6%8D%A2%E7%AC%AC2%E5%88%97%E4%B8%8E%E7%AC%AC4%E5%88%97%E7%9A%84%E4%BD%8D%E7%BD%AE%2C%E5%93%AA%E9%87%8C%E9%94%99%E4%BA%86%3FOption+Base+1Private+Sub+Form_Click%28%29Dim+a%284%2C+4%29+As)
我想把一个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