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

Узнай цену своей работы

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

Помогите пожалуйста решить задачу:

"Переставить местами элементы побочной диагонали матрицы, симметричные относительно её центра."

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

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

textual
Листинг программы
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 из 5
Похожие ответы