Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы