Сообщество Чайников

Вопрос

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

Ответ

Это не так уж и трудно делается, просто присваеваешь первый элемент первого массива последнему элементу второго массива и тд. Вот пример, как это сделать:

Dim a(5, 5) As Integer, b(5, 5) As Integer ' задаем 2 двумерных массива
For i = 1 To 5
For j = 1 To 5
n = n + 1
a(i, j) = n ' присваиваем значения элементам массива
Next j, i
For i = 5 To 1 Step -1 ' начинаем перебирать 1 массив
For j = 5 To 1 Step -1 'с самого последнего элемента
b(6 — i, 6 — j) = a(i, j) ' а 2 массив наоборот с первого элемента
Next j, i
For i = 1 To 5
For j = 1 To 5
Print a(i, j); b(i, j) ' распечатываем массивы
Next j, i

Dark