Поиск в строковых массивах.

Поиск в строковых массивах. 1. Поместить на форму frm1 кнопку cmd1 и  создать для неё событийную процедуру  cmd1_Click(), реализующую заполнение массива  буквами русского алфавита путём их  последовательного ввода с клавиатуры. Dim  strA(1 To 10) As String, bytI As Byte ‘ Заполнение массива с клавиатуры Sub cmd1_Click() For bytI = 1  To 10 StrA(bytI) = InputBox(“Введите букву”,  “  Заполнение массива”) Next bytI End Sub 2. Поместить на форму кнопку cmd2 и создать  для неё событийную процедуру cmd2_Click(),  реализующую поиск: (добавить в описание  первого массива в оператор Dim bytN) Sub cmd2_Click() ‘ Поиск элемента StrB = InputBox(“Введите искомую букву”,  “Поиск”) For bytI = 1  To 10 If strB=strA(bytI)  Then  bytN = bytI Next bytI frm1.Print “Буква и её номер:”   ;strB ; ”­“ ; bytN End Sub Поиск в числовом массиве. 1. Поместить на форму frm1 кнопку cmd3 и  создать для неё событийную процедуру  cmd3_Click(), реализующую заполнение массива  случайными числами.  (добавить в описание первого массива bytA(1 To  10)) Sub cmd3_Click() ‘ Заполнение массива присваиванием For bytI = 1  To  10 bytA(bytI)=Int(Rnd*100) frm1.Print  bytA(bytI) ; “ –“ ;”номер”; bytI Next bytI End Sub 2. Поместить на форму кнопку cmd4 и создать  для неё событийную процедуру cmd4_Click(),  реализующую поиск: (добавить в описание первого массива bytMin) Sub cmd4_Click()  ‘ Поиск минимального элемента bytMin=bytA(1) bytI=1 For bytI = 2  To 10 If  bytA(bytI)  < bytMin  Then  bytMin =  bytA(bytI) : bytN = bytI Next bytI frm1.Print “Минимальный элемент:”   ;bytMin ;  ”его индекс“ ; bytN End Sub Поиск в строковых массивах. 1. Поместить на форму frm1 кнопку cmd1 и  создать для неё событийную процедуру  cmd1_Click(), реализующую заполнение массива  буквами русского алфавита путём их  последовательного ввода с клавиатуры. Dim  strA(1 To 10) As String, bytI As Byte ‘ Заполнение массива с клавиатуры Sub cmd1_Click() For bytI = 1  To 10 StrA(bytI) = InputBox(“Введите букву”, “  Заполнение массива”) Next bytI End Sub 2. Поместить на форму кнопку cmd2 и создать  для неё событийную процедуру cmd2_Click(),  реализующую поиск: (добавить в описание  первого массива в оператор Dim bytN) Sub cmd2_Click() ‘ Поиск элемента StrB = InputBox(“Введите искомую букву”, “  Поиск”) For bytI = 1  To 10 If strB=strA(bytI)  Then  bytN = bytI Next bytI frm1.Print “Буква и её номер:”   ;strB ; ”­“ ; bytN End Sub Поиск в числовом массиве. 1. Поместить на форму frm1 кнопку cmd3 и  создать для неё событийную процедуру  cmd3_Click(), реализующую заполнение массива  случайными числами.  (добавить в описание первого массива bytA(1 To  10)) Sub cmd3_Click() ‘ Заполнение массива присваиванием For bytI = 1  To  10 bytA(bytI)=Int(Rnd*100) frm1.Print  bytA(bytI) ; “ –“ ;”номер”; bytI Next bytI End Sub 2. Поместить на форму кнопку cmd4 и создать  для неё событийную процедуру cmd4_Click(),  реализующую поиск: (добавить в описание первого массива bytMin) Sub cmd4_Click()  ‘ Поиск минимального элемента bytMin=bytA(1) bytI=1 For bytI = 2  To 10 If  bytA(bytI)  < bytMin  Then  bytMin =  bytA(bytI) : bytN = bytI Next bytI frm1.Print “Минимальный элемент:”   ;bytMin ;  ”его индекс“ ; bytN End Sub