VB编程：利用数组实现矩阵转换-28

运行效果：

运行代码：

Dim myarray(1 To 5, 1 To 5) As Long

Private Sub Command1_Click()

    Print "                       转换前的矩阵"

    For intx = 1 To 5

        For inty = 1 To 5

            myarray(intx, inty) = intx * 10 + inty

        Next

    Next

    For intx = 1 To 5

        For inty = 1 To 5

            Print myarray(intx, inty),

        Next inty

        Print

    Next intx

    Print vbCrLf

End Sub

Private Sub Command2_Click()

    Print "                       转换后的矩阵"

    For intx = 1 To 5

        For inty = intx To 5           '每次交换只能从intx开始，不然重复交换，就和原来的一样了。

            temp = myarray(intx, inty)

            myarray(intx, inty) = myarray(inty, intx)

            myarray(inty, intx) = temp

        Next inty

    Next intx

    For intx = 1 To 5

        For inty = 1 To 5

            Print myarray(intx, inty),

        Next inty

        Print

    Next intx

End Sub

学习总结：

    1、每次交换只能从行坐标intx开始，不然重复交换，就和原来的一样了。