Postupy: Vytvoření procedury, která vrací hodnotu (Visual Basic)

Pomocí Function postupu vrátíte hodnotu volajícímu kódu.

Vytvoření procedury, která vrací hodnotu

1. Mimo jakoukoli jinou proceduru Function použijte příkaz následovaný příkazem End Function .

2. V příkazu Function postupujte podle klíčového Function slova s názvem procedury a potom seznam parametrů v závorkách.

3. Postupujte podle závorek s As klauzulí a určete datový typ vrácené hodnoty.

4. Umístěte příkazy kódu procedury mezi Function příkazy a End Function příkazy.

5. Return Pomocí příkazu vrátíte hodnotu volajícímu kódu.

   Následující Function postup vypočítá nejdelší stranu nebo hypotenuse pravého trojúhelníku vzhledem k hodnotám pro ostatní dvě strany.

   Function Hypotenuse(side1 As Double, side2 As Double) As Double
       Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
   End Function
   

   Následující příklad ukazuje typické volání hypotenuse.

   Dim testLength, testHypotenuse As Double
   testHypotenuse = Hypotenuse(testLength, 10.7)
   

Viz také

• Procedury
• Dílčí postupy
• Procedury vlastností
• Procedury operátoru
• Parametry procedury a argumenty
• Příkaz funkce
• Postupy: Vrácení hodnoty z procedury
• Postupy: Volání procedury, která vrací hodnotu