Porady: tworzenie procedury, która zwraca wartość (Visual Basic)

Za pomocą Function procedury w celu zwrócenia wartości do kodu wywołującego.

Poza inne procedury, użyj Function instrukcji, następuje End Function instrukcji.
W Function instrukcji, postępuj zgodnie z Function słów kluczowych z nazwy procedury oraz lista parametrów w nawiasach.
Postępuj zgodnie z nawiasów z As klauzuli, aby określić typ danych wartości zwracane.
Umieścić instrukcje kodu procedury między Function i End Function instrukcji.
Użyj Return instrukcji, aby zwrócić wartość kod wywołujący.

Następujące Function procedury oblicza najdłuższy bok lub przeciwprostokątnej trójkąta prostokątnego, biorąc pod uwagę wartości dla obu stron.
```
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single 
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
```
W poniższym przykładzie pokazano typowy wywołanie hypotenuse.
```
Dim testLength, testHypotenuse As Single
testHypotenuse = hypotenuse(testLength, 10.7)
```

Zobacz też