Создать приложение по поиску в каждой строке массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д