Глава 4. Каждый элемент массива может принимать собственное значение

Каждый элемент массива может принимать собственное значение. Так, значением элемента массива strA(5) являет­ся строка "д"

Объявление массива производится аналогично объявле­нию переменных, необходимо только дополнительно указать диапазон изменения индексов. После объявления массива для его хранения отводится определенное место в памяти.

Например, объявление одномерного строкового массива, содержащего 33 элемента, производится следующим обра­зом:

Dim strA(l To 33) As String

Вопросы для размышления

1. В чем состоит различие между переменной и массивом?

4.13.2. Заполнение массива

Для начала работы с массивом необходимо его предвари­тельно заполнить, то есть присвоить элементам массива определенные значения. Заполнение массива можно произ­водить различными способами.

Заполнение с клавиатуры. Первый способ состоит в том, что значения элементов массива вводятся пользователем с клавиатуры, например с помощью функции InputBox. Тог­да для заполнения рассмотренного выше строкового массива strA(bytl) буквами русского алфавита можно использо­вать следующую событийную процедуру:

Dim strA(l To 33) As String, bytl As Byte ' Заполнение массива с клавиатуры Sub cmdl_Click() For bytl = 1 To 33

strA(bytl) = InputBox("Введите букву", _ "Заполнение массива") Next bytl End Sub

Заполнение с помощью оператора присваивания. Второй способ заполнения массива состоит в использовании опера­тора присваивания. Заполним числовой массив bytA(bytl) целыми случайными числами в интервале от 1 до 100.

Основы алгоритмизации и программирования

Для генерации последовательности случайных чисел ис­пользуем функцию Rnd. При запуске программы функция Rnd дает равномерно распределенную псевдослучайную (то есть каждый раз повторяющуюся) последовательность чисел из интервала 0 < X < 1. Для того чтобы генерирова­лись различающиеся между собой последовательности, мож­но использовать оператор Randomize.

Для получения последовательности случайных чисел в заданном интервале А < X < В необходимо использовать сле­дующую формулу:

(В-А)* Rnd + A

Получение целочисленной последовательности случай­ных чисел из интервала 0 < X < 100 достигается использова­нием функции выделения целой части числа:

IntfRnd * 100)

Создадим событийную процедуру для заполнения одно­мерного целочисленного массива случайными числами:

Dim bytA(l To 100), bytl As Byte ' Заполнение массива присваиванием Sub cmdl_Click() For bytl = 1 To 100 bytA(bytl) = Int(Rnd * 100) Next bytl End Sub

JB&a Практические задания

4.27. Разработать проект, в котором массив заполняется значения­ми текущего времени.

4.13.3. Поиск в массивах

Поиск в строковых массивах. Поиск в строковых масси­вах обычно реализуется в форме поиска индекса элемента массива, значение которого совпадает с заданным.

Создадим проект, который в строковом массиве, содер­жащем русский алфавит, осуществляет поиск заданной бук­вы и определяет ее порядковый номер в алфавите.

ЛУ Проект «Поиск в строковом массиве»

1. Поместить на форму f rml кнопку cmdl и создать для нее событийную процедуру cmdl_Click (), реализующую за-