Zoeken…


Invoering

De functie is net als sub. Maar functie retourneert een waarde. Een functie kan enkele of meerdere parameters accepteren.

Een functie definiëren

Het is heel eenvoudig om de functies te definiëren.

Function GetAreaOfARectangle(ByVal Edge1 As Integer, ByVal Edge2 As Integer) As Integer
    Return Edge1 * Edge2
End Function

Dim Area As Integer = GetAreaOfARectangle(5, 8)
Console.Writeline(Area) 'Output: 40

Een functie # 2 definiëren

Function Age(ByVal YourAge As Integer) As String   
    Select Case YourAge
        Case Is < 18
            Return("You are younger than 18! You are teen!")
        Case 18 to 64
            Return("You are older than 18 but younger than 65! You are adult!")
        Case Is >= 65
            Return("You are older than 65! You are old!")                
    End Select
End Function

Console.WriteLine(Age(48)) 'Output: You are older than 18 but younger than 65! You are adult!


Modified text is an extract of the original Stack Overflow Documentation
Licentie onder CC BY-SA 3.0
Niet aangesloten bij Stack Overflow