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

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

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

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

См. также