Переставить местами элементы побочной диагонали матрицы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д