1.4. Оператор Exit

В некоторых случаях необходимо прервать выполнение цикла до его завершения. Это можно сделать с помощью команды безусловного перехода Exit.

Команда Exit завершает выполнение цикла и передает управление следующей за циклом конструкции. Синтаксис этого оператора внутри цикла For выглядит так: Exit For. Внутри цикла Do синтаксис оператора Exit Do.

For счетчик = начЗначение То конЗначение [Step шаг]

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

[Exit For]

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

Next[счетчик[, счетчик] [,...]]

Do [{While ¦ Until} условие]

конструкции

[Exit Do]

конструкции

Loop

Например:

For nCounter=100 To 1 Step -10

nDecades(nCounter) = nCounter *2

If nDecades(nCounter) > 20 Then Exit For

Next

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

2. Пример программы

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

На форме должны быть элементы, которые отображены на рисунке 1. Ниже приведён текст кода.

рис.1.

Dim delimoe As Long ‘объявляем переменные

Dim delitel As Long ‘ long – если кто-то будет использовать большие числа.

Dim resultat As Double ‘Например, 1000000

________________________________

Private Sub Command1_Click()

Text2.Text = "" ‘очищаем поле TEXT

If Not IsNumeric(Text1.Text) Then ‘ если не число, то

MsgBox "Это разве число?", vbCritical ‘ сообщить об этом

Exit Sub ‘ выйти из кода кнопки посчитать

End If ‘закончить проверку свойства TEXT

delimoe = Text1.Text

Form1.Caption = "Считаю" ‘ изменяем заголовок программы. Это нужно для больших чи-

сел, пока компьютер считает

For delitel = 1 To delimoe ‘задаём цикл

resultat = delimoe / delitel

If resultat = Int(resultat) Then ‘программа проверяет: является ли переменная resultat

‘целым числом

Text2.Text = Text2 + Str(delimoe) + ":" + Str(delitel) + "=" + Str(resultat) + vbCrLf

‘ где vbCrLf переход на другую строку

End If ‘заканчиваем проверку целочисленности переменной resultat

Next ‘конец цикла

Form1.Caption = "Числа" ‘ возвращаем заголовок программы

End Sub

____________________________________

Private Sub Command2_Click()

End ‘заканчиваем работу программы

End Sub

Замечание.

По умолчанию предполагается, что текстовое поле служит для ввода одной строки текста. Свойства Multi-Line и ScrollBar элемента управления TextBox позволяют настроить объект таким образом, что он будет использоваться для ввода нескольких строк или даже большого блока текстовой информации (табл. 8.2).

Таблица 8.2. Предназначение свойств MultiLine и ScrollBar

Свойство	Назначение
MultiLine	Определяет способ отображения поля. При установленном значении True текст автоматически переносится по словам на несколько строк. При вводе информации в поле для перехода на новую строку необходимо использовать клавишу <Enter>
ScrollBar	Данное свойство используется, если свойство MultiLine имеет значение True и размер поля не позволяет отобразить заданный в свойстве Text текст. Свойство может принимать одно из следующих значений: 0-None — полоса прокрутки отсутствует 1-Horizontal — горизонтальная полоса прокрутки 2-Vertical — вертикальная полоса прокрутки 3-Both — горизонтальная и вертикальная полосы прокрутки

Объект TextBox, так же как и метка, отличается большим набором свойств.

Для задания стиля рамки текстового поля применяется свойство Borderstyle (Стиль рамки). Оно содержит два значения. По умолчанию используется значение Fixed Single, при котором поле выделено рамкой. При установке значения None рамка вокруг поля отсутствует. Свойство Appearance позволяет придать объемность текстовому полю, имеющему рамку.

Свойства Backcolor и ForeColor позволяют соответственно задать цвет фона и цвет текста, размещаемого в элементе управления TextBox.

С помощью свойства Alignment (Выравнивание) можно задать вариант выравнивания информации в поле: по центру, по левому или правому краю.

Для задания наименования, размера и начертания шрифта, отображаемого в текстовом поле, используется свойство Font (Шрифт).