Позволяет определить несколько условий и несколько блоков операторов.
Function Bonus(jobClass, salary, rating)
If jobClass = 1 Then
Bonus = salary * 0.1 * rating / 10
ElseIf jobClass = 2 Then
Bonus = salary * 0.09 * rating / 10
ElseIf jobClass = 3 Then
Bonus = salary * 0.07 * rating / 10
Else
Bonus = 0
End If
End Function
Select Case
Оператор Select Case заменяет серию операторов ElseIf в том случае, когда одно выражение сравнивается с несколькими значениями
Function Bonus(jobClass, salary, rating)
Select Case jobClass
Case 1
Bonus = salary * 0.1 * rating / 10
Case 2
Bonus = salary * 0.09 * rating / 10
Case 3
Bonus= salary * 0.07 * rating / 10
Case 4, 5 ' можно включать несколько значений...
Bonus = salary * 0.05 * rating / 5
Case 6 To 8 ' ...или задавать диапазон
Bonus = 150
Case Else
Bonus = 0
End Select
End Function
Операторы циклов
Используются для организации повторного выполнения блоков кода
| Чтобы | Использовать |
| Проверить условие в начале цикла, если оноTrue, перейти к выполнению цикла и продолжать, пока условие не станетFalse | Do While...Loop |
| Проверить условие в начале цикла, если оно False, перейти к выполнению цикла и продолжать, пока условие не станет True | Do Until..Loop |
| Выполнить цикл один раз, проверить условие в конце цикла и, если оно True, продолжать, пока условие не станет False | Do...Loop While |
| Выполнить цикл один раз, проверить условие в конце цикла и, если оно False, продолжать, пока условие не станетTrue | Do...Loop Until |
| Выполнить цикл заданное число раз, используя счетчик цикла с определенными начальным и конечным значениями, а также шагом приращения | For...Next |
| Выполнить цикл по разу для каждого объекта из набора(collection) | For Each...Next |
Выход из циклов
|
|
|
операторExit
Досрочный выход из процедуры или цикла ускоряет работу за счет отказа от ненужных повторений.
Для досрочного выхода из оператора Do...Loop используется оператор Exit Do.
Для досрочного выхода из цикла For - оператор Exit For
For Each с In rangeToSearch
If c.Value = searchValue Then
found = True
Exit For
End If
Next с
Процедуры типа Sub и Function
В Visual Basic можно создавать процедуры двух типов: Sub и Function.
• Процедура типа Sub - блок кода, заключенный между операторами Sub и End Sub; он выполняет некоторую операцию, но значения не возвращает.
Sub DisplayWelcome()
MsgBox "Welcome“
End Sub
Процедура типа Function - блок кода, заключенный между операторами Function и End Function; он выполняет определенную операцию, но при этом обязательно возвращает какое-нибудь значение
Function AddThree(OriginalValue As Long)
AddThree = OriginalValue + 3
End Function
Закрытые и открытые процедуры
• Открытую процедуру, объявленную с применением ключевого словаPublic,разрешается вызывать из любой процедуры любого модуля приложения.
• Закрытую процедуру, объявленную с помощью ключевого словаPrivate, можно вызывать только из процедур, содержащихся в том же (что и закрытая процедура) модуле.
|
|
|
Закрытые процедуры
• Private Sub Test1()
MsgBox "This is the Test1 procedure running"
End Sub
• Private Function AddThree(OriginalValue As Long)
AddThree = OriginalValue + 3
End Function
Открытые процедуры
• Public Sub Test1()
MsgBox "This is the Test1 procedure running"
End Sub
• Public Function AddThree(OriginalValue As Long)
AddThree = OriginalValue + 3
End Function
Если в объявлении процедуры не указано ниPrivate,ниPublic, то по умолчанию она считается открытой
Чтобы функция возвращала значение, в ней должен быть оператор, который присваивает это значение имени функции
Function ConeSurface(radius, height)
Const Pi = 3.14159
coneBase = Pi * radius ^ 2
coneCirc = 2* Pi* radius
coneSide = Sqr(radius ^ 2 + height ^ 2) * coneCirc / 2
ConeSurface = coneBase + codeSide
End Function
Передача аргументов в процедуру
Если процедуре необходимы дополнительные данные и их нельзя получить из контекста, в котором она выполняется, то эти данные следует передать ей как аргументы. Чтобы указать, что процедура принимает аргументы, необходимо перечислить их между скобками за именем процедуры в ее объявлении. Аргументы отделяются запятыми
Объявляя аргумент, можно задать его тип данных с помощью ключевого слова As (изменяет ли процедура значение аргумента, определяется ключевыми словамиByVal и ByRef), а также определить, обязателен ли аргумент, для чего предназначено ключевое словоOptional
|
|
|
Имя переменной, передаваемой в процедуру, необязательно должно совпадать с именем аргумента в объявлении этой процедуры.
Пример объявления процедуры
Sub UpdateRecord(ByVal custId As Long, ByRef custName As String, _ Optional custRepeat As Boolean)
Первый аргумент, custId, обязателен и передается по значению как типLong.Если аргумент передается в процедуру по значению, процедура получает лишь копию переменной, переданной вызывающей процедурой. Если вызываемая процедура модифицирует это значение, то изменится только копия, а не сама переменная в вызывающей процедуре
Второй аргумент, сustName, тоже обязателен, но передается по ссылке как тип String. В этом случае процедура имеет доступ к исходной переменной в памяти, и поэтому способна изменить ее значение
Третий аргумент, custRepeat, не обязателен и передается по ссылке как тип Boolean.(По умолчанию аргументы всегда передаются по ссылке.)
Дата добавления: 2018-05-13; просмотров: 290; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!