If … Then – проверка условий (Если …, то …, в противном случае … )
Синтаксис:
Вариант 1 |
Вариант 2 |
Вариант 3 |
If Условие Then Выполняемые строки при выполнении условия Else Выполняемые строки при невыполнении условия End If
|
If Условие Then Выполняемая строка при выполнении условия |
If Условие1 Then Выполняемые строки при выполнении условия1 ElseIf Условие2 Then Выполняемые строки при выполнении условия2 Else Выполняемые строки при невыполнении условий End If |
For … Next – цикл с заданным количеством повторений (Для … )
Синтаксис:
For Управляющая переменная = Начальное значение То Конечное значение Step Шаг Выполняемые строки Next Управляющая переменная |
Досрочный выход из цикла осуществляется с помощью оператора Exit For
Do While/Until … – цикл с условием (используется либо While – “до тех пор, пока”, либо Until – “пока не”)
Синтаксис:
Вариант 1 |
Вариант 2 |
Вариант 3 |
Do While/Until Условие Выполняемые строки Loop |
Do Выполняемые строки Loop While/Until Условие |
Do Выполняемые строки Loop |
Досрочный выход из цикла осуществляется с помощью оператора Exit For
Select Case – ветвление
Синтаксис:
Select Case Переменная Case Значение1 Выполняемые строки, если Переменная = Значение1 Case Значение2, Значение3 Выполняемые строки, если Переменная = Значение2 или Переменная = Значение3 Case Else Выполняемые строки, если Переменная не равна ни одному из значений End Select |
Функции и подпрограммы
Описание |
Пример |
Объявление функции [Public/Private] Function Имя функции(Параметр1 As Тип параметра, …) As Тип возвращаемого значения Тело функции End Function |
Function A(S As Long) As Long A = S + 1 End Function |
Вызов функции (пример) Переменная1 = Переменная2 + Имя функции(Входные переменные) * Переменная3 |
T = 10 T = A(T)*T |
Объявление подпрограммы (процедуры) [Public/Private] Sub Имя подпрограммы(Параметр1 As Тип параметра, …) Тело подпрограммы End Sub |
Sub Add(H As String) H = H & “ and other” End Sub |
Вызов подпрограммы (процедуры) Имя подпрограммы Аргумент1, Аргумент1, … |
S = “Friends ” Add S |
Слова Public/Private указывают на глобальность/локальность функции или подпрограммы. Если слово отсутствует функция или подпрограмма считается локальной.
Передача аргумента в подпрограмму осуществляется с его дальнейшим изменением.
Досрочный выход из функции осуществляется с помощью оператора в теле функции – Exit Function, из подпрограммы – Exit Sub.
Для более точного определения функции или подпрограммы при вызове функции или подпрограммы может использоваться их уточнённое имя – Имя модуля.Имя функции или подпрограммы.
Часто используемые функции и подпрограммы VB
MsgBox – вывод информационного окна
Синтаксис:
Вариант 1 |
MsgBox “Строка сообщения”, Константы кнопок и вида окна, “Заголовок окна” |
Пример: MsgBox "Ошибка!", vbAbortRetryIgnore + vbCritical |
Вариант 2 |
Переменная = MsgBox(“Строка сообщения”, Константы кнопок и вида окна, “Заголовок окна”) |
Пример: A = MsgBox("Ошибка!", vbAbortRetryIgnore + vbCritical) |
Во втором случае MsgBox выступает в виде функции; возвращаемое значение указывает на нажатую кнопку