Question

vb中 数组转置是什么意思~~

我看见网上很多讲数组转置的但是就是没说vb的，求简单解答一下vb中的数组转置是什么，然后我这里有道题，想如果可以的话举个例子给我吧，谢谢非常谢谢。

利用随机数生成两个矩阵A,B(数据不一定相同,前者范围为30~90,后者为101~135)。
将A矩阵转置。

Answer 1

1  2  3                            1  4  7   

4  5  6           转置后：   2  5  8  

7  8  9                            3  6  9

代码示例：

Private Sub Form_Load()
    Me.Show
    Dim A(2, 2) As Long, B(2, 2) As Long
    Dim I As Long, J As Long, N As Long
'------------------------------A 数组赋值
    For I = 0 To 2
        For J = 0 To 2
            N = N + 1
            A(I, J) = N
        Next
    Next
'-------------------------------A 数组输出
    Print "转置前："
    For I = 0 To 2
        For J = 0 To 2
            Print A(I, J);
        Next
        Print
    Next
'-------------------------------A 数组转置后放到 B 数组
    For I = 0 To 2
        For J = 0 To 2
          B(J, I) = A(I, J)
        Next
    Next
'--------------------------------B 数组输出
    Print "转置后："
    For I = 0 To 2
        For J = 0 To 2
            Print B(I, J);
        Next
        Print
    Next
End Sub

     

Answer 2

所谓矩阵的转置，通俗地讲，就是把矩阵的行变成列，列变成行。

在EXCEL里也有这个功能，选中一个矩形数据区域，复制 -- 选择性粘贴，就可以勾选“转置”，进行相关操作。