Передача аргументов

End Sub

Dim Y As Double

Y= CubeRoot(100)

Print Y

10 Запустите приложение и нажмите кнопку. Примерный вид приложения будет иметь вид (рис. 3) В данном случае результат печатается на форме. Обычно результат должен отображаться на одном из элементов приложения. (текстовом окне, метке ит.п.)

11 Остановите программу, нажав кнопку «х» в правом верхнем углу формы и вы вновь окажетесь в окне конструктора.

12 Дважды щелкните в окне проекта по форме Form1.

13 Создайте на форме метку со свойством Name равным lblRoot и свойством Caption = Результат.

14 Удалите из процедуры click кнопки cmdRoot последнюю строку (Print Y)и замените ее следующей

LblRoot.Caption =y

Результат работы приложения в этом будет выглеть примерно как на рис. 4. Записав последнюю строку в виде

LblRoot.Caption = CubeRoot(100)

В этом случае возвращаемое значение присваивается элементу без использования промежуточных значений

Чтобы процедура работала с различными исходными данными, ей можно передавать различные значения параметров (аргументов). Передача параметров функции имеет очевидный смысл: вы хотите, чтобы функция выполняла одни и те же с различными данными. Visual Basic использует два способа передачи параметра:

· по ссылке;

· по значению.

Передача параметров по ссылке предоставляет вызванной процедуре доступ к передаваемой переменной. Вызывающая процедура передает адрес переменной в памяти, так что вызываемая процедура получает доступ к ее значению.

Упражнение 4

1 Откройте проект Функции и процедуры.

2 В окне проекта щелкните два раза на файле Mylibrary, чтобы открыть программное окно модуля (General)(Declarations).

3 В окне программы напишите фрагмент программного кода:

Function Add(Num1 as integer, Num2 as integer) as integer и

Function Add1(ByVal Num1 as integer, ByVal Num2 as integer) as integer

4 VB автоматически создаст шаблоны следующего вида:

Function Add( Num1 as integer, Num2 as integer) as integer

Дата добавления: 2015-05-10