Определить число неуспевающих студентов и средний бал группы по всем экзаменам - VB

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

Вводя в цикле по 5 оценок каждого студента, подсчитать число студентов, не имеющих оценок 2 и 3. В группе учится n студентов. определить число неуспевающих студентов и средний бал группы по всем экзаменам. Пояснить метод решения задачи. ГОтов на любые пожертвования ! )))

Решение задачи: «Определить число неуспевающих студентов и средний бал группы по всем экзаменам»

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

                            Option Explicit
Private Sub Command1_Click()
Dim N As Integer ' Количество студентов в группе
Dim Ball() As Integer, Ozenki ' Баллы
Dim chisloBezDvoekiTroek As Integer, chisloSDvoikami As Integer ' Число студентов без 2 и 3, число неуспевающих
Dim neUspev() As Boolean, uspev() As Boolean 'Неуспевающий, успевающий
Dim sredBall As Single, vseBall As Integer 'Средний балл,сумма всех баллов
Dim i As Integer, j As Integer
N = InputBox("Введите количество студентов в группе", "Ввод данных", 3)
ReDim Ball(1 To N, 1 To 5), uspev(1 To N), neUspev(1 To N)
Cls
For i = 1 To N
   Ozenki = Split(Trim(InputBox("Введите через запятую оценки студентa №" & i, "Ввод данных", "2, 3, 4, 5, 2")), ",") '
   Print
   Print "Баллы студента №" & i
   uspev(i) = True: neUspev(i) = False
   For j = 1 To 5
    Ball(i, j) = Val(Ozenki(j - 1)) 'вводим оценки студента в массив
    If Ball(i, j) < 4 Then uspev(i) = False  'Если студент имеет 2 или 3, то он не относится к студентам не имеющим 2 и 3
    If Ball(i, j) < 3 Then neUspev(i) = True 'Если студент имеет 2 - он неуспевающий
    vseBall = vseBall + Ball(i, j) 'сумма всех баллов по всем предметам в группе
    Print Ball(i, j);
  Next j
  If neUspev(i) = True Then chisloSDvoikami = chisloSDvoikami + 1 'считаем всех неуспевающих
  If uspev(i) = True Then chisloBezDvoekiTroek = chisloBezDvoekiTroek + 1 'считаем всех без двоек и троек
  Print
Next i
sredBall = vseBall / (N * 5) 'вычисляем средний балл
Print
Print "Число студентов не имеющих 2 и 3 равно  "; chisloBezDvoekiTroek
Print "Число неуспевающих студентов равно  "; chisloSDvoikami
Print "Средний балл по всем предметам за группу равен  "; sredBall
End Sub
                        