Смена местами диагоналей матрицы

[Malone32®]

Как поменять местами соответствующие элементы главной и побочной диагоналей матрицы? Никак не могу найти свою ошибку..

Dim i As Integer, j As Integer, razmer As Integer
Dim znak As Integer, k As Integer
Dim a() As Integer, c As Integer
Randomize
razmer = Int(Rnd * 3) + 2
ReDim a(1 To razmer, 1 To razmer)
For i = 1 To razmer
For j = 1 To razmer
znak = Int(Rnd * 2)
a(i, j) = Int(Rnd * 9)
If stroka = "" Then
stroka = a(i, j)
Else
stroka = stroka & " " & a(i, j)
End If
Next
List1.AddItem stroka
stroka = ""
Next

k = razmer + 1
For i = 1 To razmer
For j = 1 To razmer
If i = j Then
c = a(i, j)
k = k - 1
a(i, j) = a(i, k)
a(i, k) = c
End If
stroka = stroka & " " & a(i, j)
Next
List2.AddItem stroka
stroka = ""
Next

[alibek]

Код: Выделить всё

For i = 1 To razmer
  If i <> (razmer-i)+1 Then
    c = a(i, i)
    a(i, i) = a(i, razmer-i+1)
    a(i, razmer-i+1) = c
  End If
Next i

[Malone32®]

alibek, извини я не понял твой код...

[alibek]

Что именно непонятно?
Этот код меняет местами диагональные элементы квадратной матрицы.

[Malone32®]

Не понял куда его всталять. Если правильно вставил, то результат точно такой, каким и был....

[Viper]

Неужто не меняет?

[Malone32®]

alibek, ты такой код имел в виду? он не работает нормально, некоторые элементы не меняет

Код: Выделить всё

Dim i As Integer, j As Integer, razmer As Integer
Dim znak As Integer, k As Integer
Dim a() As Integer, c As Integer
Randomize
'znak = 1
razmer = Int(Rnd * 3) + 2
ReDim a(1 To razmer, 1 To razmer)
    For i = 1 To razmer
        For j = 1 To razmer
'            znak = Int(Rnd * 2)
'                If znak Mod 2 = 1 Then
'                    znak = -znak
'                Else
'                    znak = znak
'                End If
                     a(i, j) = Int(Rnd * 9) ' * znak
            If stroka = "" Then
                stroka = a(i, j)
            Else
                stroka = stroka & "   " & a(i, j)
            End If
        Next
        List1.AddItem stroka
    stroka = ""
    Next

For i = 1 To razmer
    For j = 1 To razmer
        If j <> (razmer - j) + 1 Then
            c = a(j, j)
            a(j, j) = a(j, razmer - j + 1)
            a(j, razmer - j + 1) = c
        End If
            If stroka = "" Then
                stroka = a(i, j)
            Else
                stroka = stroka & "   " & a(i, j)
            End If
    Next
    List2.AddItem stroka
stroka = ""
Next

[alibek]

Зачем тебе два вложенных цикла???

[Viper]

у меня такое ощущение, что автор хочет что-то другое, а не то что спрашивает...

[Malone32®]

alibek, извиняюсь за наглость, но не мог бы ты написать полный рабочий код, а то я совсем запутался...
Два вложенных цикла использую для того, чтобы был выведен результат. А что, можно обойтись одним??
Спасибо.

[Malone32®]

Кто-нибудь знает где моя ошибка, не мог бы кто-нибудь мне помочь?