Процедуры (подпрограммы) Процедура общего вида – представляет собой блок языка Visual Basic, который начинается с объявления процедуры Sub (Function) и заканчивается оператором End Sub (Function). Принцип работы с процедурами (функциями): 1.Объявление процедуры; 2.Вызов процедуры.
Процедуры Sub - процедура общего вида Синтаксис: [Тип доступа]… Sub имя процедуры[(список параметров)] [ statements ] [ Exit Sub ] [ statements ] End Sub Список параметров: Optional [ByVal | ByRef] [ParamArray]имя параметра As тип данных Вызов процедуры: [Call] имя процедуры[(список параметров)]
Пример процедуры Объявление процедуры Sub tellOperator(ByVal task As String) Dim время As Date stamp = TimeOfDay() MsgBox(Стартовало " & task & " at " & CStr(время)) End Sub Вызов процедуры tellOperator. Call tellOperator(«обновление файл") В результате выполнения программы будет выдано сообщение: Стартовало обновление файла в 12:54:35
Пример с параметром Optional Sub SchoolInfo(ByVal name As String, _ Optional ByVal age As Short = 0, _ Optional ByVal birth As Date = #1/1/2000#) Debug.WriteLine("Name = " & name & _ "; age = " & CStr(age) & _ "; birth date = " & CStr(birth)) End Sub Варианты вызова процедуры Call SchoolInfo ("Mary", 14, #9/21/1995#) Call SchoolInfo("Mary",, #9/21/1995#) Call SchoolInfo(age:=14, birth:=#9/21/1995#, name:="Mary")