3. Каков приоритет выполнения групп операторов?

В порядке убывания - арифметические, операторы сравнения, логические. Оператор конкатенации строк (&) здесь условно отнесен к группе арифметических операторов.

4. Как изменить естественный порядок выполнения операций?

Заключите отдельные высказывания всего выражения в круглые скобки.

5. Операторы какой группы обладают наивысшим приоритетом выполнения?

Первыми выполняются арифметические операторы.

Упражнения

1. Напишите текст подпрограммы, демонстрирующей все возможные сочетания значений аргументов оператора And.

Sub TruthTable( )

Dim Test As Boolean Test = False And False Test = False And True

Test = True And False

Test = True And True End Sub

2. Используя окно непосредственного исполнения кода (Immediate) интегрированной

среды программирования Microsoft Visual Basic, вычислите значения следующих выражений на основе побитового оператора Or: 2 Or 3; 4 Or 5; 6 Or 7.

2 Or 3 = 2

4 Or 5 = 4

6 Or 7 = 6

3. С помощью средств окна Immediate вычислите остаток от деления пар чисел, приведенных в предыдущем упражнении.

2 Mod 3 = 0 4 Mod 5 = 0 6 Mod 7 = 0

5-й час. Программирование управляющих структур

Тесты

1. Как определить цикл для обработки элементов массива из 10 целочисленных значений?

Dim I As Integer For I=1 To 10

тело цикла Next I

2. Если требуется создать такой цикл, код которого должен выполняться по меньшей мере один раз, то какую конструкцию вы выберете?

Следует применить одну из конструкций - . . . Loop While либо Do ... Loop Until - поместив условное выражение в предложение, содержащее Loop.

3. Как убедиться, что код выражения I f работает верно?

Необходимо подобрать соответствующие значения данных и выполнить код в режиме отладки.

4. Для каких целей предназначена инструкция Exit For?

Она используется для принудительного прерывания цикла вида For . . . Next.

5. Что представляют собой средства прерывания циклов? При каких обстоятельствах их следует использовать?

Средства прерывания циклов - это предопределенные инструкции, позволяющие покинуть цикл до его естественного завершения. Они используются в таких случаях, когда, например, по условию задачи невозможно построить тестовое выражение, позволяющее корректно завершить выполнение цикла, либо в процессе вычислений возникают особые обстоятельства, диктующие необходимость выполнения подобных действий.

Упражнения

1. Применив средства оперативной справки Microsoft Visual Basic, от1щите информацию о функции Switch. Напишите код на основе Switch, позволяющий найти имя человека по заданной фамилии среди нескольких пар строк вида имя-фамилия.

Switch { [FirstName] = Paul , Kimmel , [FirstName] = Robert , Dearman , [FirstName] = Robert , Golieb , [FirstName] = Greg , Smith )

2. Обратившись к системе оперативной справки, найдите сведения о функции lff.

Приведите конкретный пример ее использования.

Iff(Income > 50000, Высокий доход , Низкий доход )

3. Объявите объект коллекции и примените конструкцию For Each для отображения

содержимого каждого элемента коллекции с помощью процедуры MsgBox.

Sub For Each Demo() Dim С Is New Collection Call C.Add ( Январь ) Call C.Add ( Февраль ) Dim Elem As Variant

For Each Elem In С

MsgBox Elem

Next Elem

6-й час ление базами данных

Тесты

1. Какие объекты данн1х, помимо таблиц, могут адресоваться средствами RecordSet? Запросы и курсоры.

2. Как в среде Access создать новый программный модуль?

Откройте окно базы данных. В списке Объекты (Objects) выберите элемент Модули (Modules). Щелкните на кнопке Создать (New) панели инструментов.

3. Каким образом можно протестировать код модуля?

В окне редактора Microsoft Visual Basic переместите текстовый курсор к нужной

строке процедуры или функции, а затем используйте клавишу <F8> для прохождения по строкам кода в режиме отладки.

4. Для каких целей применяется объект класса Catalog?

Объект класса Catalog применяется для ссылки на таблицы, курсоры, учетные записи пользователей и групп пользователей.

5. Каким образом установить указатель записей объекта класса Recordset на первую.

запись?

Если создан объект ordSet класса Recordset, следует использовать вызов MyRecordSet.MoveFirst.

6. Какую разновидность циклов предпочтительно использовать для обработки заранее

известного количества объектов данных?

Если известны нижняя и верхняя границы изменения переменной цикла, наиболее удобно использовать циклическую конструкцию вида For Next.

Упражнения

1. Исправьте код процедуры CreateTable, приведенной в листинге 6.2, таким образом, чтобы добавить в определение таблица: CONTACTS столбцы для хранения адреса (ADDRESS), названия города (CITY), области (REGION) и почтового индекса (ZIP). Необходимо добавить в текст листинга 6.2 после строки 19 следующие строки:

Table.Colmnn.Append ADDRESS , adVarWChar, 30 Table.Column.Append CITY , adVarWChar, 2 0 Table. Colimin. Append REGION , adVarWChar, 20 Table. Column. Append ZIP , adVarWChar, 5

2. Определите SQL-запрос, отображающий данные из всех столбцов таблицы CONTACTS, упорядоченные по возрастанию почтового индекса (ZIP).

SELECT * FROM CONTACTS ORDER BY ZIP;

3. Применив в качестве примера код листинга 6.5 и воспользовавшись выражением SQL, построенным при выполнении предьщущего упражнения, напишите процедуру поиска записи по заданному почтовому индексу (ZIP).

В строку 12 листинга 6.5 вставьте выражение

Const SQL = SELECT * FROM CONTACTS ORDER BY ZIP В строке 13 замените литерал CONTACTS идентификатором константы SQL: RecordSet.Open SQL, Catalog.ActiveConnection, adOpenDynamic, adLockOptimistic Измените содержимое строк 21-35 следующим образом:

Temp = InputBox( Введите почтовый индекс (0=Выход): ,

Поиск по почтовому индексу ) Do While (RecordSet. EOF = Ealse And Temp <> Q ) If (Temp = RecordSet( ZIP ).Value) Then

MsgBox Найдена: & RecordSet( ZIP ).Value & в &RecordSet ( ID ).Value Exit Do End If

RecordSet.MoveNext

Loop

7-й час. Расширенные типы данных Тесты

1. На какое количество записей способен одновременно сс1латься объект типа RecordSet?

Только на одну.

2. Какому классу принадлежит коллекция Tables - Catalog или Connection? Catalog.