Практическое упражнение.
Напишем программу, которая осуществляет заполнение массива с помощью оператора цикла, а затем - поиск записи в этом массиве по заданному критерию.
Элементом массива является запись, содержащая информацию о фамилии абонента и номере его телефона.
После ввода исходной информации, мы переходим в режим поиска, когда по введенной фамилии находится соответствующий номер телефона. Для выхода из этого режима необходимо будет ввести ключевое слово "exit".
Программа выглядит следующим образом:
Type Record
Fio As String
Telephone As String
End Type
Public Sub Номер_телефона()
Dim People(20) As Record
Do
num = InputBox("Введите количество записей в массиве")
If num > 20 Then MsgBox ("Слишком большое число")
Loop Until num <= 20
For i = 1 To num
People(i).Fio = InputBox("Фамилия, Имя, Отчество")
People(i).Telephone = InputBox("Номер телефона " & People(i).Fio)
Next i
Do
Fio = InputBox("Введите Ф.И.О. по которому необходимо определить номер телефона, для выхода - exit")
For i = 1 To num
If People(i).Fio = Fio Then MsgBox (Fio & ": " & People(i).Telephone)
Next i
Loop While Fio <> "exit"
End Sub
Следует обратить внимание на то, что задание собственных типов данных производится не в области описания процедуры, а в области описания модуля.
Контрольные вопросы.
Понятие массива. Индекс массива.
Описание массива. Многомерные массивы.
Задание собственных типов данных при помощи инструкции Type.
Область определения и время жизни переменных.
Личная переменная;
Переменная уровня модуля;
Общая переменная.
5. Статитеческая переменная.
Лабораторная работа №5.
Работа с объектами и их свойствами.
Создание пользовательской формы.
Цель: Научиться использовать объекты при для более эффективного применения VBA.
Visual Basic для приложений позволяет интегрировать в приложения объекты и объектно-ориентированные средства. Объектно-ориентированное программирование позволяет упростить восприятие текста программ и делает их более эффективными.
В языках визуального программирования важнейшую роль играют элементы управления в пользовательских формах. Все элементы управления и сами формы являются объектами. Эти объекты обрабатываются точно так же, как и другие элементы приложения.
Сам факт существования объектов не представляет особого интереса. Намного интереснее информация об объекте или его характеристика. Такие характеристики называют свойствами объекта.
Чтобы задать поведение и внешний вид объекта, требуется установить значения его свойств. После установки значения свойства, вероятно, потребуется использовать эту величину в программе. Значения свойств почти всегда доступны программисту. В некоторых редких случаях свойство используется только для внутренних целей и недоступно для чтения.
Использование окна свойств объекта.
Окно свойств используется для просмотра и задания свойств объектов проекта. Например, можно указать в окне свойств фон для формы, или изменить имя листа рабочей книги Excel.
Для отображения окна свойств выберите команду Вид/Окно свойств или нажмите клавишу <F4>.
На рис. 5.1 показано окно свойств для объекта UserForm (пользовательская форма).
В окне свойств отображаются только свойства текущего объекта. Для вывода свойств какого-либо объекта, выберите его из списка, расположенного вверху окна свойств (в данный момент выбран объект Форма UserForm).
Р
ис.
5.1
Мы видим, что окно свойств разделено на два столбца: название свойства выводится в левом столбце, а значение выбранного свойства - в правом. Чтобы изменить значение свойства, выберите требуемое свойство в левом столбце, а затем задайте нужную величину в правом столбце. Для некоторых свойств имеется ограниченный набор значений. Если при выборе свойства у правого края столбца значений отображается кнопка со стрелкой, то можно задать другую величину, нажав эту кнопку и выбрав из раскрывающегося списка требуемый элемент.
Установить значение свойства объекта, а так же получить его можно и программным путем. Синтаксис команд в этом случае выглядит так:
имяОбъекта.свойство = имяПеременной
имяПеременной = имяОбъекта.свойство