Написать программу, которая меняет местами минимальный и максимальный элемент в квадратной матрице целых чисел.

Sub ReplaceMinMax()
Dim arr(1 To 3, 1 To 3) As Integer ' задаем квадратную матрицу 3x3

' заполняем матрицу числами
arr(1, 1) = 1
arr(1, 2) = 2
arr(1, 3) = 3
arr(2, 1) = 4
arr(2, 2) = 5
arr(2, 3) = 6
arr(3, 1) = 7
arr(3, 2) = 8
arr(3, 3) = 9

Dim min_value As Integer
Dim max_value As Integer
Dim min_loc() As Integer ' массив для хранения координат минимального элемента
Dim max_loc() As Integer ' массив для хранения координат максимального элемента
Dim i As Integer
Dim j As Integer

min_value = arr(1, 1) ' инициализируем минимальное и максимальное значения первым элементом матрицы m...