在Visual Basic中，有没有办法交换二维数组中的值

Sub SwapValues(ByRef arr() As Integer, ByVal row1 As Integer, ByVal col1 As Integer, ByVal row2 As Integer, ByVal col2 As Integer)
    Dim temp As Integer
    
    ' 存储要交换的值
    temp = arr(row1, col1)
    
    ' 将第二个位置的值复制到第一个位置
    arr(row1, col1) = arr(row2, col2)
    
    ' 将临时变量中的值复制到第二个位置
    arr(row2, col2) = temp
End Sub

Dim myArray(,) As Integer = New Integer(10, 10) {} ' 创建一个10x10的二维数组

' 假设二维数组已经被填充了一些值

SwapValues(myArray, 1, 2, 3, 4) ' 交换第1行第2列和第3行第4列的值