Jak: vytvořit proceduru, která vrací hodnotu (Visual Basic)

Slouží Function postupu vraťte hodnotu volající kód.

Mimo jiné postup použít Function příkazu, následovaný End Function prohlášení.
V Function prohlášení, postupujte Function klíčové slovo s názvem postup a seznam parametrů v závorkách.
Postupujte podle závorek se As klauzuli určete datový typ vrácené hodnoty.
Příkazy kódu v postupu mezi umístit Function a End Function příkazy.
Použití Return příkaz vrátí hodnotu kódu volajícího.

Následující Function postup vypočítá nejdelší strana nebo přepony pravoúhlého trojúhelníku, hodnoty dané pro dvě strany.
```
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
```
Následující příklad ukazuje typické volání hypotenuse.
```
Dim testLength, testHypotenuse As Single
testHypotenuse = hypotenuse(testLength, 10.7)
```

Viz také