Question

求VB高手解答改错题，将矩阵A置矩阵存入B数组中并输出，例如A数组中的数据为： 1 2 3 4 2 4 6 8 3 6 9 12

转置后B数组的数据为：
1 2 3
2 4 6
3 6 9
4 8 12
需要改动两个地方，请在“请不要删除该行”下进行改动
Option Explicit

Private Sub Form_Click()
Dim a(3, 4) As Integer, i As Integer, j As Integer
'*********found******** 请不要删除该行
Dim b(3, 4)
For i = 1 To 3
For j = 1 To 4
a(i, j) = i * j
Next j, i
For i = 1 To 3
For j = 1 To 4
Print a(i, j); Spc(1);
Next j
Print
Next i
For i = 1 To 4
For j = 1 To 3
'*********found******** 请不要删除该行
b(i, j) = a(i, j)
Next j
Next i
Print
For i = 1 To 4
For j = 1 To 3
Print b(i, j); Spc(1);
Next j
Print
Next i
End Sub
已经解决啦，不用回答了

Answer 1

戏能寒月大人啊

Answer 2

这个怎么做啊

Answer 3

不是太懂