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

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

Помогите пожалуйста решить задачу:"Переставить местами элементы побочной диагонали матрицы, симметричные относительно её центра.". Неделю с ней сижу, не могу решить. Начало вроде правильное.
Dim x() As Single, i, n, k As Integer
 
Private Sub Выход_Click()
t = MsgBox("Выдействительно хотите выйти??", vbYesNo)
If t = vbYes Then End
 
End Sub
 
Private Sub Переставить_Click()
Text2.BackColor = RGB(200, 200, 180)
Text2.ForeColor = vbBlue
For i = 1 To n mod 2
    For j = 1 To n
        If j = k Then x(i, j) = x(j, i)
        Text2.Text = Text2.Text + Str(x(i, j)) + "  "
    Next: Text2.Text = Text2.Text + Chr(13) + Chr(10)
Next
End Sub
 
 
Private Sub Показать_Click()
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
End Sub
 
Private Sub Создать_Click()
n = Val(InputBox("Ввести размерность массива", , "N="))
ReDim x(n, n)
Randomize timtr
For i = 1 To n
    For j = 1 To n
        x(i, j) = Int(Rnd * 9) - 1
    Next
Next
End Sub
 
Private Sub Удалить_Click()
Text1.Text = ""
Text2.Text = ""
 
End Sub
 
Private Sub Picture1_Click()
 
End Sub
в этой части программы:
Private Sub Переставить_Click()
Text2.BackColor = RGB(200, 200, 180)
Text2.ForeColor = vbBlue
For i = 1 To n mod 2
    For j = 1 To n
        If j = k Then x(i, j) = x(j, i)
        Text2.Text = Text2.Text + Str(x(i, j)) + "  "
    Next: Text2.Text = Text2.Text + Chr(13) + Chr(10)
Next
End Sub
наверно куча ошибок

Код к задаче: «Переставить местами элементы побочной диагонали матрицы - 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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


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