VB 15. Массивы

* Задание: Разработайте приложение, которое вычисляет сумму и среднее арифметическое 10 целых чисел от 0 до 100.

Выполнение:

  1. Создайте новый проект. Расположите элементы управления на новой форме (рис. 15.1).
Масивы в VB

Рис. 15.1. Форма «Массивы»

  1. Задайте свойству Multiline для текстового окна txtМассив значение равное true (для того, чтобы в текстовом окне можно было выводить текст в несколько строк).
  2. Далее необходимо запрограммировать кнопку Вычислить так, чтобы в текстовое окно выводились элементы массива, их сумма, а затем их среднее арифметическое. Для этого в процедуре, описывающей событие щелчка мыши по кнопке Вычислить, опишем переменные, которые мы будем использовать при решении поставленной задачи:
Dim Массив(9) As Integer
Dim i As Integer
Dim Сумма As Integer
  1. Для среднего арифметического специальную переменную описывать не надо, потому что оно вычисляется по формуле Сумма разделить на 10.
  2. Для того чтобы задать значения элементов массива, воспользуемся циклом:
For i = 0 To 9
Массив(i) = Rnd() * 100
Next

Функция Rnd возвращает значение, которое меньше 1, но больше или равно нуля.

  1. Теперь задайте начальное значение для Суммы, равное 0
  2. С помощью следующего цикла вычислим сумму элементов массива:
For i = 0 To 9
 Сумма = Сумма + Массив(i)
Next
  1. Теперь осталось вывести элементы массива, сумму и среднее арифметическое в текстовое окно.
  2. Сначала выведите фразу Массив:
txtМассив.Text = "Массив: "
  1. Теперь в цикле необходимо вывести элементы массива:
For i = 0 To 9
 txtМассив.Text = txtМассив.Text + Str(Массив(i))
Next

Функция str представляет возвращаемое числовое значение как строковое (String).

  1. Для того чтобы выводить текст с новой строки, добавьте символ перехода на новую строку, ASCII-код которого равен Chr(10)+Chr(13) (или значение встроенной константы vbCrLf), т.е.:
txtМассив.Text = txtМассив.Text + vbCrLf + "Сумма:" + Str(Сумма)
  1. Самостоятельно добавьте вывод в текстовое окно среднего арифметического.
  2. Запустите и отладьте программу.


Дополнительное задание:

  1. Разработать приложение, которое находит максимальное и минимальное число из 15 заданных целых чисел.

Контрольное задание:

  1. Разработайте приложение сортировки одномерного массива по возрастанию.



Вопросы для самоконтроля:

  1. Как объявляется массив в VB?
  2. Сколько элементов будет содержать массив, который описан с помощью следующего оператора:
Dim Девять(9) as integer
  1. С помощью какого ключевого слова можно описать массив, который будет доступен всем модулям приложения?

* При использовании материалов обязательна ссылка на источник: Майер С.Ф., «MS Visual Basic 2008» — Учебно-методическое пособие : Южный федеральный университет. – Ростов-на-Дону, 2017. – 92 с.
Поделитесь уроком с коллегами и друзьями:

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*
*

Вставить формулу как
Блок
Строка
Дополнительные настройки
Цвет формулы
Цвет текста
#333333
Используйте LaTeX для набора формулы
Предпросмотр
\({}\)
Формула не набрана
Вставить