Procedura: creare una routine che restituisce un valore

Aggiornamento: novembre 2007

Per restituire un valore al codice chiamante, utilizzare una routine Function.

Al di fuori di qualsiasi altra routine, utilizzare un'istruzione Function seguita da un'istruzione End Function.
Nell'istruzione Function aggiungere il nome della routine dopo la parola chiave Function, quindi l'elenco di parametri tra parentesi.
Aggiungere una clausola As dopo le parentesi per specificare il tipo di dati del valore restituito.
Inserire le istruzioni del codice della routine tra le istruzioni Function e End Function.
Utilizzare un'istruzione Return per restituire il valore al codice chiamante.

La routine Function che segue consente di calcolare il lato più lungo, o ipotenusa, di un triangolo retto, dati i valori degli altri due lati.
```
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
```
Nell'esempio che segue è illustrata una tipica chiamata a hypotenuse.
```
Dim testLength, testHypotenuse As Single
testHypotenuse = hypotenuse(testLength, 10.7)
```

Vedere anche