Управляющие структуры в Visual Basic

- сколько угодно.

Оператор If ... End If

Синтаксис:

If Логическое_выражение Then Оператор
или
If Логическое_выражение Then
     Группа_операторов
End If

... End If

Пример:

If (a = b) And (c <> d) Then
    b = d
    a = 20
End If

одно из условий не выполнено

Оператор If...Else...ElseIf...End If

Синтаксис:

If Логическое_выражение1 Then
Группа_операторов
ElseIf Логическое_выражение2 Then
     Группа_операторов
...
Else
Группа_операторов
End If

Then
    a = 20
Else
a=b
End If

Оператор If...Else...ElseIf...End If

значений в строка Case

Оператор Select Case

Синтаксис:

Select Case Анализируемое_выражение
Case Значение_1
Группа_операторов
Case Значение_2
     Группа_операторов
...
Case Значение_N
Группа_операторов
Case Else
Группа_операторов
End Select

1"
Case 2, 3, 4
    strResult = "iTest = 2, 3 или 4"
Case 5 To 9
    strResult = "iTest в диапазоне от 5 до 9"
Case iTest < 0
    strResult = "iTest меньше 0"
Case Is > 9
    strResult = "iTest больше 9"
Case Else
    strResult = "iTest равно 0"
End Select

типа.
По умолчанию значение шага равно 1.
После слова Next счётчик можно опустить.

Оператор For ... Next

Синтаксис:

For Счётчик_цикла = Старт To Стоп Step Шаг
     Группа_операторов
Next [Счётчик_цикла]

c = 0 To 10
    iArray(c) = 5
Next c

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

Оператор For Each ... Next

Синтаксис:

For Each Имя_Объекта In Имя_Коллекции
     Операции над объектами
Next Имя_Объекта

изменить свойство
‘ BackColor у всех этикеток, лежащих на форме.
Dim x As Object
For Each x In Me.Controls
    If TypeName(x) = "Label" Then
        x.BackColor = 0
    End If
Next x

случае перед очередным проходом, а во втором - после выхода.

Операторы
Do While ... Loop Do ... Loop While

Синтаксис:

Do While Условие_выхода
     Группа_операторов
Loop

Do
    Группа_операторов
Loop While Условие_выхода

>= 0
    n = n-1
    Debug.Print  n 
Loop

лишь разницей, что проходы цикла выполняются до тех пор, пока условие выхода не выполняется.

Операторы
Do Until ... Loop Do ... Loop Until

Синтаксис:

Do Until Условие_выхода
     Группа_операторов
Loop

Do
    Группа_операторов
Loop Until Условие_выхода

As Integer
n=100
Do
n = n-1
Debug.Print  n 
Loop Until n < 11

n = n-1
Debug.Print  n
If n=5 Then Exit Do 
Loop While n > 1

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

ошибок.

Синтаксис:

On Error GoTo Метка

Если в процессе выполнения программы произошла ошибка, то оператор On Error GoTo передаст управление на определенную метку.
При этом стандартный метод обработки ошибок выполнения блокируется.
Подпрограмма обработки ошибок должна завершаться оператором Resume.

ErrHandler
PRINT "Вывод проведенных вычислений"
PRINT 1000/0 'строка-провокатор
GoTo Met 'здесь основная программа кончается
'начало собственной программы обработки ошибок
ErrHandler:
PRINT "Найдена ошибка"
RESUME
Met: End

При обнаружении ошибки выполнение основной программы не прекращается и программа продолжает выполняться, в отличие от стандартного метода обработки ошибок.

информация об ошибке хранится в следующих переменных:

ERDEV

Последний код ошибки устройства

ERDEV$

Соответствующее имя устройства

ERR

Код ошибки выполнения

Значение этих переменных можно анализировать в собственной программе обработки ошибок

ошибочного фрагмента

Resume Метка

передает управление на метку

Resume Next

продолжает программу со строки, следующей за предложением, в котором обнаружена ошибка

процедур и функций.

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

В Visual Basic нельзя ввести код между процедурами.

Код всегда должен находиться внутри процедуры.

её вызове.

Каждая процедура начинается зарезервированным словом Sub и заканчивается словом End.

Синтаксис:

[Private | Public | Friend] [Static] Sub name [(arglist)]
     [здесь некий код]
[Exit Sub]
     [здесь тоже может быть код]
End Sub

окружаемые параметр обязательны, если перед именем процедуры стоит оператор Call.

Если Call отсутствует, то скобки ставить не нужно.

Если количество параметров, передаваемых при вызове процедуры, не совпадёт с количеством параметров в объявлении процедуры –
Visual Basic сгенерирует ошибку.

этим функции отличаются от процедур.

Синтаксис:

[Private | Public | Friend] [Static] _
Function name [(arglist)] [As type]
     [здесь некий код]
[имяфункции = выражение]
[Exit Function]
     [здесь тоже может быть код]
[имяфункции = выражение]
End Function

Function

вывода сообщения на экран:

ShowMessage Square (5)

А можно и так:

Square 5

В последнем случае возвращённое функций значение уходит в никуда, но сама функция благополучно выполнится.

_
varname[( )] [As type] _
[= defaultvalue]

является необязательным.
После необязательного аргумента могут следовать только необязательные же аргументы.
Нельзя использовать необязательные аргументы совместно с массивом аргументов (ParamArray).

быть выражением.
ByRef
Аргумент будет передаваться
по ссылке
Соответствующий аргумент может быть только переменной.
Этот режим передачи аргументов принят по умолчанию

в списке,
при этом он будет представлять собой переменную типа Variant,
содержащую в себе массив.
Этим способом можно передавать в процедуру или функцию значительные объемы данных.
При использовании массива аргументов нельзя применять свойства
Optional, ByVal и ByRef.

в последних двух случаях тип принимает значения Control и Form.
В случае массива после имени массива ставится пара скобок (), внутри которых не указываются границы значений индексов,
что позволяет использовать одну процедуру (функцию) для разного числа элементов массива в каждом конкретном случае.