Visual basic ошибочка в программе - VB

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

Написал программу введения матрицы A и r, решения систем уравнений схемой Халецкого и вывода ответа в виде матрицы x. В промежуточной месте есть вывод матрицы А: DataGridView1.Rows(i).Cells(j).Value = Str(A(i, j)). Незнаю что не правильно, но в строке c(i, j) = (A(i, j) - s1) / b(i, i) выходит ошибка ( два скриншота приложил, с формой и ошибкой). Кто может помогите пожалуйста. Спасибо всем

 Dim i, j, n, s, s1, s2 As Integer
        Dim A(,), r(), x(), c(,), b(,), y() As Integer
        n = 8
        ReDim A(n, n), r(n), x(n), c(n, n), b(n, n), y(n)
        DataGridView1.ColumnHeadersVisible = False
        DataGridView1.RowHeadersVisible = False
        DataGridView1.RowCount = n
        DataGridView1.ColumnCount = n
        For i = 1 To n - 1
            For j = 1 To n - 1
                A(i, j) = 0
            Next
        Next
 
        For i = 1 To 8
            r(i) = 0
        Next
 
        For i = 1 To 8
            For j = 1 To 8
                A(1, 1) = 1
                A(1, 2) = -1
                A(1, 5) = -1
                A(2, 2) = 1
                A(2, 3) = 1
                A(2, 4) = -1
                A(3, 1) = -1
                A(3, 4) = 1
                A(3, 6) = -1
                A(3, 7) = -1
                A(4, 3) = -1
                A(4, 7) = 1
                A(4, 8) = 1
                A(5, 4) = Val(TextBox2.Text)
                A(6, 3) = Val(TextBox1.Text)
                A(6, 4) = Val(TextBox2.Text)
                A(6, 7) = Val(TextBox3.Text)
                A(7, 5) = Val(TextBox4.Text)
                A(8, 5) = Val(TextBox4.Text)
                A(8, 7) = Val(TextBox3.Text)
                A(8, 8) = Val(TextBox5.Text)
                r(1) = Val(TextBox7.Text)
                r(2) = Val(TextBox8.Text)
                r(3) = Val(TextBox6.Text)
                r(4) = Val(TextBox6.Text)
            Next
        Next
 
        For i = 0 To n - 1
            For j = 0 To n - 1
                DataGridView1.Rows(i).Cells(j).Value = Str(A(i, j))
            Next j
        Next i

        For i = 1 To 8
            For j = 1 To 8
                c(i, j) = 0
                b(i, j) = 1
            Next
        Next
 
        For i = 1 To n
            c(i, i) = 1
        Next
 
        For i = 1 To n
            b(i, 1) = A(i, 1)
            c(1, i) = A(1, i) / b(1, 1)
        Next
 
        y(1) = r(1) / b(1, 1)
 
        For i = 2 To n
            For j = 2 To i
                s = 0
                For k = 1 To j - 1
                    s = s + b(i, k) * c(k, j)
                Next
                b(i, j) = A(i, j) - s
            Next

            For j = i To n
                s1 = 0
                s2 = 0
                For k = 1 To i - 1
                    s1 = s1 + b(i, k) * c(k, j)
                    s2 = s2 + b(i, k) * y(k)
                Next
               [B][I] c(i, j) = (A(i, j) - s1) / b(i, i)[/I][/B]
                y(i) = (r(i) - s2) / b(i, i)
            Next
        Next
 
        x(n) = y(n)
        For i = n - 1 To 1 Step -1
            s = 0
            For k = i + 1 To n
                s = s + c(i, k) * x(k)
            Next
            x(i) = y(i) - s
        Next
 
        For i = 0 To n - 1
            TextBox9.Text = TextBox9.Text & Str(x(i)) & " "
        Next i

Новый точечный рисунок.zipНовый точечный рисунок (2).zip

Решение задачи: «Visual basic ошибочка в программе»

textual
                            Листинг программы 
                        

                            Dim i, j, n, s, s1, s2 As integer
        Dim A(,), r(), x(), c(,), b(,), y() As Double
        n = 7
        ReDim A(n, n), r(n), x(n), c(n, n), b(n, n), y(n)
        DataGridView1.ColumnHeadersVisible = False
        DataGridView1.RowHeadersVisible = False
        DataGridView1.RowCount = n + 1
        DataGridView1.ColumnCount = n + 1
        For i = 0 To n
            For j = 0 To n
                A(i, j) = 0
                r(i) = 0
            Next
        Next
 
        A(0, 0) = 1
        A(0, 1) = -1
        A(0, 4) = -1
        A(1, 1) = 1
        A(1, 2) = 1
        A(1, 3) = -1
        A(2, 0) = -1
        A(2, 3) = 1
        A(2, 5) = -1
        A(2, 6) = -1
        A(3, 2) = -1
        A(3, 6) = 1
        A(3, 7) = 1
        A(4, 3) = Val(TextBox2.Text)
        A(5, 2) = Val(TextBox1.Text)
        A(5, 3) = Val(TextBox2.Text)
        A(5, 6) = Val(TextBox3.Text)
        A(6, 4) = Val(TextBox4.Text)
        A(7, 4) = Val(TextBox4.Text)
        A(7, 6) = Val(TextBox10.Text)
        A(7, 7) = Val(TextBox5.Text)
        r(4) = Val(TextBox7.Text)
        r(5) = Val(TextBox8.Text)
        r(6) = Val(TextBox6.Text)
        r(7) = Val(TextBox6.Text)
 
        For i = 0 To 7
            For j = 0 To 7
                c(i, j) = 0
                b(i, j) = 0
            Next
        Next
 
        For i = 0 To 7
            c(i, i) = 1
        Next
 
        For i = 0 To n
            b(i, 0) = A(i, 0)
            c(0, i) = A(0, i) / b(0, 0)
        Next
 
        y(0) = r(0) / b(0, 0)
 
        For i = 1 To n
            For j = 1 To i
                s = 0
                For k = 0 To j - 1
                    s = s + b(i, k) * c(k, j)
                Next
                b(i, j) = A(i, j) - s                
            Next
        Next
 
b(2, 1) = A(2, 1)
 
        For j = i To n
            s1 = 0
            s2 = 0
            For k = 0 To i - 1
                s2 = s2 + b(i, k) * y(k)
                y(i) = (r(i) - s2) / b(i, i)
            Next
        Next
 
        c(0, 4) = A(0, 4)
        c(1, 2) = A(1, 2)
        c(1, 3) = A(1, 3)
        c(2, 3) = A(2, 3)
        c(2, 5) = A(2, 5)
        c(2, 6) = A(2, 6)
        c(3, 6) = A(3, 6)
        c(3, 7) = A(3, 7)
        c(5, 6) = A(5, 6)
 
        x(n) = y(n)
        For i = n - 1 To 1 Step -1
            s = 0
            For k = i + 1 To n
                s = s + c(i, k) * x(k)
            Next
            x(i) = y(i) - s
        Next
 
        TextBox11.Text = TextBox11.Text & Str(s)
 
        For i = 0 To n
            TextBox9.Text = TextBox9.Text & Str(y(i))
        Next i
 
 
        For i = 0 To n
            For j = 0 To n
                DataGridView1.Rows(i).Cells(j).Value = Str(c(i, j))
            Next j
        Next i
                        