20.Підпрограми: завдання необов’язкових параметрів. Присвоєння функції значення що повертається. Достроковий вихід з процедур та функцій.

Для того, чтобы правильно использовать функции и обнаруживать операторы, которые передают функции неверные значения объявляется тип необязательного аргумента (иначе они имеют тип Variant). Тип необязательного аргумента объявляется тем же способом, что и тип обязательного аргумента - при помощи ключевого слова As:

Function NameFunct(tStr As String, Optional neobArgument As Integer) As String

Присвоение возвращаемого значения:

Function SummaVar(ParamArray varArg() As Variant) As Integer

Dim intSum As Integer, numb As Variant

For Each numb In varArg 'цикл по всем элементам массива

intSum=intSum + numb 'по умолчанию инициируется в 0

Next numb

SummaVar=intSum 'присвоение возвращаемого значения

End Function

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

ub = Ubound(dArray) fFound = False For i=LBound(dArray) To ub If dArray(i) = searchValue Then fFound = True Exit For End If Next

21.Об’явлення змінних та констант. Об’явлення декількох змінних через кому.

Переменные:

Sub VariantDemo ()

MyVar = "123"

MyVar = MyVar / 2

MyVar = "Ответ: " & MyVar

MsgBox MyVar

End Sub

Константы:

Const NumQuarters as Integer = 4

Const Rate = .0725, Period = 12

Const ModName as String = "Budget Macros"

Public Const AppName as String = "Budget Application"

22.Типи даних vba.

Byte 1байт от 0 до 255

Boolean 2байта False (Ложь) и True (Истина)

Integer 2байта от -32768 до 32767

Long 4байта от -2147483648 до 2147483647

Single 4байта от -3.402823 Е38 до -1.401298 Е-45

Double 8байт от -1,79769313486232Е308 до -4,94065645341247Е-324

Currency 8байт от -922337203685477,5808 до 922337203685477,5807

Decimal 14байт +/-79228162514264337593543950335 без десятичных знаков +/-7,9228162514264337593543950335 с 28-ью знаками после запятой

Date 8байт 1 января 100 года до 31 декабря 9999 года

Object 4байта Любая ссылка на объект

string (переменной длины) 10 байт + длина строки

string (фиксированной длины) 1байт от 1 до 65400

Variant (числа) 16байт Любое числовое значение в рамках диапазона типа данных Double

Variant (символы) 22 байта + длина строки

Пользовательский Зависит от типа.

23.Типи даних Currency, Variant, Object.

Тип данных Currency. Это число с фиксированной точкой, т.е., десятичная точка всегда находится в одном и том же месте - справа от точки всегда имеются четыре цифры. Этот тип данных используется при денежных вычислениях, когда требуется высокая точность.

Currency хранит числа в диапазоне от -922337203685477,5808 до 922337203685477,5807.

Тип данных Variant. Это особый тип данных, который может сохранять любые типы, за исключением типа Object. VBA использует этот тип данных для всех переменных, если только они не объявлены явно. Данные типа Variant принимают характеристики определенного типа, который они сохраняют в данный момент. Например, если данные типа Variant содержат строковые данные, Variant принимает характеристики типа String. VBA использует для данных типа Variant наиболее компактное представление, возможное для конкретных значений, находящихся в данных.

Тип данных Object. Переменные Object сохраняются как 32-разрядные (4-байтовые) адреса, которые обращаются к объектам в данном или каком-либо другом приложении. Переменная, объявленная как Object, впо-следствии может быть назначена (инструкцией Set) для обращения к любому фактическому объекту, признанному приложением.

Dim objDb As Object

Set objDb = OpenDatabase("c:\Vb5\Biblio.mdb")