Public Sub cmdAnswer _ Click()

Call Еrrоr

End Sub

Public Sub cmdAnswer_Click ()

Еrrоr

End Sub

Далее будет использоваться способ с ключевым словом Call. Способы равнозначны, можно выбрать любой из них. Для Visual Basic безразлично, какой из способов вы будете использовать. Проще набрать лишь название процедуры, но если вы используете ключевое слово Call, то впоследствии легче найти в программе те коды, которые вызывают процедуру. Выберите один способ и придерживайтесь его.

Использование параметров. Когда процедура вызывает общую процедуру, она ссылается на ее имя. Если вызов происходит только по имени, управление передается вызываемой процедуре без дополнительной информации. Но довольно часто вызываемой процедуре требуются дополнительные сведения, на основании которых она сможет выполнять действия или использовать их для расчетов. Любая процедура, которая вызывает общую процедуру, может предоставить все необходимые для ее работы данные. Эти данные называются параметрами.

Пример:

Public Sub Error(text1 As String, text2 As String)

MsgBox text1, vbOKOnly + vbCritical, text2

End Sub

Public Sub cmdAnswer_Click()

Dim t1 As String, t2 As String

t1= "Ответ неверный"

t2= "Ошибка при ответе на вопрос"

Call Error(t1, t2)

End Sub

Процедура Error позволяет вывести в окно текст сообщения и заголовок, которые определяются значениями строковых переменных Text1 и Text2 соответственно, т.е. процедура имеет два входных параметра (рис. 13.4). Для вызова процедуры и передачи ей данных их нужно указать в скобках в качестве параметров вызова. Это сделано с помощью строки