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

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

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

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

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

10   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