Поменять местами элементы матрицы симметрично относительно горизонтальной оси симметрии - QBasic

Формулировка задачи:

В матрице B(m,m) поменять местами элементы матрицы симметрично относительно горизонтальной оси симметрии.

Решение задачи: «Поменять местами элементы матрицы симметрично относительно горизонтальной оси симметрии»

Листинг программы

CLS
RANDOMIZE TIMER
m = 7
DIM B(1 TO m, 1 TO m) AS INTEGER
 
FOR i = 1 TO m
FOR j = 1 TO m
   B(i, j) = 80 * RND - 40
   PRINT USING "####"; B(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR j = 1 TO m
FOR i = 1 TO m \ 2
   SWAP B(i, j), B(m + 1 - i, j)
NEXT i, j
 
FOR i = 1 TO m
FOR j = 1 TO m
   PRINT USING "####"; B(i, j);
NEXT j: PRINT
NEXT i
 
END

Объяснение кода листинга программы

Вот список действий, которые выполняет данный код:

Устанавливает начальное значение для переменной m (7).
Создает двумерный массив B размером 1x1 до 7x7.
Заполняет массив B случайными числами от 0 до 79 с шагом 80.
Выводит на экран первую строку массива B.
Затем он выводит на экран каждую строку массива B.
Затем он меняет местами элементы массива B, начиная со второй строки, и выводит на экран результат.
Выводит на экран последнюю строку массива B.
Код заканчивается.