Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А - VB
Формулировка задачи:
Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А. Расставить в полученной матрице побочную диагональ в порядке возрастания n=m=6
Решение задачи: «Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А»
textual
Листинг программы
Sub exchangeArray(ByRef Arr, ByVal n1 As Integer, ByVal n2 As Integer, ByVal RowCol As Boolean) 'процедура меняет местами строки или столбцы в двумерном массиве 'Arr - двумерный массив значений 'n1 и n2 - номера строк(столбцов) которые поменяем местами 'RowCol - если истина, то меняем строки, иначе столбцы Dim tmpArr() 'временный массив If RowCol Then ReDim tmpArr(UBound(Arr, 2)) For i = 0 To UBound(Arr, 2) tmpArr(i) = Arr(n1, i) Next i For i = 0 To UBound(Arr, 2) Arr(n1, i) = Arr(n2, i) Arr(n2, i) = tmpArr(i) Next i Else ReDim tmpArr(UBound(Arr, 1)) For i = 0 To UBound(Arr, 1) tmpArr(i) = Arr(i, n1) Next i For i = 0 To UBound(Arr, 1) Arr(i, n1) = Arr(i, n2) Arr(i, n2) = tmpArr(i) Next i End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д