Sub привет( )

Dim name As String

name = InputBox (" Как Вас зовут? ")

MsgBox " Привет, " & name & "!"

End Sub

Рисунок 1.7 – Образец работы программы "привет"

Процедуру можно вызвать из другой процедуры. При этом формальные параметры надо заменить фактическими. Формальные и фактические параметры должны быть согласованы, то есть:

ü количество формальных и фактических параметров должно быть одинаковым;

ü порядок формальных и фактических параметров должен быть одинаковым;

ü типы формальных и фактических параметров, стоящих на одинаковых местах, должны совпадать;

ü имена формальных и фактических параметров могут быть разными.

Чтобы выполнить процедуру, легче всего кликнуть мышкой в любом месте ее кода и нажать кнопку Run Sub/UserForm на панели инструментов (рис. 1.2). Для вызова процедуры из другой процедуры надо сначала записать ее имя, а после пробела ввести значения фактических параметров через запятую.

Пример 2. Запишем процедуру, которая вычисляет квадрат и куб числа. Вызовем ее из другой процедуры, которая вводит число и выводит результаты (см. рис. 1.7).

Sub степень (x As Single, x2 As Single, x3 As Single)

x2 = x * x

x3 = x2 * x