Циклы массивов (найти отличников и хорошистов) - VB

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

Дан массив из 25 человек. У каждого 15 оценок. В коде ниже считается средний балл и по нему идет определение на отличника (все оценки 5) и хорошиста (все оценки 4 или 5) Отличников считает правильно, а вот хорошистов выдает 0. если из условия If so(i) >= 4 And so(i) < 5 And none = 0

убрать

none = 0, то все считает, но только по среднему баллу, а проверки на оценку 3 нету. Понимаю что If oc(i, j) <= 3 Then : none = none + 1 : End If нужно поставить после Next j Но тогда выдает ошибку что массив выходит за границы. Помогите плизз

    
    Public n As Integer     'Количество учеников
    Public oc(,) As Integer 'Оценки
    Public otl As Single    'Процент отличников
    Public hor As Single    'Процент хорошистов
    Public so() As Single   'Средние баллы  каждого ученика
 
    ' Определение % отличников и хорошистов, и средних баллов каждого
    Public Sub sred()
        Dim i, j, none As Integer
        ReDim so(n - 1)
        otl = 0 : hor = 0 : none = 0
 
        For i = 0 To n - 1
            For j = 0 To 14
                so(i) = so(i) + oc(i, j)
                If oc(i, j) <= 3 Then : none = none + 1 : End If
            Next j
 
            so(i) = so(i) / 15
            If so(i) = 5 Then : otl = otl + 1 : End If
            If so(i) >= 4 And so(i) < 5 And none = 0 Then : hor = hor + 1 : End If
 
        Next i
        otl = (otl / n) * 100 : hor = (hor / n) * 100
 
    End Sub

Решение задачи: «Циклы массивов (найти отличников и хорошистов)»

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

                              For i = 0 To n - 1
          none=0
            For j = 0 To 14
                so(i) = so(i) + oc(i, j)
                If oc(i, j) <= 3 Then : none = none + 1 : End If
            Next j
 
            so(i) = so(i) / 15
            If so(i) = 5 Then : otl = otl + 1 : End If
            If so(i) < 5 And none = 0 Then : hor = hor + 1 : End If
 
        Next i
        otl = (otl / n) * 100 : hor = (hor / n) * 100
                        