Сформировать матрицу из элементов одномерного массива по правилу

Module Module1
 
    Sub Main()
        Dim a(9) As Integer
        Dim b(3, 3) As Integer
        For i = 1 To 9
            a(i) = Rnd() * 20 - 10
            Console.Write(a(i) & " ")
        Next
 
        Console.WriteLine("переделаем последовательность в матрицу 3х3: ")
 
        For i = 1 To 3
            For j = 1 To 3
                b(i, j) = a(i)
                Console.Write(b(i, j) & " ")
            Next j
            Console.WriteLine()
        Next i
Console.Read()
 
    End Sub
 
End Module

Module Module1
 
    Sub Main()
        Dim i, j, k, tmp, a(9) As Integer
        Dim b(3, 3) As Integer, r As New Random
        Randomize()
        Console.WriteLine("исходный массив")
        For i = 1 To 9
            a(i) = r.Next(-10, 10) ' Rnd() * 20 - 10
            Console.Write(a(i) & vbTab)
        Next
        Console.WriteLine("   ")
        Console.WriteLine("переделаем последовательность в матрицу 3х3: ")
 
        For i = 1 To 3
            For j = 1 To 3
                k = k + 1
                b(i, j) = a(k)
                Console.Write(b(i, j) & vbTab)
            Next j
            Console.WriteLine()
        Next i
 
 
        Console.WriteLine("сортируем в строках по убыванию")
        For i = 1 To 3
            For j = 1 To 3
                For k = 1 To 2
                    If b(i, k) < b(i, k + 1) Then
                        tmp = b(i, k)
                        b(i, k) = b(i, k + 1)
                        b(i, k + 1) = tmp
                    End If
                Next k
            Next j
        Next i
 
        For i = 1 To 3
            For j = 1 To 3
                Console.Write(b(i, j) & vbTab)
            Next j
            Console.WriteLine()
        Next i
 
        Console.Read()
 
    End Sub
 
End Module

Dim a(8) As Integer