VB矩阵转置。编写程序将2*3的矩阵转置，即转换成3*2的矩阵。

初始化二维2×3矩阵：Dim MyArray(1,2) As Integer

然后运行过程中加入代码定义二维3×2矩阵：
ReDim Preserve MyArray(2,1) As Integer

再用一个镶嵌For...Next循环把值赋值过来就可以啦，很简单嘛。。。。

Private Sub Command1_Click()
Dim a(2, 3) As Integer, b(3, 2) AsInteger
For i = 1 To 2
For j = 1 To 3
a(i, j) = InputBox("")
Print a(i, j);
Next j
Print
Next i
For i = 1 To 2
For j = 1 To 3
b(j, i) = a(i, j)
Next j
Next i
For i = 1 To 3
For j = 1 To 2
Print b(i, j);
Next j
Print
Next i
End Sub

不难吧
你用二维数组，用下标交换的方式交换数组就可以了啊
如果没有人回答的话可以找我