定義功能 2

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!