Файл: Макарова_Информатика_2000.doc

Оператор выборки Select Case. Данный оператор применяется в том случае, если во всех логических условиях участвует одна и та же величина (переменная):

Выражение для сравнения может быть записано в виде: Case 45 или Case 3, 4, 5, или Case 5 То 12.

Если ни одно из сравнений не является истинным, выполняется блок операторов Else, если блок Else отсутствует, управление передается оператору, следующему за End Case.

Пример 19.24. Организация последовательной проверки значения переменной

Текст программы	Комментарий
Select CDemse	Начало работы оператора Select, объявление имени переменной, для которой выполняются последующие проверки – Demse
CaseDemse21	Первое сравнение
Dem=21	Если первое сравнение истинно, выполняется оператор присваивания
Case Demse 22; 25; 28	Второе сравнение – указан список возможных значений
Dem=31	Если второе сравнение истинно, выполняется оператор присваивания
Case Demse 45 To 48	Третье сравнение, переменная Cdemse может принимать значения от 45 до 48
Dem=41	Если третье сравнение истинно, выполняется оператор присваивания
Case Else	Если не выполнилось ни одно из указанных сравнений
Dem=51	Выполняется присваивание
End Case	Конец оператора Select

Оператор цикла For-Next. Данный оператор относится к категории вычисляемых циклов, когда известно заранее число повторений цикла, заданы начальное, конечное значения и шаг (приращение) изменения начального значения, т.е.:

Для каждого значения переменной этого цикла выполняется блок операторов, расположенных до ключевого слова Next. Затем происходит изменение переменной цикла (увеличение значения на шаг), проверяется полученное значение (не более указанного конечного значения) и повторяется выполнение блока операторов.

Если переменная цикла превысила значение конец, управление передается оператору, следующему за фразой Next.

В теле цикла может присутствовать оператор Exit For. При выполнении этого оператора прекращается цикл и управление также передается оператору, следующему за фразой Next. Цикл For-Next может быть вложенным.

Пример 19.25. Организация циклов с использованием счетчика повторений

Текст программы

Комментарий

Sub stickRandom()

Dim numrows As Integer; numcols As Integer

Dim therow As Integer; thecol As Integer

numrows = Selection.Rows.Count

numcols = Selection.Columns.Count

Debug. Print numrows; numcols

Randomize

Debug.Print Rnd For therow = 1 To numrows

For thecol = 1 To numcols

Selection. Cells(therow; thecol).Value = Rnd

Next thecol

Next therow

End Sub

Объявление имени процедуры

Объявление переменных

Определение числа строк в выделенном блоке ячеек

Определение числа столбцов в выделенном блоке

ячеек

Печать числа строк и столбцов в выделенном блоке

ячеек

Генератор случайных чисел

Печать случайного числа

Внешний цикл по числу строк в блоке ячеек

Внутренний цикл по числу столбцов в блоке ячеек

Присваивание текущей ячейке случайного числа

Selection – выбор ячейки

Cells – метод доступа к ячейке с определенными

координатами

Value – свойство "значение"

Конец внутренного цикла

Конец внешнего цикла

Конец процедуры

Цикл Do-Loop. Логически управляемый цикл, оператор Do – начало, оператор Loop – конец цикла; имеет 4 модификации:

1) условие True в начале цикла

Do While <условие>

<блок операторов>

Exit Do

<блок операторов>

Loop

Цикл выполняется до тех пор, пока истинно <условие>. Минимальное число повторений тела цикла – 0. Оператор Exit Do предназначен для прекращения цикла и передачи управления оператору Loop – конец цикла.

2) условие True в конце цикла

<блок операторов>

Exit Do

<блок операторов>

Loop While <условие>

Цикл выполняется хотя бы один раз, в конце выполняется проверка <условия>.

3) условие False в начале цикла

Do Until <условие>

<блок операторов>

Exit Do

<блок операторов>

Loop

Until указывает, что цикл выполняется до тех пор, пока <условие> не станет истинным. Минимальное число повторений тела цикла – 0.

4) условие False в конце цикла

<блок операторов>

Exit Do

<блок операторов>

Loop Until <условие>

Условие проверяется в конце, цикл прекращается, когда условие станет истинным. Минимальное число повторений тела цикла – 1.

Пример 19.26. Выполнение логически прерываемых циклов

Текст программы

Комментарий

Option Explicit

Sub Do_Rnd()

Dim a As Single

Dim i As Integer,

Randomize

Do While True

a=Rnd

