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

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

运行效果：

运行代码：

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开始，不然重复交换，就和原来的一样了。