Содержание
Слайд 2Процедуры
Sub - процедура общего вида
Квадратные скобки [] определяют необязательный элемент.
Синтаксис:
[Список атрибутов]
Процедуры
Sub - процедура общего вида
Квадратные скобки [] определяют необязательный элемент.
Синтаксис:
[Список атрибутов]
![Процедуры Sub - процедура общего вида Квадратные скобки [] определяют необязательный элемент.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/420580/slide-1.jpg)
[Тип доступа] [Модификаторы процедуры][Совместное использование][Тени]*
Sub имя процедуры[(список параметров)]
[ statements ]
[ Exit Sub ]
[ statements ]
End Sub
Список параметров:
Optional [ByVal | ByRef] [ParamArray]имя параметра As тип данных
Вызов процедуры:
[Call] имя процедуры[(список параметров)]
* - не рассматривается
Sub имя процедуры[(список параметров)]
[ statements ]
[ Exit Sub ]
[ statements ]
End Sub
Список параметров:
Optional [ByVal | ByRef] [ParamArray]имя параметра As тип данных
Вызов процедуры:
[Call] имя процедуры[(список параметров)]
* - не рассматривается
Слайд 3Пример процедуры
Объявление процедуры
Sub tellOperator(ByVal task As String)
Dim время As Date stamp
Пример процедуры
Объявление процедуры
Sub tellOperator(ByVal task As String)
Dim время As Date stamp

= TimeOfDay()
MsgBox(“Стартовало " & task & " at " & CStr(время))
End Sub
Вызов процедуры tellOperator.
Call tellOperator(«обновление файл")
В результате выполнения программы будет выдано сообщение:
“Стартовало обновление файла в 12:54:35”
MsgBox(“Стартовало " & task & " at " & CStr(время))
End Sub
Вызов процедуры tellOperator.
Call tellOperator(«обновление файл")
В результате выполнения программы будет выдано сообщение:
“Стартовало обновление файла в 12:54:35”