Обязательность объявления всех переменных перед их использованием

Объявление имени процедуры без параметров Объявление переменных

Вызов генератора случайных чисел

Начало цикла Do. Задание условия выполнения цикла – цикл бесконечный

Присвоение переменной случайного числа

Debug.Print a

If a > 0.99 Then Exit Do

Loop

End Sub

Печать случайного числа

Блок условия – при его выполнении выход из цикла Конец цикла

Конец процедуры

Цикл While-Wend. Данный оператор полностью соответствует структуре Do While-Loop. Отличительной особенностью оператора является невозможность прервать выполнение цикла из тела цикла (Exit Do отсутствует), проверка условия выполняется только в начале цикла.

While <условие>

<блок операторов>

Wend

Цикл For Each. Оператор относится к категории операторов объектного типа, т.е. применяется к массивам (элементам) и наборам объектов. Выполняется фиксированное число раз, число объектов в наборе определяется автоматически. Упорядочение элементов набора – произвольное.

For Each <элемент> In <набор>

<блок операторов>

Exit For

<блок операторов>

где <элемент> представляет собой переменную типа Variant, <набор> – определенный набор объектов. Для прерывания цикла используется оператор Exit For.

РАБОТА С ФАЙЛАМИ

Основные понятия

VBA работает с хранимыми на диске файлами двух типов: последовательного и произвольного доступа.

Последовательный файл – текстовый, который обрабатывается стандартными средствами текстовых редакторов, так как содержит строки символов в формате ANSI. Все операции с последовательными файлами реализуются от начала файла: при этом одновременно нельзя читать и писать в последовательный файл.

Файл произвольного доступа имеет записи фиксированной длины: можно одновременно выполнять чтение и запись в файл записей.

Открытие файла

Открывать можно как существующие на диске, так и новые файлы. Каждый файл идентифицируется в программе определенным номером, который присваивается ему в момент открытия. Свободный номер файла можно определить с помощью встроенной функции FileFree, которая возвращает очередной свободный номер для открытия файла (номер изменяется в диапазоне 1-511).

Файл открывают в определенном режиме работы:

Open <путь_имя_файла> [For <режимы>] [Access <направление_потока>]

[<блокировка>] As [#]номер [Lеn=<длина_записи>]

где <путь_имя_файла> - строка символов, задающая местоположение и имя дискового файла;

<режимы> - режимы работы с файлом:

Append добавление записей

Binary двоичный файл

Input файл для чтения

Output файл для записи

Random файл произвольного доступа;

<направление_потока> - задает тип потока данных по отношению к файлу:

Read только чтение

Write только запись

Read Write чтение и запись одновременно;

<блокировка> - определяет возможность работы с файлом других приложений:

Shared распределенный доступ

Lock Read блокировка файла для чтения

Lock Write блокировка файла для записи

Lock Read Write блокировка файла для чтения и записи;

номер - условный идентификатор файла;

<длина_записи> - указывается для записей фиксированной длины, максимум – 32767

байт. Оптимальная длина записи кратна размеру дискового сектора (512

байт).

Для файлов произвольного доступа объявляется структура записи с помощью оператора Туре; указываются типы и длина компонентов структуры. В режимах Binary, Input, Random под разными номерами можно открыть один и тот же файл, не закрывая ранее открытых; в режимах Append, Output требуется предварительно закрыть ранее открытые файлы.

Пример 19.27. Открытие файлов

Текст программы

Комментарий

Open "FILE" For Input As #1

Open "FILE" For Binary Access

Write As #1

Type Record Define userdefined type

ID As Integer

Name As String * 20

End Type

Dim MyRecord As Record

Open "FILE" For Random As #1

Len = Len(MyRecord)

Open "FILE" For Output Shared As #1

Open "FILE" For Binary Access

Read Lock Read As #1

Открытие последовательного файла для чтения

Открытие двоичного файла только для записи

Объявление пользовательского типа данных

Открытие файла произвольного доступа. Длина записи файла определяется встроенной функцией Len

Открытие последовательного файла с распределенным доступом (любые приложения могут читать и писать в файл)

Открытие двоичного файла для чтения, чтение файла другим приложениям запрещено

Смотрите также файлы

Лермонтов.doc

Лекция FrontPage.doc

Курсовая.docx

курсовая сцен.мастерство.doc

КУРСОВАЯ КАМНЕРЕЗЫ.doc

Файл: Макарова_Информатика_2000.doc

Смотрите также файлы

Информация

Списки файлов

Дополнительно