Оператор цикла с параметром: For - Next

Оператор цикла For - Next повторяет выполнение инструкций при изменении параметра цикла от значения параметр1 до значения параметр2 с заданным шагом параметра. По умолчанию шаг параметра равен 1. Синтаксис:

For параметр = параметр1 То параметр2 [ШагПараметра]

Инструкции

Next [параметр]

Прервать цикл можно оператором Exit For. Допустимы вложенные циклы.

Пример:

S=0

For i = 0 To 10

S=S+10

Next

Оператор цикла для элементов группы: For Each - Next

Оператор цикла For Each - Next повторяет выполнение инструкций для каждого элемента массива или семейства. Синтаксис:

For Each Элемент In Группа

Инструкции

Next [Элемент]

Прервать цикл можно оператором Exit For.

Перед выполнением оператора нужно объявить тип элемента управления. Пример.

Dim Command As Object For Each Command In Command1 Command.Enabled = False Next Command

Dim Cntrl as Control for Each Cntrl in Controls Cntrl.Enabled=False Next

Здесь Command1 - массив элементов CommandButton, Controls – семейство элементов управления.

Оператор цикла с предусловием: While - Wend

Оператор цикла while - wend повторяет выполнение инструкций, пока заданное условие имеет значение True. Синтаксис:

While Условие

Инструкции

Wend

Оператор цикла с комбинацией условий Dо - Loop

Оператор DO - Loop повторяет выполнение инструкций, при while условии равном True или Until условии равном False. Синтаксис:

Do [While | Until Условие] Инструкции Loop

Do Инструкции Loop [While | Until Условие]

Прервать цикл можно оператором Exit Dо.

Пример:

Dim InPass, MyPass, n

MyPass = "y"

n = 1

Do

InPass = InputBox("Введите пароль")

n = n + 1

If n > 3 Then Exit Do

Loop Until InPass = MyPass

If n > 3 Then End

Оператор безусловного перехода GoTo

Оператор безусловного перехода задает переход на указанную Метку внутри процедуры. Имя Метки должно начинаться с буквы. Синтаксис:

GoTo Метка

Метка с двоеточием пишется перед началом инструкции на которую будет передано управление оператором GoTo. Синтаксис:

Метка: Инструкция

Синтаксические правила для инструкций

Комментарии

Комментарии т. е. пояснения к фрагменту текста программы, не являются программным кодом и игнорируются компилятором. Комментарий начинается с апострофа ', либо словом Rem, при этом все символы до конца строки, будут восприниматься компилятором как комментарий.

Перенос строки инструкции

Для продолжения инструкции Visual Basic в конце строки ставится пробел и знак подчеркивания "_". Исключения:

• нельзя переносить строковые константы;

• допустимо не более семи продолжений одной и той же строки;

• инструкция не может состоять более чем из 1024 символов.

Расположение нескольких инструкций в одной строке

Знак двоеточие ":" позволяет разместить несколько инструкций в одной строке.

Оператор With

Оператор with позволяет не указывать имени объекта в области оператора при работе с его свойствами и методами при этом точка перед свойством или методом остается. Синтаксис:

With ИмяОбъекта

инструкции (используют .СвойствоОбъекта, .МетодОбъекта)

End With

Пример:

With MyObject

.Height = 100 'тоже что и MyObject.Height = 100

.width=777

With .Font

.Color = Red 'тоже что и MyObject.Font.Color = Red

.Bold = True 'тоже что и MyObject.Font.Bold = True

End With

End With