Переставить местами элементы побочной диагонали матрицы - VB

  1. Помогите пожалуйста решить задачу:"Переставить местами элементы побочной диагонали матрицы, симметричные относительно её центра.". Неделю с ней сижу, не могу решить. Начало вроде правильное.


textual

Код к задаче: «Переставить местами элементы побочной диагонали матрицы - VB»

Option Explicit
Dim i  As Integer, j As Integer, n As Integer, k As Integer, x() As Integer
Private Sub Переставить_Click()
Text1.Text = ""
Text2.Text = ""
Text2.BackColor = RGB(200, 200, 180)
Text2.ForeColor = vbBlue
n = Val(InputBox("Ввести размерность массива", "N=", 5))
ReDim x(1 To n, 1 To n)
Randomize
 
For i = 1 To n
    For j = 1 To n
         x(i, j) = Int(Rnd * 9) - 1
    Next
Next
 
For i = 1 To n
    For j = 1 To n
          Text1.Text = Text1.Text + Str(x(i, j)) + " "
    Next: Text1.Text = Text1.Text + Chr(13) + Chr(10)
Next
 
For i = 1 To n \ 2
   k = x(i, n - i + 1)
   x(i, n - i + 1) = x(n - i + 1, i)
   x(n - i + 1, i) = k
 
Next
 
For i = 1 To n
    For j = 1 To n
          Text2.Text = Text2.Text + Str(x(i, j)) + " "
    Next: Text2.Text = Text2.Text + Chr(13) + Chr(10)
Next
 
End Sub

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.000 из 5



Похожие ответы
  1. Сформировал двумерный массив A(10,8). Как поменять местами правую и левую часть этого массива?

  1. Есть идеи насчет третьего задания?

  1. Нужно переставить элементы одномерного массива следующим образом a(0), a(11), a(1), a(10), a(2), a(9), a(3), a(8). a(4), a(7), a(5), a(6). Заранее благодарю!

  1. дан массив действительных чисел. поменять местами наибольший и наименьший элементы заданного массива

  1. 1)Массив из 9 элементов. Поменять местами первый положительный элемент с первым отрицательным элементом 2)...Добавлено через 2 минуты Напишите программу

  1. В массиве Z(19) найти наибольший и наименьший элементы и поменять их местами. Вот нашел код

  1. Добрый день, всем и каждому. Помогите с решением следующей задачки. Нужно Поменять местами элементы 3-й и 6-й строк. Результат вывести на лист Заранее спасибо.

  1. Переставить первые три и последние и последние три элемента местами, сохраняя их следования/ Visual Basic ПОМОГИТЕ ПОЖАЛУЙСТА!!!

  1. Пересчитать матрицу К размерности m * n так, чтобы поменялись местами первый и последний столбец. Для отладки программы контрольный пример выбрать самостоятель*но. Помогите найти ошибку