Создать приложение по поиску в каждой строке массива - VB

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

Создать приложение по поиску в каждой строке массива размером 5х10 количества элементов, меньших среднего арифметического всех элементов этой строки. Массив заполняется случайными числами. Результат выводится при нажатии командной кнопки. Предусмотрите возможность корректного завершения приложения.

Решение задачи: «Создать приложение по поиску в каждой строке массива»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
Private Sub Command1_Click()
Dim A() As Integer, B() As Single, kol() As Integer
Dim i As Integer, j As Integer, m As Integer, n As Integer
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
m = 5: n = 10
ReDim A(1 To m, 1 To n), B(1 To m), kol(1 To m) ' Размеры массива А -  m-строк, n-столбцов
 
For i = 1 To m
     B(i) = 0
     For j = 1 To n
          A(i, j) = Int(Rnd * 101) 'Заполняем массив случайными числами
          Print A(i, j); vbTab;
          B(i) = B(i) + A(i, j)
     Next j
     B(i) = B(i) / n
     Print
     Print "Среднее арифметическое  " & i & "-й  строки равно "; B(i)
     Print
Next i
Print
 
For i = 1 To m
   kol(i) = 0
   Print "Элементы " & i & " строки меньшие  её среднего арифметического"
   For j = 1 To n
       If A(i, j) < B(i) Then
         kol(i) = kol(i) + 1
         Print vbTab; A(i, j);
       End If
   Next j
   Print
   Print "Количество элементов " & i & " строки меньших её среднего арифметического = " & Str(kol(i))
 
   Print
Next i
 
End Sub