Получить матрицу B(M,N) из матрицы A(M,N) путем перестановки элементов главной диагонали матрицы - VB

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

Получить матрицу B(M,N) из матрицы A(M,N) путем перестановки элементов главной диагонали матрицы A с элементами побочной диагонали

Написать программу проверки умения умножать и делить дробные числа в пределах 100.Программа должна вывести 5 примеров ,причем в каждом примере делимое должно быть больше или равно делителю,т.е. не допускается предлагать примеры с результатом меньше 1.

Помогите с решением,буду очень очень благодарен

Решение задачи: «Получить матрицу B(M,N) из матрицы A(M,N) путем перестановки элементов главной диагонали матрицы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
'Г§Г*ГЇГ®Г«ГҐГ*ГЁГҐ Г¬Г*ГІГ°ГЁГ¶Г» A
n = 5 'n = InputBox("ГўГўГҐГ¤ГЁГІГҐ n")
ReDim a(n, n) As Integer
ReDim b(n, n) As Integer
For i = 0 To n - 1
    For j = 0 To n - 1
        a(i, j) = Int(Rnd * 9 + 1) 'Г±Г«ГіГ·Г*Г©Г*Г»Г¬ГЁ Г·ГЁГ±Г«Г*Г¬ГЁ
    Next
Next
 
b = a
For i = 0 To n - 1
    b(i, i) = a(n - 1 - i, i)
    b(n - 1 - i, i) = a(i, i)
Next
 
'ГўГ»ГўГ®Г¤ ,Г¤Г«Гї Г®ГЎГ®ГЁГµ textbox Г*ГіГ¦Г*Г® ГўГЄГ«ГѕГ·ГЁГІГј multiline
Text1 = ""
Text2 = ""
For i = 0 To n - 1
    For j = 0 To n - 1
        Text1 = Text1 & a(i, j) & vbTab
        Text2 = Text2 & b(i, j) & vbTab
    Next
    Text1 = Text1 & vbCrLf
    Text2 = Text2 & vbCrLf
Next
End Sub