Шаг 73 - Инструкция With

Next I

End Sub

Unload UserForm1

End Sub

Unload UserForm2

End Sub

Dim Counter

Wend

While условие

End Sub

Unload UserForm1

Шаг 71 - Инструкция While...Wend

Выполняет последовательность инструкций, пока заданное условие имеет значение True.

[инструкции]

Параметры
условие: Обязательный. Числовое выражение или строковое выражение, которое имеет значение True или False. Если условие имеет значение Null, условие рассматривается как имеющее значение False.
Инструкции: Необязательный. Одна или несколько инструкций, выполняемых, пока условие имеет значение True.

Замечания
Если условие имеет значение True, выполняются все инструкции до инструкции Wend. Затем управление возвращается инструкции While и вновь проверяется условие. Если условие по-прежнему имеет значение True, процесс повторяется. Если оно не имеет значение True, выполнение возобновляется с инструкции, следующей за инструкцией Wend.
Циклы While...Wend могут иметь любую глубину вложенности. Каждая инструкция Wend соответствует предшествующей инструкции While.
нструкция Do...Loop обеспечивает более структурированный и гибкий способ организации циклов.

Пример
В данном примере инструкция While...Wend используется для увеличения переменной-счетчика. Инструкции в цикле выполняются до тех пор, пока указанное условие не True.

Counter = 0 ' Инициализирует переменную.

While Counter < 20 ' Анализирует значение счетчика.

Counter = Counter + 1 ' Увеличивает счетчик.

Wend ' Завершает цикл While,

' если Counter > 19.

Debug.Print Counter ' Выводит 20 в окно отладки.

' Событие "Нажатие кнопки" (Click) для формы UserForm2

Private Sub UserForm_Click()

' Событие "Нажатие кнопки" (Click) для формы UserForm1

Private Sub UserForm_Click()

Шаг 72 - Инструкция Width #

Задает ширину строки для файла, открытого с помощью инструкции Open.

Width #номерФайла, ширина

Параметры
номерФайла: Обязательный. Любой допустимый номер файла.
Ширина: Обязательный. Числовое выражение в интервале от 0–255 включительно, которое указывает, сколько символов следует поместить на одной строке прежде, чем перейти к следующей строке. Если ширина равняется 0 (это значение используется по умолчанию), ширина строки не ограничивается. Аргумента ширина по умолчанию имеет значение 0.

Пример
Dim I

Open "TESTFILE" For Output As #1 ' Открывает файл для записи.

Width #1, 5 ' Устанавливает ширину равной 5.

For I = 0 To 9 ' Цикл выполняется 10 раз.

Print #1, Chr(48 + I); ' Печатает по 5 символов в строке.

Close #1 ' Закрывает файл.

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

Дата добавления: 2015-06-27