Практическое руководство. Создание процедуры, возвращающей значение (Visual Basic)

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

Вне любых других процедур используйте оператор Function, за которым следует оператор End Function.
В инструкции Function введите зарезервированное слово Function с именем процедуры и затем список параметров в круглых скобках.
Введите круглые скобки, используя предложение As для указания типа данных возвращаемого значения.
Поместите операторы кода процедуры между оператором Function и End Function.
Оператор Return используется для возврата значения в вызывающий код.

Приведенная ниже процедура Function вычисляет длину самой длинной стороны прямоугольного треугольника (гипотенузы) по значениям двух других сторон.
```
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
```
В следующем примере показан типичный вызов hypotenuse.
```
Dim testLength, testHypotenuse As Single
testHypotenuse = hypotenuse(testLength, 10.7)
```

См. также