Очень нужен текст программы на языке VBA

'Синтаксис VB но это тот же х только вдругой руке думаю разберётесь

Private Sub Command1_Click()

Cls

Dim n As Long 'здесь будет колличество студентов
Dim array1() As Long 'обьявляем диномический массив

n = 20 'собственно колличество студентов выбираем произвольно

'задоём размерность нашего массива, первое это число студней
'второе количество оценок для каждого студня
ReDim array1(n, 5)

Dim i As Long, j As Long

'записываем данные в масив (оценки студентов)
For i = 0 To n - 1 'для всех студентов по очереди их 20
'для каждого студента записываем его оценки
For j = 0 To 4
'функция Возвращает Single значение, содержащее случайное число от 0 до 1
'умножив его на 4 и прибавив к полученному 2 разброс выйдет от 2 до 5(оценки)
X1 = Int(Rnd * 4) + 2
array1(i, j) = X1
'Print X1
Next j
Next i

Dim studni As Long 'здесь будут студенты без 2
studni = n 'всего студентов

For i = 0 To n - 1
For j = 0 To 4

'если у студня i есть 2 то отннимаем одног двоишника от общего колличесва
If array1(i, j) = 2 Then

studni = studni - 1
Exit For 'и выходим из этого цикла (проверяем следующего студня)

End If
Next j
Next i
Print studni 'выводим на форму колличество студентов без двоек

End Sub

Private Sub Form_Load()
Randomize
End Sub

http://www.proklondike.com/books/vb.html
http://www.proklondike.com/books/vb.html