3.2. Выполнение задания 2

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

4. Отчет по работе

Распечатки процедур и таблиц.

Лабораторная работа 6 Организация взаимодействия процедур

1. Цель работы

Освоить способы обращения и передачи параметров из одной процедуры в другую.

2. Основные теоретические положения

Как и все алгоритмические языки высокого уровня, Visual Basic позволяет осуществлять обращение из одной процедуры в другую, а также передавать параметры (аргументы) из одной процедуры в другую.

Обращение из одной процедуры в другую осуществляется посредством указания имени процедуры, к которой происходит обращение.

Пример 1

Создать процедуру Основная, из которой осуществляется обращение к трем вспомогательным процедурам с именем Первая, Вторая и Третья. Каждая из вспомогательных процедур должна выполнять только одну операцию – выдать сообщение о том, какая процедура в данный момент работает.

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

Текст программы имеет вид:

Sub Основная( )

‘Обращение к процедуре Первая

Первая()

‘Обращение к процедуре Вторая

Вторая()

‘Обращение к процедуре Третья

Третья()

End Sub

‘ Текст процедуры Первая

Sub Первая( )

MsgBox “Работает процедура Первая”

End Sub

‘ Текст процедуры Вторая

Sub Вторая ( )

MsgBox “Работает процедура Вторая”

End Sub

‘ Текст процедуры Третья

Sub Третья ( )

MsgBox “Работает процедура Третья”

End Sub

Если возникает необходимость передачи параметров из одной процедуры в другую, используют описание этих параметров в скобках после имени процедуры:

Имя процедуры(Формальные параметры). такие параметры называются формальными. Чтобы задать значение этих параметров при очередном обращении к процедуре, используется оператор Call. Структура этого оператора:

Call Имя процедуры (фактические параметры).

Пример 2

Создать процедуру, вычисляющую площадь круга по значению радиуса R. Осуществить несколько обращений к этой процедуре, различными способами задавая фактические параметры.

Сначала создадим процедуру, вычисляющую площадь круга и записывающую результат в ячейку А1 ЭТ.

Sub ПлощадьКруга(R)

Dim S, R As Variant

S = 3.14 * R ^ 2

Range(“A1”).Value = S

End Sub

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

Sub Обращение( )

Dim Радиус As Variant

‘Задание радиуса

Радиус = 5

‘Обращение к процедуре вычисления площади круга

Call ПлощадьКруга(Радиус)

End Sub

Можно в качестве фактического аргумента сразу указать число, например,

Sub Обращение( )

Call ПлощадьКруга(5)

End Sub

При составлении общей программы текст программы, откуда происходит обращение, всегда располагается первым, текст вспомогательной программы – под ним. Наша программа в целом имеет вид:

Sub Обращение( )

Dim Радиус As Variant

Радиус = 25

‘Вычисление площади для радиуса =25

Call ПлощадьКруга(Радиус)

‘Вычисление площади для радиуса =18

Call ПлощадьКруга(18)

End Sub

Sub ПлощадьКруга(R)

Dim S, R As Variant

S = 3.14 * R ^ 2

Range(“A1”).Value = S

End Sub