Передача аргументов в подпрограммах и функциях

Возможности подпрограмм и функций можно расширить с помощью аргументов. Аргументы (передаваемые значения), которые также называют параметрами, — это переменные, используемые для хранения значений, которые будут переданы в подпрограмму или функцию. Вы создаете аргументы, заключая их в круглые скобки в операторе объявления подпро­граммы или функции. Ниже приведено объявление функции EndDay (). Эта функция имеет два аргумента, один — типа Integer, второй — типа String:

Public Function EndDay(NumOne As Integer, strName As String) As Integer

Благодаря аргументам код становится более универсальным. Пусть, например, во многих частях программы требуется вычислять большее из двух чисел. Конечно, для этого можно каждый раз вводить один и тот же фрагмент кода строка за строкой. Но можно создать функцию, выполняющую соответствующие вычисления, и просто вы­зывать ее каждый раз, когда требуется вычислить большее из двух чисел.

Пример функции Greater(), которая воз­вращает большее из двух чисел, которые передаются ей в качестве аргументов.

Public Function Greater(NumOne As Integer, NumTwo As Integer) As Integer

' Если первое число больше второго,

If NumOne > NumTwo Then

' то возвращаем первое число

Greater = NumOne

Else

‘ в противном случае возвращаем второе

Greater = NumTwo

End If

End Function

Создайте приложение, которое возвращает большее из 5 введенных чисел.

Форма:

Код (сначала напишите его самостоятельно)

Private Sub Command1_Click()

Dim a, b, c, d, e As Integer

a = CInt(Text1.Text)

b = CInt(Text2.Text)

c = CInt(Text3.Text)

d = CInt(Text4.Text)

e = CInt(Text5.Text)

Text6.Text = Greater(a, b, c, d, e)

End Sub

Public Static Function Greater(a, b, c, d, e)

Dim Max As Integer

Max = a

If Max < b Then Max = b

If Max < c Then Max = c

If Max < d Then Max = d

If Max < e Then Max = e

Greater = Max

End Function

Примечание: если необходимо выйти из функции дострочно – в нужном месте функции ставится оператор Exit Function.