Глава 4. полнение массива буквами русского алфавита путем их

полнение массива буквами русского алфавита путем их

последовательного ввода с клавиатуры. Для реализации поиска создадим событийную процедуру, в которой запрашивается буква для поиска и в цикле произ­водится ее сравнение со всеми элементами массива. В случае совпадения буквы и значения элемента массива переменной bytN присваивается значение индекса данного элемента. Ре­зультат поиска выведем на форму.

2. Поместить на форму кнопку cmd2 и создать для нее собы­
тийную процедуру cmd2_Click (), реализующую поиск:
Dim strA(l To 33) As String, bytl, bytN As
Byte

'Поиск элемента Sub cmd2_Click()

strB = InputBox("Введите искомую букву", "Поиск")

For bytl = 1 To 33

If strB = strA(bytl) Then bytN = bytl Next bytl

frml. Print "Буква и ее номер: "; strB; "-"; bytN End Sub

3. Запустить проект. Щелк- HESBSBSSESS^Sl _|п| х|
нуть по кнопке Заполнить Буква и ее номер: г- 4

Заполнить массив

Поиск

массив и последовательно ввести буквы русского ал­фавита. Щелкнуть по кноп­ке Поиск и ввести искомую букву, например «г».

Проект хранится в каталоге __. г,^., irt£=>

\textbook\VB\prjVB14\ ________ CD-ROM |k^

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

Осуществим поиск наименьшего элемента (то есть эле­мента с наименьшим значением) в числовом массиве, состо­ящем из 100 элементов.

Сначала заполним массив целыми случайными числами в цикле с использованием генератора случайных чисел функ­ции Rnd и функции выделения целой части числа Int.