2. Процедура с нулевым списком параметров должна очистить форму и установить размер выводимых на форму символов в 30 пунктов и тип символов курсив.

Процедура	Обращение к процедуре	Обращение к процедуре
Sub A1() Cls Font.size=30 Fontitalic=true End sub	Private Sub Form_Load() A1 Print “Пример процедуры” End sub	Private Sub Form_click() A1 Print “Привет” End sub

Функции

В VB имеется большое количество системных и встроенных функций.

Функция пользователя – это именованный программный блок, который включает группу операторов, обеспечивающих вычисление одного значения. Функции Function можно использовать в правой части операторов или различных выражений также как ис­пользуются переменные соответствующего типа. В общем виде блок типа Function имеет следующий вид:

Function <Имя_функции> ([параметры]) as [Тип ]

[программный код функции]

Имя_функции = <Выражение>

End Function

В разделе “параметры” через запятую перечисляются формальные параметры функции (если есть) желательно с указанием типа (если этого не делать, то в этом случае они рассматриваются как переменные типа Variant). В программном коде функции обяза­тельно должна быть строка, (обычно последняя), в которой оператором присваивания за­дается конкретное выражение для вычисления значения переменной, совпадающей с име­нем функции.

Возвращаемое процедурой значение присваивается имени процедуры и может быть использовано в выражениях программного кода аналогично стандартным функциям Visual Basic.

При вызове функции ее параметры, указанные в скобках, называются фактиче­скими и передаются в процедуру для получения вычисляемого значения, возвращаемого в основную программу. В качестве фактических параметров могут использоваться массивы, арифметические выражения, переменные и константы. Между фактическими и формаль­ными параметрами, объявленными в заголовке функции, должно быть соответствие по их количеству, типу данных и последовательности расположения.

Вызов процедуры Function аналогичен вызову встроенных функций Visual Basic. На­пример, функцию

Function tangens(x) as Double

tangens=sin(x)/cos(x)

end Function

можно вызвать следующим образом:

s=tangens(1) или Print tangens(5*x)

Пример.

Вычислить выражение c=m!n!/(m+n)!

Процедура-функция для вычисления факториала	Использование функции
Function f(k as integer) as long Dim I as integer F=1 for I=1 to k F=f*I Next I End function	Dim c as single Dim n as integer Dim m as integer M=val(inputbox(“Введите M”)) N=val(inputbox(“Введите N”)) C=f(m)*f(n)/f(m+n) Print “c=”;c

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

17