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

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


textual

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

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



Похожие ответы
  1. Помогите создать поле из кнопок размером 12 на 5 Т.е Кнопки должны идти по порядку по индексу но в виде 12 x 5 первая строка идет до 12 потом на следущей строке идет 13 14 15 и так далее ? НИкак не получается спасибо ((

  1. Раньше увлекался рисованием в QBasic, даже углублялся в математику. Но после перехода на VB прекратил это дело, хотя жалею. В QBasic-е мог бы спокойно нарисовать шум, как в телевизоре, когда нет сигнала, а в VB не знаю как это сделать. Подскажите? Знаю, что нужно создавать контрол PuctureBox и как-то в нём рисовать...

  1. Помогите пожалуйста решить проблему: в консольное приложение необходимо отправить определенную команду (например "go"). Пробовал это осуществить с помощью такой операции:

  1. Здравствуйте, подскажите, пожалуйста! Как создать новую папку с помощью Visual basic 6.0 , и названием папки указать переменное значение Label? И выдавало ошибку если папка уже существует

  1. как эту программу сделать попроще без кода за 100 строчек ? Разработать приложение, позволяющее изображать на форме имитацию сферы (метод Circle в цикле), куба (метод Line в цикле), закрашенный эллипс. Ввести в интерфейс приложения следующие элементы управления: 1) созданные на основе объектов HScrollBar и VScrollBar, позволяющие изменять размеры сферы, куба, эллипса; 2) управляющие автоматическим сжатием/увеличением сферы и куба (пульсирующие сфера и куб).

  1. Вопрос задан в заголовке. Меня интересует. Если можно, то как? А если нет, то что можно?

  1. Здравствуйте! Очень прошу помощи. Мечтаю слиться с Visual Basic 6.0 в одно целое, ощущать его сердцем. Не знаю, подскажите пожалуйста: как осуществить план (замысел) по созданию двумерного массива 5х5 из клеток (каждая размером 1000х1000 — квадратики). В основе лежит функция "Shape" из стандартного набора Visual Basic 6.0. Надо, чтобы каждая ячейка-клетка могла становиться активной.Заранее прошу прощения за свою тупость, вкупе с ограниченностью. Напишу правду о моих впечатлениях от поиска аналогов по форуму. Например: Посмотрел тему Нарисовать листок в клетку, скачал три вложения: 1) Сетка.rar; 2) Project1.rar; 3) Н.rar — потрясён (!!) до умопомрачения (до глубины души). Какие ужасные и отвратительные проекты! Сочувствую ТС, сам не знал: как избавиться от "несуразной Сетки". Руки хотелось оторвать автору. Замучился удалять. Пришлось гасить процесс через (!) "Диспетчер задач", картинки ниже.

  1. Спроектировать приложение по вычислению стоимости товара (S), если известна цена (с), и количество (k), купленного товара одного наименования. P.S. Можете написать код

  1. Допустим на компьютере, где будет запускаться программа, нет RichTx32.Ocx и тогда создаётся конструкция вида: